home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / WIN / Programa / DATEED15.ZIP / MAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-03  |  1.9 KB  |  79 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, DB,
  8.   DBTables, Mask, DBCtrls, Grids, DBGrids, dbdateed, Dateedit;
  9.  
  10. type
  11.   TMainForm = class(TForm)
  12.     DBGrid1: TDBGrid;
  13.     DBNavigator1: TDBNavigator;
  14.     DataSource1: TDataSource;
  15.     Table1: TTable;
  16.     Button2: TButton;
  17.     Date2: TDateEdit;
  18.     Date1: TDBDateEdit;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     Table1PONUM: TStringField;
  22.     Table1PODATE: TDateField;
  23.     Table1REQUIRED: TDateField;
  24.     Table1RECEIVED: TDateField;
  25.     Table1TERMS: TStringField;
  26.     Table1SHIPPING: TStringField;
  27.     Table1TOTAL: TFloatField;
  28.     Table1SUBTOTAL: TFloatField;
  29.     Table1RESPONS: TStringField;
  30.     Table1VENDOR: TStringField;
  31.     Table1CONTACT: TStringField;
  32.     Table1ADDRESS1: TStringField;
  33.     Table1ADDRESS2: TStringField;
  34.     Table1ADDRESS3: TStringField;
  35.     Table1PHONE: TStringField;
  36.     Table1FAX: TStringField;
  37.     Table1COMMENT: TStringField;
  38.     Table1PO_TEXT1: TStringField;
  39.     Table1PO_TEXT2: TStringField;
  40.     Table1PO_DATE1: TDateField;
  41.     Table1PO_DATE2: TDateField;
  42.     Table1PO_NUM1: TFloatField;
  43.     Table1PO_INT1: TFloatField;
  44.     Table1PO_TAXRATE: TFloatField;
  45.     Table1SHIPRATE: TFloatField;
  46.     Table1NOTE: TMemoField;
  47.     Table1SHIPTO: TMemoField;
  48.     Table1BILLTO: TMemoField;
  49.     Button1: TButton;
  50.     procedure Button1Click(Sender: TObject);
  51.     procedure Button2Click(Sender: TObject);
  52.     procedure FormCreate(Sender: TObject);
  53.   end;
  54.  
  55. var
  56.   MainForm: TMainForm;
  57.  
  58. implementation
  59.  
  60. {$R *.DFM}
  61.  
  62. procedure TMainForm.Button1Click(Sender: TObject);
  63. begin
  64.    Date1.ClearValidDates;
  65. end;
  66.  
  67. procedure TMainForm.Button2Click(Sender: TObject);
  68. begin
  69.    Date1.AddValidDate(Date2.Date);
  70. end;
  71.  
  72. procedure TMainForm.FormCreate(Sender: TObject);
  73. begin
  74.    TABLE1.DATABASENAME := EXTRACTFILEPATH(Application.exename);
  75.    TABLE1.OPEN;
  76. end;
  77.  
  78. end.
  79.