开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
FLookupDm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

FLookupDm.pas：源码内容
  1. unit FLookupDm;
  3. interface
  5. uses
  6.   SysUtils, Classes, DB, DBTables;
  8. type
  9.   TDataModule1 = class(TDataModule)
  10.     Table1: TTable;
  11.     Table2: TTable;
  12.     DataSource1: TDataSource;
  13.     DataSource2: TDataSource;
  14.     Table1OrderNo: TFloatField;
  15.     Table1CustNo: TFloatField;
  16.     Table1SaleDate: TDateTimeField;
  17.     Table1ShipDate: TDateTimeField;
  18.     Table1EmpNo: TIntegerField;
  19.     Table1ShipToContact: TStringField;
  20.     Table1ShipToAddr1: TStringField;
  21.     Table1ShipToAddr2: TStringField;
  22.     Table1ShipToCity: TStringField;
  23.     Table1ShipToState: TStringField;
  24.     Table1ShipToZip: TStringField;
  25.     Table1ShipToCountry: TStringField;
  26.     Table1ShipToPhone: TStringField;
  27.     Table1ShipVIA: TStringField;
  28.     Table1PO: TStringField;
  29.     Table1Terms: TStringField;
  30.     Table1PaymentMethod: TStringField;
  31.     Table1ItemsTotal: TCurrencyField;
  32.     Table1TaxRate: TFloatField;
  33.     Table1Freight: TCurrencyField;
  34.     Table1AmountPaid: TCurrencyField;
  35.     Table1Employee: TStringField;
  36.   private
  37.     { Private declarations }
  38.   public
  39.     { Public declarations }
  40.   end;
  42. var
  43.   DataModule1: TDataModule1;
  45. implementation
  47. {$R *.dfm}
  49. end.