datamodule.~pas

这是一个间歇的小唾弃,希望大家希望,以后大家多学习,多多交流共同进步

unit datamodule;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    con1: TADOConnection;
    qrygongzhong: TADOQuery;
    dsgongzhong: TDataSource;
    qrygongzhonggz_id: TAutoIncField;
    qrygongzhonggz: TWideStringField;
    qrygongzhongjbgz: TBCDField;
    dsJBLB: TDataSource;
    qryJBLB: TADOQuery;
    qryJBLBjblb_id: TAutoIncField;
    qryJBLBjblb: TWideStringField;
    qryJBLBjbgz: TBCDField;
    qryJBLBndxs: TFloatField;
    dsQQLB: TDataSource;
    qryQQLB: TADOQuery;
    qryQQLBqqlb_id: TAutoIncField;
    qryQQLBqqlb: TWideStringField;
    qryQQLBjbgz: TBCDField;
    qryQQLBndxs: TFloatField;
    qryQYNDXY: TADOQuery;
    dsQYNDXY: TDataSource;
    qryQYNDXYndxy_id: TAutoIncField;
    qryQYNDXYndxy: TBCDField;
    qryQYNDXYnian: TIntegerField;
    qryYGXX: TADOQuery;
    dsYGXX: TDataSource;
    qryYGXXyg_id: TAutoIncField;
    qryYGXXygh: TWideStringField;
    qryYGXXxm: TWideStringField;
    qryYGXXgz_id: TIntegerField;
    qryYGXXbm: TWideStringField;
    qryYGXXgzsj: TDateTimeField;
    qryYGXXaGz: TStringField;
    dsKQXX: TDataSource;
    qryKQXX: TADOQuery;
    qryKQXXkq_id: TAutoIncField;
    qryKQXXyg_id: TIntegerField;
    qryKQXXkqsj: TDateTimeField;
    qryKQXXqqts: TFloatField;
    qryKQXXqqlb_id: TIntegerField;
    qryKQXXaqqlb: TStringField;
    dsJTXX: TDataSource;
    qryJTXX: TADOQuery;
    qryJTXXjt_id: TAutoIncField;
    qryJTXXyg_id: TIntegerField;
    qryJTXXjbsj: TDateTimeField;
    qryJTXXjbts: TFloatField;
    qryJTXXjblb_id: TIntegerField;
    qryJTXXajblb: TStringField;
    dsYLBX: TDataSource;
    qryYLBX: TADOQuery;
    qryYLBXylbx_id: TAutoIncField;
    qryYLBXyg_id: TIntegerField;
    qryYLBXylfy: TBCDField;
    qryYLBXbxfy: TBCDField;
    qryYLBXsj: TDateTimeField;
    dsYGZ: TDataSource;
    qryYGZ: TADOQuery;
    dsNZJJ: TDataSource;
    qryNZJJ: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

end.