udm.pas

明日科技的《Delphi数据库开发案例精选》中的资源管理系统源代码。界面美观

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.