home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap20 / twoforms / details.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  776 b   |  43 lines
  1. unit Details;
  2.  
  3. { Program copyright (c) 1994 by Charles Calvert }
  4. { Project Name: TWOFORMS }
  5.  
  6. interface
  7.  
  8. uses
  9.   WinTypes, WinProcs, Classes,
  10.   Graphics, Forms, Controls, Buttons,
  11.   StdCtrls, DB, DBCtrls, DBTables, Mask, ExtCtrls;
  12.  
  13. type
  14.   TDetailView = class(TForm)
  15.     Label1: TLabel;
  16.     Population: TLabel;
  17.     DataSource1: TDataSource;
  18.     DBEdit1: TDBEdit;
  19.     DBEdit2: TDBEdit;
  20.     BitBtn1: TBitBtn;
  21.     DBNavigator1: TDBNavigator;
  22.     procedure BitBtn1Click(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   DetailView: TDetailView;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TDetailView.BitBtn1Click(Sender: TObject);
  37. begin
  38.   DataSource1.DataSet := nil;
  39.   Close;
  40. end;
  41.  
  42. end.
  43.