home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi2 / datetime.exe / 16BIT / FDTDEMO.PAS < prev    next >
Pascal/Delphi Source File  |  1996-10-14  |  1KB  |  68 lines
  1. unit Fdtdemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DB, DBTables, Grids, DBGrids, DBCtrls, Datetime,
  8.   ExtCtrls, StdCtrls, TabNotBk, Buttons;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     TabbedNotebook1: TTabbedNotebook;
  13.     DateTimeDlg1: TDateTimeDlg;
  14.     DateTimeDlg2: TDateTimeDlg;
  15.     DateTimeDlg3: TDateTimeDlg;
  16.     Label1: TLabel;
  17.     Label2: TLabel;
  18.     DateTimeDlg4: TDateTimeDlg;
  19.     Label3: TLabel;
  20.     Label4: TLabel;
  21.     Panel1: TPanel;
  22.     Label5: TLabel;
  23.     Label6: TLabel;
  24.     DateTimeDlg5: TDateTimeDlg;
  25.     DateTimeDlg6: TDateTimeDlg;
  26.     Panel2: TPanel;
  27.     Label7: TLabel;
  28.     Label8: TLabel;
  29.     Label9: TLabel;
  30.     Label10: TLabel;
  31.     DBDateTimeDlg1: TDBDateTimeDlg;
  32.     DBNavigator1: TDBNavigator;
  33.     DBGrid1: TDBGrid;
  34.     Label11: TLabel;
  35.     Table1: TTable;
  36.     DataSource1: TDataSource;
  37.     Table1LastName: TStringField;
  38.     Table1HireDate: TDateTimeField;
  39.     Table1FirstName: TStringField;
  40.     Label12: TLabel;
  41.     Label13: TLabel;
  42.     procedure FormCreate(Sender: TObject);
  43.     procedure FormDestroy(Sender: TObject);
  44.   private
  45.     { Private declarations }
  46.   public
  47.     { Public declarations }
  48.   end;
  49.  
  50. var
  51.   Form1: TForm1;
  52.  
  53. implementation
  54.  
  55. {$R *.DFM}
  56.  
  57. procedure TForm1.FormCreate(Sender: TObject);
  58. begin
  59.   Table1.Open;
  60. end;
  61.  
  62. procedure TForm1.FormDestroy(Sender: TObject);
  63. begin
  64.   Form1.Close;
  65. end;
  66.  
  67. end.
  68.