udm.pas

delphi+sql server 我是delphi的初学者

unit UDM;

interface

uses
  SysUtils, Classes, DB, ADODB, frxClass, frxDBSet;

type
  TDM = class(TDataModule)
    con1: TADOConnection;
    qryLOGIN: TADOQuery;
    tblpjly: TADOTable;
    tbllibnumber: TADOTable;
    qrytemp: TADOQuery;
    tbltypeunit: TADOTable;
    tbltypeunittypeunit: TAutoIncField;                                                             
    tbltypeunittypeid: TStringField;
    tbltypeunittypename: TStringField;
    tblperson: TADOTable;
    qryperson: TADOQuery;
    qrydjlx: TADOQuery;
    qrypjly: TADOQuery;
    qrylibnumber: TADOQuery;
    qryguo: TADOQuery;
    qryserch: TADOQuery;
    qrylibnumber2: TADOQuery;
    qrylogin2: TADOQuery;
    ADOQT: TADOQuery;
    ADODTB: TADOQuery;
    ADOBBLS: TADOQuery;
    ADOXCT: TADOQuery;
    ADObb: TADOQuery;
    ADOreport: TADOQuery;
    ADODJZT: TADOQuery;
    ADOcx: TADOQuery;
    ADOZTDJ: TADOQuery;
    ADOUSERMIGHT: TADOQuery;
    ADOCDMIGHT: TADOQuery;
    ADOCDMIGHTID: TIntegerField;
    ADOCDMIGHTparent: TIntegerField;
    ADOCDMIGHTmc: TStringField;
    ADOUSERMIGHTCDUSERID: TAutoIncField;
    ADOUSERMIGHTCZYDM: TStringField;
    ADOUSERMIGHTID: TIntegerField;
    ADOUSERMIGHTparent: TIntegerField;
    ADOUSERMIGHTmc: TStringField;
    ADOdd: TADOQuery;
    ADOLSDJ: TADOQuery;
    ADOreportls: TADOQuery;
    T_COUNTER: TADOTable;
    ADOSUM: TADOQuery;
    ADOview_serch: TADOQuery;
    ADOcode: TADOQuery;
    ADOlibnumber: TADOQuery;
    ADOlibnumberls: TADOQuery;
    ADOreportplaceid: TAutoIncField;
    ADOreportplacedm: TStringField;
    ADOreportplacename: TStringField;
    ADOlibnumberlslibnumber: TIntegerField;
    ADOlibnumberlslist: TStringField;
    ADOlibnumberlsnumberid: TStringField;
    ADOlibnumberlsnumbertype: TStringField;
    ADOlibnumberlshxbz: TStringField;
    ADOlibnumberlsrq: TDateTimeField;
    ADOlibnumberlslypername: TStringField;
    ADOlibnumberlsJINE: TBCDField;
    ADOlibnumberlsA: TBooleanField;
    ADOlibnumberlsB: TBooleanField;
    ADOlibnumberlslibnumberplace: TStringField;
    ADOlibnumberlszt: TStringField;
    ADOlibnumberlssxdm: TStringField;
    ADOlibnumberlibnumber: TAutoIncField;
    ADOlibnumberlist: TStringField;
    ADOlibnumbernumberid: TStringField;
    ADOlibnumbernumbertype: TStringField;
    ADOlibnumberhxbz: TStringField;
    ADOlibnumberdjdate: TDateTimeField;
    ADOlibnumberlypername: TStringField;
    ADOlibnumberJINE: TBCDField;
    ADOlibnumberA: TBooleanField;
    ADOlibnumberB: TBooleanField;
    ADOlibnumberlibnumberplace: TStringField;
    ADOlibnumberZT: TStringField;
    ADOlibnumbersxdm: TStringField;
  private
    { Private declarations }
  public
    hdm,hname:string;
    NAME:string;
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.