datamodule.pas

财务报表系统,包括系统登陆

unit DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    con1: TADOConnection;
    qryYgxx: TADOQuery;
    dsYgxx: TDataSource;
    qryYgxxyg_id: TAutoIncField;
    qryYgxxygh: TWideStringField;
    qryYgxxxm: TWideStringField;
    qryYgxxgz_id: TIntegerField;
    qryYgxxbm: TWideStringField;
    qryYgxxgzsj: TDateTimeField;
    qryGz: TADOQuery;
    dsGz: TDataSource;
    qryJblb: TADOQuery;
    dsJblb: TDataSource;
    qryQqlb: TADOQuery;
    dsQqlb: TDataSource;
    qryGzgz_id: TAutoIncField;
    qryGzgz: TWideStringField;
    qryGzjbgz: TBCDField;
    qryJblbjblb_id: TAutoIncField;
    qryJblbjblb: TWideStringField;
    qryJblbjbgz: TBCDField;
    qryQqlbqqlb_id: TAutoIncField;
    qryQqlbqqlb: TWideStringField;
    qryQqlbjbgz: TBCDField;
    qryYgxxaGz: TStringField;
    qryKqxx: TADOQuery;
    qryKqxxkq_id: TAutoIncField;
    qryKqxxyg_id: TIntegerField;
    qryKqxxkqsj: TDateTimeField;
    qryKqxxqqts: TFloatField;
    qryKqxxqqlb_id: TIntegerField;
    qryKqxxaQqlb: TStringField;
    dsKqxx: TDataSource;
    qryJtxx: TADOQuery;
    dsJtxx: TDataSource;
    qryJtxxjt_id: TAutoIncField;
    qryJtxxyg_id: TIntegerField;
    qryJtxxjbsj: TDateTimeField;
    qryJtxxjbts: TFloatField;
    qryJtxxjblb_id: TIntegerField;
    qryJtxxaJblb: TStringField;
    qryYlbx: TADOQuery;
    qryYlbxylbx_id: TAutoIncField;
    qryYlbxyg_id: TIntegerField;
    qryYlbxylfy: TBCDField;
    qryYlbxbxfy: TBCDField;
    qryYlbxsj: TDateTimeField;
    dsYlbx: TDataSource;
    qryYgz: TADOQuery;
    dsYgz: TDataSource;
    qryNzjj: TADOQuery;
    dsNzjj: TDataSource;
    qryNdxy: TADOQuery;
    dsNdxy: TDataSource;
    qryJblbndxs: TFloatField;
    qryQqlbndxs: TFloatField;
    qryNdxyndxy_id: TAutoIncField;
    qryNdxyndxy: TBCDField;
    qryNdxynian: TIntegerField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

end.