home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d123456 / ANRMLB.ZIP / sample / sample1.pas < prev   
Pascal/Delphi Source File  |  2001-09-03  |  3KB  |  118 lines
  1. unit Sample1;
  2.  
  3. interface
  4.  
  5. uses
  6.   mlb2, Winprocs, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     btnNext: TButton;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     Label4: TLabel;
  16.     lblTitle: TLabel;
  17.     lblAuthor: TLabel;
  18.     lblYear: TLabel;
  19.     lblPrice: TLabel;
  20.     btnLast: TButton;
  21.     btnPrev: TButton;
  22.     btnFirst: TButton;
  23.     Edit1: TEdit;
  24.     Button1: TButton;
  25.     Label5: TLabel;
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure btnNextClick(Sender: TObject);
  28.     procedure FormDestroy(Sender: TObject);
  29.     procedure btnPrevClick(Sender: TObject);
  30.     procedure btnFirstClick(Sender: TObject);
  31.     procedure btnLastClick(Sender: TObject);
  32.     procedure Button1Click(Sender: TObject);
  33.   private
  34.     { DΘclarations privΘes }
  35.     procedure refreshData;
  36.   public
  37.     { DΘclarations publiques }
  38.   end;
  39.  
  40. var
  41.   Form1: TForm1;
  42.   Little: TMlb2;
  43.  
  44. implementation
  45.  
  46. {$R *.DFM}
  47.  
  48. procedure TForm1.refreshData;
  49. begin
  50.      lblTitle.Caption := Little.GetData('Title');
  51.      lblAuthor.Caption := Little.GetData('Author');
  52.      lblYear.Caption := IntToStr(trunc(Little.GetFloat('Year')));
  53.      lblPrice.Caption := Little.GetData('Price');
  54. end;
  55.  
  56. procedure TForm1.FormCreate(Sender: TObject);
  57. begin
  58.   Little := TMlb2.Create;
  59.   {
  60.   Little.Init;
  61.   Little.AddField('Name');
  62.   Little.AddField('FirstName');
  63.   Little.AddField('Date of Birth');
  64.   Little.AddRow;
  65.   Little.SetData('Name', 'Durand');
  66.   Little.SetData('FirstName', 'Paul');
  67.   Little.SetData('Date of Birth', '02-02-63');
  68.   Little.AddRow;
  69.   Little.SetData('Name', 'Dupont');
  70.   Little.SetData('FirstName', 'Yves');
  71.   Little.SetData('Date of Birth', '10-09-61');
  72.   Little.SaveToFile('date.txt');
  73.   }
  74.   Caption := Caption + ' - ' + Little.GetVersion;
  75.   Little.LoadFromFile('sample.csv');
  76.   Little.GoFirst;
  77.   refreshData;
  78. end;
  79.  
  80. procedure TForm1.btnNextClick(Sender: TObject);
  81. begin
  82.      Little.GoNext;
  83.      refreshData;
  84. end;
  85.  
  86. procedure TForm1.FormDestroy(Sender: TObject);
  87. begin
  88.      Little.Free;
  89. end;
  90.  
  91. procedure TForm1.btnPrevClick(Sender: TObject);
  92. begin
  93.      Little.GoPrevious;
  94.      refreshData;
  95. end;
  96.  
  97. procedure TForm1.btnFirstClick(Sender: TObject);
  98. begin
  99.      Little.GoFirst;
  100.      refreshData;
  101. end;
  102.  
  103. procedure TForm1.btnLastClick(Sender: TObject);
  104. begin
  105.      Little.GoLast;
  106.      refreshData;
  107. end;
  108.  
  109. procedure TForm1.Button1Click(Sender: TObject);
  110. begin
  111.      Little.GoNext;
  112.      Little.SeekFloat('Price', '<', Little.RobustStrToFloat(Edit1.Text));
  113.      refreshData;
  114. end;
  115.  
  116. end.
  117.  
  118.