home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap20 / navy / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  1.0 KB  |  62 lines
  1. unit Main;
  2.  
  3. { Program copyright (c) 1994 by Charles Calvert }
  4. { Project Name: NAVY }
  5.  
  6. interface
  7.  
  8. uses 
  9.   WinTypes, WinProcs, Classes, 
  10.   Graphics, Forms, Controls, 
  11.   DB, DBGrids, DBTables, StdCtrls, Grids;
  12.  
  13. type
  14.   TForm1 = class(TForm)
  15.     Table1: TTable;
  16.     DBGrid1: TDBGrid;
  17.     DataSource1: TDataSource;
  18.     bPrior: TButton;
  19.     bNext: TButton;
  20.     bFirst: TButton;
  21.     bLast: TButton;
  22.     procedure bNextClick(Sender: TObject);
  23.     procedure bPriorClick(Sender: TObject);
  24.     procedure bFirstClick(Sender: TObject);
  25.     procedure bLastClick(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.   public
  29.     { Public declarations }
  30.   end;
  31.  
  32. var
  33.   Form1: TForm1;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39. procedure TForm1.bNextClick(Sender: TObject);
  40. begin
  41.   Table1.Next;
  42. end;
  43.  
  44. procedure TForm1.bPriorClick(Sender: TObject);
  45. begin
  46.   Table1.Prior;
  47. end;
  48.  
  49.  
  50. procedure TForm1.bFirstClick(Sender: TObject);
  51. begin
  52.   Table1.First;
  53. end;
  54.  
  55. procedure TForm1.bLastClick(Sender: TObject);
  56. begin
  57.   Table1.Last;
  58. end;
  59.  
  60. begin
  61. end.
  62.