www.pudn.com > dianlijiankong.rar > UDM.~pas, change:2005-12-21,size:6521b


unit UDM; 
 
interface 
 
uses 
  SysUtils, Classes, DB, ADODB; 
 
type 
  TDM = class(TDataModule) 
    ADOConn: TADOConnection; 
    QUSER: TADOQuery; 
    ADOQuery1: TADOQuery; 
    QSJHF: TADOQuery; 
    QSJBF: TADOQuery; 
    QYHQX: TADOQuery; 
    DSYHQX: TDataSource; 
    DSOYHQX: TADODataSet; 
    DSOYHQXDSDesigner: TStringField; 
    DSOYHQXDSDesigner2: TStringField; 
    DSOYHQXDSDesigner3: TStringField; 
    DSOYHQXB1: TBooleanField; 
    DSOYHQXB2: TBooleanField; 
    DSOYHQXB3: TBooleanField; 
    DSOYHQXB4: TBooleanField; 
    DSOYHQXB5: TBooleanField; 
    DSOYHQXB6: TBooleanField; 
    DSOYHQXB7: TBooleanField; 
    DSOYHQXB8: TBooleanField; 
    DSOYHQXB9: TBooleanField; 
    DSOYHQXB10: TBooleanField; 
    DSOYHQXB11: TBooleanField; 
    DSOYHQXB12: TBooleanField; 
    DSOYHQXB13: TBooleanField; 
    DSOYHQXB14: TBooleanField; 
    DSOYHQXB15: TBooleanField; 
    DSOYHQXB16: TBooleanField; 
    QCSH: TADOQuery; 
    QGSJBXX: TADOQuery; 
    QBMJBXX: TADOQuery; 
    DSBMJBXX: TDataSource; 
    DSOBMJBXX: TADODataSet; 
    DSOBMJBXXDSDesigner: TStringField; 
    DSOBMJBXXDSDesigner2: TStringField; 
    DSOBMJBXXDSDesigner3: TStringField; 
    QYGJBXX: TADOQuery; 
    DSOYGJBXX: TADODataSet; 
    DSYGJBXX: TDataSource; 
    DSOYGJBXXDSDesigner: TStringField; 
    DSOYGJBXXDSDesigner2: TStringField; 
    DSOYGJBXXDSDesigner3: TStringField; 
    DSOYGJBXXDSDesigner4: TStringField; 
    DSOYGJBXXDSDesigner5: TStringField; 
    DSOYGJBXXDSDesigner6: TStringField; 
    DSOYGJBXXDSDesigner7: TStringField; 
    QKHJBXX: TADOQuery; 
    DSOKHJBXX: TADODataSet; 
    DSOKHJBXXDSDesigner: TStringField; 
    DSOKHJBXXDSDesigner2: TStringField; 
    DSOKHJBXXDSDesigner3: TStringField; 
    DSOKHJBXXDSDesigner4: TStringField; 
    DSOKHJBXXDSDesigner5: TStringField; 
    DSOKHJBXXDSDesigner6: TStringField; 
    DSOKHJBXXDSDesigner7: TStringField; 
    DSOKHJBXXDSDesigner8: TStringField; 
    DSOKHJBXXDSDesigner9: TStringField; 
    DSOKHJBXXDSDesigner10: TStringField; 
    DSOKHJBXXDSDesigner11: TStringField; 
    DSOKHJBXXDSDesigner12: TStringField; 
    DSOKHJBXXDSDesigner13: TStringField; 
    DSOKHJBXXDSDesigner14: TStringField; 
    DSOKHJBXXDSDesigner15: TStringField; 
    DSOKHJBXXDSDesigner16: TStringField; 
    DSOKHJBXXDSDesigner17: TStringField; 
    DSOKHJBXXDSDesigner18: TStringField; 
    DSOKHJBXXDSDesigner19: TStringField; 
    DSOKHJBXXDSDesigner20: TStringField; 
    DSKHJBXX: TDataSource; 
    QSJJBXX: TADOQuery; 
    DSOSJJBXX: TADODataSet; 
    DSSJJBXX: TDataSource; 
    DSOSJJBXXDSDesigner: TStringField; 
    DSOSJJBXXDSDesigner2: TStringField; 
    DSOSJJBXXDSDesigner3: TStringField; 
    DSOSJJBXXDSDesigner4: TDateTimeField; 
    DSOSJJBXXDSDesigner5: TStringField; 
    DSOSJJBXXDSDesigner6: TStringField; 
    DSOSJJBXXDSDesigner7: TStringField; 
    DSOSJJBXXDSDesigner8: TStringField; 
    DSOSJJBXXDSDesigner9: TStringField; 
    DSOSJJBXXDSDesigner10: TDateTimeField; 
    DSOSJJBXXDSDesigner11: TStringField; 
    DSOSJJBXXDSDesigner12: TStringField; 
    DSOSJJBXXDSDesigner13: TStringField; 
    DSOSJJBXXDSDesigner14: TStringField; 
    DSOSJJBXXDSDesigner15: TStringField; 
    DSOSJJBXXDSDesigner16: TStringField; 
    DSOSJJBXXDSDesigner17: TStringField; 
    DSOSJJBXXDSDesigner18: TStringField; 
    QCLJBXX: TADOQuery; 
    DSOCLJBXX: TADODataSet; 
    DSOCLJBXXDSDesigner: TStringField; 
    DSOCLJBXXDSDesigner2: TStringField; 
    DSOCLJBXXDSDesigner3: TStringField; 
    DSOCLJBXXDSDesigner4: TStringField; 
    DSOCLJBXXDSDesigner5: TStringField; 
    DSOCLJBXXDSDesigner6: TStringField; 
    DSOCLJBXXDSDesigner7: TStringField; 
    DSOCLJBXXDSDesigner8: TStringField; 
    DSOCLJBXXDSDesigner9: TStringField; 
    DSOCLJBXXDSDesigner10: TStringField; 
    DSCLJBXX: TDataSource; 
    DSHWSQXX: TDataSource; 
    QHWSQXX: TADOQuery; 
    DSOHWSQXX: TADODataSet; 
    DSHWTYXX: TDataSource; 
    QHWTYXX: TADOQuery; 
    DSOHWTYXX: TADODataSet; 
    QKHYSXX: TADOQuery; 
    DSOKHYSXX: TADODataSet; 
    DSKHYSXX: TDataSource; 
    DSOKHYSXXDSDesigner: TStringField; 
    DSOKHYSXXDSDesigner2: TStringField; 
    DSOKHYSXXDSDesigner3: TStringField; 
    DSOKHYSXXDSDesigner4: TDateTimeField; 
    DSOKHYSXXDSDesigner5: TStringField; 
    DSOKHYSXXDSDesigner6: TStringField; 
    DSOKHYSXXDSDesigner7: TStringField; 
    DSOHWTYXXDSDesigner: TStringField; 
    DSOHWTYXXDSDesigner2: TStringField; 
    DSOHWTYXXDSDesigner3: TStringField; 
    DSOHWTYXXDSDesigner4: TStringField; 
    DSOHWTYXXDSDesigner5: TStringField; 
    DSOHWTYXXDSDesigner6: TStringField; 
    DSOHWTYXXDSDesigner7: TStringField; 
    DSOHWTYXXDSDesigner8: TStringField; 
    DSOHWTYXXDSDesigner9: TStringField; 
    DSOHWTYXXDSDesigner10: TStringField; 
    DSOHWTYXXDSDesigner11: TStringField; 
    DSOHWTYXXDSDesigner12: TStringField; 
    DSOHWTYXXDSDesigner13: TStringField; 
    DSOHWTYXXDSDesigner14: TStringField; 
    DSOHWTYXXDSDesigner15: TStringField; 
    DSOHWTYXXDSDesigner16: TStringField; 
    DSOHWTYXXDSDesigner17: TFloatField; 
    DSOHWTYXXDSDesigner18: TFloatField; 
    DSOHWTYXXDSDesigner19: TFloatField; 
    DSOHWTYXXDSDesigner20: TStringField; 
    DSOHWTYXXDSDesigner21: TFloatField; 
    DSOHWTYXXDSDesigner22: TFloatField; 
    DSOHWTYXXDSDesigner23: TStringField; 
    DSOHWSQXXDSDesigner: TStringField; 
    DSOHWSQXXDSDesigner2: TStringField; 
    DSOHWSQXXDSDesigner3: TStringField; 
    DSOHWSQXXDSDesigner4: TDateTimeField; 
    DSOHWSQXXDSDesigner5: TStringField; 
    DSOHWSQXXDSDesigner6: TStringField; 
    DSOHWSQXXDSDesigner7: TStringField; 
    DSOHWSQXXDSDesigner8: TDateTimeField; 
    DSOHWSQXXDSDesigner9: TStringField; 
    DSOHWSQXXDSDesigner10: TFloatField; 
    DSOHWSQXXDSDesigner11: TStringField; 
    DSOHWSQXXDSDesigner12: TStringField; 
    DSOHWSQXXDSDesigner13: TStringField; 
    DSOHWSQXXDSDesigner14: TFloatField; 
    DSOHWSQXXDSDesigner15: TStringField; 
    DSOHWSQXXDSDesigner16: TStringField; 
    DSOHWSQXXDSDesigner17: TStringField; 
    DSOHWSQXXDSDesigner18: TFloatField; 
    DSOHWSQXXDSDesigner19: TStringField; 
    DSOHWSQXXDSDesigner20: TStringField; 
    DSOHWSQXXDSDesigner21: TStringField; 
    DSOHWSQXXDSDesigner22: TStringField; 
    DSOHWSQXXDSDesigner23: TStringField; 
    DSOHWSQXXDSDesigner24: TStringField; 
    DSOHWSQXXDSDesigner25: TStringField; 
    DSOHWSQXXDSDesigner26: TStringField; 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  DM: TDM; 
 
implementation 
 
uses  ULOGIN, UMAIN, USC; 
 
{$R *.dfm} 
 
end.