datamodule.pas

地址档案管理系统

unit DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    DBCnt: TADOConnection;
    tblMasterCode: TADOTable;
    tblDetailCode: TADOTable;
    dsMasterCode: TDataSource;
    dsDetailCode: TDataSource;
    tblMasterCodecode: TWideStringField;
    tblMasterCodecaption: TWideStringField;
    tblMasterCodenote: TWideStringField;
    tblDetailCodedetail_code: TWideStringField;
    tblDetailCodecaption: TWideStringField;
    tblDetailCodenote: TWideStringField;
    tblGSMC: TADOTable;
    dsGSMC: TDataSource;
    tblGSMCzwm: TWideStringField;
    tblGSMCywsx: TWideStringField;
    tblGSMCywm: TWideStringField;
    dsJHLB: TDataSource;
    tblJHLB: TADOTable;
    tblJHLBjhlbm: TWideStringField;
    tblJHLBpysx: TWideStringField;
    tblCLFF: TADOTable;
    dsCLFF: TDataSource;
    tblCLFFclffsm: TWideStringField;
    tblCLFFclffbh: TWideStringField;
    tblDJDA: TADOTable;
    dsDJDA: TDataSource;
    tblDetailCodemaster_code: TWideStringField;
    tblCWTDA: TADOTable;
    dsZHCG: TDataSource;
    dsDZCSDA_A: TDataSource;
    tblDZCSDA_A: TADOTable;
    tblDZCSDA_B: TADOTable;
    dsDZCSDA_B: TDataSource;
    tblZHCG: TADOTable;
    tblCWTDAdah: TWideStringField;
    tblCWTDAQKH: TWideStringField;
    tblCWTDALH: TWideStringField;
    tblCWTDAzwbt: TWideStringField;
    tblCWTDAywbt: TWideStringField;
    tblCWTDAWZ: TWideStringField;
    tblCWTDATS: TSmallintField;
    tblCWTDABL: TWideStringField;
    tblCWTDAFT: TSmallintField;
    tblCWTDABZ: TWideStringField;
    tblCWTDAbzrq: TDateTimeField;
    tblCWTDAgdrq: TDateTimeField;
    tblCWTDAltdz: TWideStringField;
    tblCWTDAdtdh: TWideStringField;
    tblCWTDAdtdz: TWideStringField;
    tblCWTDAFZ: TWideStringField;
    tblDJDADAH: TWideStringField;
    tblDJDAJH: TWideStringField;
    tblDJDALB: TWideStringField;
    tblDJDAQKH: TWideStringField;
    tblDJDAlbxh: TWideStringField;
    tblDJDAzwbt: TWideStringField;
    tblDJDAywbt: TWideStringField;
    tblDJDAWZ: TWideStringField;
    tblDJDATS: TSmallintField;
    tblDJDABG: TSmallintField;
    tblDJDAFJ: TSmallintField;
    tblDJDAFT: TSmallintField;
    tblDJDABL: TWideStringField;
    tblDJDAFB: TSmallintField;
    tblDJDAJC: TSmallintField;
    tblDJDAZRZ: TWideStringField;
    tblDJDABZ: TWideStringField;
    tblDJDAbzrq: TDateTimeField;
    tblDJDAgdrq: TDateTimeField;
    tblDJDAMJ: TWideStringField;
    tblDJDABGQX: TWideStringField;
    tblDJDAjdsx: TFloatField;
    tblDJDAjdxx: TFloatField;
    tblDJDAltdz: TWideStringField;
    tblDJDAdtdh: TWideStringField;
    tblDJDAdtdz: TWideStringField;
    tblDJDAfz: TWideStringField;
    tblDZCSDA_BQKH: TWideStringField;
    tblDZCSDA_BCLFF: TWideStringField;
    tblDZCSDA_BCXXH: TSmallintField;
    tblDZCSDA_BFT: TSmallintField;
    tblDZCSDA_Bgdrq: TDateTimeField;
    tblDWDZ: TADOTable;
    tblDZ: TADOTable;
    dsDWDZ: TDataSource;
    dsDZ: TDataSource;
    tblDWDZname: TWideStringField;
    tblDWDZid: TWideStringField;
    tblDZid: TWideStringField;
    tblDZname: TWideStringField;
    tblDZdwid: TWideStringField;
    tblDZTELE: TWideStringField;
    tblDZADDR: TWideStringField;
    tblZHCGdah: TWideStringField;
    tblZHCGlb: TWideStringField;
    tblZHCGlbxh: TWideStringField;
    tblZHCGQKH: TWideStringField;
    tblZHCGzwbt: TWideStringField;
    tblZHCGywbt: TWideStringField;
    tblZHCGWZ: TWideStringField;
    tblZHCGTS: TSmallintField;
    tblZHCGBG: TSmallintField;
    tblZHCGFJ: TSmallintField;
    tblZHCGFT: TSmallintField;
    tblZHCGBL: TWideStringField;
    tblZHCGFB: TSmallintField;
    tblZHCGJC: TSmallintField;
    tblZHCGZRZ: TWideStringField;
    tblZHCGBZ: TWideStringField;
    tblZHCGbzrq: TDateTimeField;
    tblZHCGgdrq: TDateTimeField;
    tblZHCGMJ: TWideStringField;
    tblZHCGBGQX: TWideStringField;
    tblZHCGltdz: TWideStringField;
    tblZHCGdtdh: TWideStringField;
    tblZHCGdtdz: TWideStringField;
    tblZHCGfz: TWideStringField;
    tblDZCSDA_Adah: TWideStringField;
    tblDZCSDA_AQKH: TWideStringField;
    tblDZCSDA_ACLFF: TWideStringField;
    tblDZCSDA_ACXXH: TWideStringField;
    tblDZCSDA_AXH: TSmallintField;
    tblDZCSDA_APAO1: TWideStringField;
    tblDZCSDA_APAO2: TWideStringField;
    tblDZCSDA_Azwbt: TWideStringField;
    tblDZCSDA_Aywbt: TWideStringField;
    tblDZCSDA_AWZ: TWideStringField;
    tblDZCSDA_AFT: TWideStringField;
    tblDZCSDA_ABZ: TIntegerField;
    tblDZCSDA_Abzrq: TWideStringField;
    tblDZCSDA_Agdrq: TWideStringField;
    tblDZCSDA_Altdz: TDateTimeField;
    tblDZCSDA_Adtdh: TDateTimeField;
    tblDZCSDA_Adtdz: TWideStringField;
    tblDZCSDA_AFZ: TWideStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.DataModuleCreate(Sender: TObject);
begin
//  DBCnt.Open;
end;

end.