FLookupDm.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit FLookupDm;
- interface
- uses
- SysUtils, Classes, DB, DBTables;
- type
- TDataModule1 = class(TDataModule)
- Table1: TTable;
- Table2: TTable;
- DataSource1: TDataSource;
- DataSource2: TDataSource;
- Table1OrderNo: TFloatField;
- Table1CustNo: TFloatField;
- Table1SaleDate: TDateTimeField;
- Table1ShipDate: TDateTimeField;
- Table1EmpNo: TIntegerField;
- Table1ShipToContact: TStringField;
- Table1ShipToAddr1: TStringField;
- Table1ShipToAddr2: TStringField;
- Table1ShipToCity: TStringField;
- Table1ShipToState: TStringField;
- Table1ShipToZip: TStringField;
- Table1ShipToCountry: TStringField;
- Table1ShipToPhone: TStringField;
- Table1ShipVIA: TStringField;
- Table1PO: TStringField;
- Table1Terms: TStringField;
- Table1PaymentMethod: TStringField;
- Table1ItemsTotal: TCurrencyField;
- Table1TaxRate: TFloatField;
- Table1Freight: TCurrencyField;
- Table1AmountPaid: TCurrencyField;
- Table1Employee: TStringField;
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- DataModule1: TDataModule1;
- implementation
- {$R *.dfm}
- end.