home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / auto32d3.exe / rar / AUTO32D3 / DEMOS / DELPHI3.0 / FIND / CUST.PAS < prev    next >
Pascal/Delphi Source File  |  1997-07-05  |  1KB  |  49 lines
  1. unit Cust;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DBCtrls, ComCtrls, Menus,
  8.   AutoDB, adbgrid;
  9.  
  10. type
  11.   TfmCustomers = class(TForm)
  12.     Panel2: TPanel;
  13.     DBNavigator1: TDBNavigator;
  14.     BitBtn1: TBitBtn;
  15.     MainMenu1: TMainMenu;
  16.     AboutItem: TMenuItem;
  17.     AutoDBGrid1: TAutoDBGrid;
  18.     Panel1: TPanel;
  19.     procedure AboutItemClick(Sender: TObject);
  20.     procedure BitBtn1Click(Sender: TObject);
  21.   end;
  22.  
  23. var
  24.   fmCustomers: TfmCustomers;
  25.  
  26. implementation
  27.  
  28. uses DM, About, FindCust;
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TfmCustomers.AboutItemClick(Sender: TObject);
  33. var
  34.   fmAbout : TFmAboutBox;
  35. begin
  36.   fmAbout := TfmAboutBox.Create(self);
  37.   fmAbout.ShowModal;
  38.   fmAbout.Free;
  39. end;
  40.  
  41. procedure TfmCustomers.BitBtn1Click(Sender: TObject);
  42. begin
  43.   fmFindCust.ShowModal;
  44.   if(fmFindCust.Modalresult = mrOK) then
  45.     DM2.Customer.GoToCurrent(DM2.CustLookup);
  46. end;
  47.  
  48. end.
  49.