udm.pas

delphi+sql server 我是delphi的初学者

unit UDM;

interface


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

type
  TDM = class(TDataModule)
    ADOCon1: TADOConnection;
    ADOTEMP: TADOQuery;
    ADOLOGIN: TADOQuery;
    ADOCODE: TADOQuery;
    ADOTP: TADOQuery;
    ADOZTDJ: TADOQuery;
    ADOTY: TADOQuery;
    ADOREPORT: TADOQuery;
    frxDBREPORT: TfrxDBDataset;
    ADOLX: TADOQuery;
    ADOusermight: TADOQuery;
    ADOLSDJ: TADOQuery;
    frxDBrepotls: TfrxDBDataset;
    ADOrepotls: TADOQuery;
    ADOsummoney: TADOQuery;
    T_COUNTER: TADOTable;
    ADOhj: TADOQuery;
    ADOTYPEHJ: TADOQuery;
    ADOCODElibnumber: TIntegerField;
    ADOCODElist: TStringField;
    ADOCODEnumberid: TStringField;
    ADOCODEnumbertype: TStringField;
    ADOCODEhxbz: TStringField;
    ADOCODErq: TDateTimeField;
    ADOCODElypername: TStringField;
    ADOCODEJINE: TBCDField;
    ADOCODEA: TBooleanField;
    ADOCODEB: TBooleanField;
    ADOCODElibnumberplace: TStringField;
    ADOCODEzt: TStringField;
    ADOCODEsxdm: TStringField;
  private
    { Private declarations }
  public
    HDM,HMC,HQXDM,Hdd:string;       //地点代码//地点名称//访问所有吧台代码
    hrq:TDateTime;
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

end.