home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 February / DPPCPRO0299.ISO / February / Delphi / Install / DATA.Z / CUST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-11  |  980 b   |  48 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.  
  9. type
  10.   TfmCustomers = class(TForm)
  11.     DBGrid1: TDBGrid;
  12.     Panel2: TPanel;
  13.     DBNavigator1: TDBNavigator;
  14.     BitBtn1: TBitBtn;
  15.     StatusBar1: TStatusBar;
  16.     MainMenu1: TMainMenu;
  17.     AboutItem: TMenuItem;
  18.     procedure Button1Click(Sender: TObject);
  19.     procedure AboutItemClick(Sender: TObject);
  20.   end;
  21.  
  22. var
  23.   fmCustomers: TfmCustomers;
  24.  
  25. implementation
  26.  
  27. uses DM, FindCust, About;
  28.  
  29. {$R *.DFM}
  30.  
  31. procedure TfmCustomers.Button1Click(Sender: TObject);
  32. begin
  33.   fmFindCust.ShowModal;
  34.   if fmFindCust.ModalResult = mrOk then
  35.     DM2.Customer.GoToCurrent(DM2.CustLookup);
  36. end;
  37.  
  38. procedure TfmCustomers.AboutItemClick(Sender: TObject);
  39. var
  40.   fmAbout : TFmAboutBox;
  41. begin
  42.   fmAbout := TfmAboutBox.Create(self);
  43.   fmAbout.ShowModal;
  44.   fmAbout.Free;
  45. end;
  46.  
  47. end.
  48.