home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / search.pak / MAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  890 b   |  45 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, DB, DBGrids,
  6.   SysUtils, Dialogs, StdCtrls, DBTables, Grids;
  7.  
  8. type
  9.   TSearchDemo = class(TForm)
  10.     Cust: TTable;
  11.     DataSource1: TDataSource;
  12.     DBGrid1: TDBGrid;
  13.     Panel1: TPanel;
  14.     label1: TLabel;
  15.     CustNoEdit: TEdit;
  16.     Search: TButton;
  17.     procedure SearchClick(Sender: TObject);
  18.     procedure FormCreate(Sender: TObject);
  19.   end;
  20.  
  21. var
  22.   SearchDemo: TSearchDemo;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure TSearchDemo.SearchClick(Sender: TObject);
  29. var
  30.   CustNo: Double;
  31. begin
  32.   CustNo := StrToFloat(CustNoEdit.Text);
  33.   Cust.SetKey;
  34.   Cust.IndexFields[0].AsFloat := CustNo;
  35.   if not Cust.GotoKey then
  36.     raise Exception.CreateFmt('Cannot find CustNo %g', [CustNo]);
  37. end;
  38.  
  39. procedure TSearchDemo.FormCreate(Sender: TObject);
  40. begin
  41.   Cust.Open;
  42. end;
  43.  
  44. end.
  45.