home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / HAWKEYE / HAWKEVAL.ZIP / _SETUP.1 / DBTestMain.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-07-17  |  1.6 KB  |  71 lines
  1. unit DBTestMain;
  2.  
  3. {*********************************************************************
  4.     Please NOTE: *********
  5.  
  6. In order for this sample to run, please ensure that the path in which
  7. agnieyespy.dcu resides is included in your library path, or in the
  8. search path of this project.
  9.  
  10. This project uses the DBDEMOS BDE alias, and the table named as Animals.DBF
  11.  
  12. When you run this project click on the Create Eye Spy menu, to bring up
  13. Agni's Eye Spy. You can click on Free Eye Spy to hide Agni's Eye Spy.
  14.  
  15. *********************************************************************}
  16.  
  17.  
  18. interface
  19.  
  20. uses
  21.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  22.   AgniEyeSpy, Menus, Db, DBTables, Grids, DBGrids, StdCtrls, DBCtrls,
  23.   ExtCtrls;
  24.  
  25. type
  26.   TForm1 = class(TForm)
  27.     MainMenu1: TMainMenu;
  28.     CreateEyeSpy1: TMenuItem;
  29.     FreeEyeSpy1: TMenuItem;
  30.     Table1: TTable;
  31.     DataSource1: TDataSource;
  32.     DBGrid1: TDBGrid;
  33.     Label1: TLabel;
  34.     DBText1: TDBText;
  35.     DBText2: TDBText;
  36.     Label2: TLabel;
  37.     Label3: TLabel;
  38.     Bevel1: TBevel;
  39.     procedure CreateEyeSpy1Click(Sender: TObject);
  40.     procedure FreeEyeSpy1Click(Sender: TObject);
  41.     procedure Table1AfterScroll(DataSet: TDataSet);
  42.   private
  43.     { Private declarations }
  44.   public
  45.     { Public declarations }
  46.   end;
  47.  
  48. var
  49.   Form1: TForm1;
  50.  
  51. implementation
  52.  
  53. {$R *.DFM}
  54.  
  55. procedure TForm1.CreateEyeSpy1Click(Sender: TObject);
  56. begin
  57.     CreateEyeSpy;
  58. end;
  59.  
  60. procedure TForm1.FreeEyeSpy1Click(Sender: TObject);
  61. begin
  62.     FreeEyeSpy;
  63. end;
  64.  
  65. procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
  66. begin
  67.     MessageBeep(-1);
  68. end;
  69.  
  70. end.
  71.