mydata.pas

是个办公系统,可以实现财务上的管理和人员的流动

unit MyData;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdm = class(TDataModule)
    AQCustName: TADOQuery;
    AQCustInfo: TADOQuery;
    DSCustInfo: TDataSource;
    AQDeptName: TADOQuery;
    DSFimaly: TDataSource;
    ATFimaly: TADOTable;
    AQConnact: TADOQuery;
    DSContact: TDataSource;
    AQSalesman: TADOQuery;
    AQArea: TADOQuery;
    AQProName: TADOQuery;
    AQStatus: TADOQuery;
    AQClass: TADOQuery;
    AQCus: TADOQuery;
    AQService: TADOQuery;
    AQAll: TADOQuery;
    AQserveradd: TADOQuery;
    DSserveradd: TDataSource;
    AQChart: TADOQuery;
    DSChart: TDataSource;
    ATContact: TADOTable;
    ATCustInfo: TADOTable;
    AQItems: TADOQuery;
    ATItems: TADOTable;
    DSItems: TDataSource;
    AQDailyCost: TADOQuery;
    DSDailyCost: TDataSource;
    AQEmpname: TADOQuery;
    AQSalary: TADOQuery;
    DSSalary: TDataSource;
    DSPayWages: TDataSource;
    AQPayWages: TADOQuery;
    AQSumSal: TADOQuery;
    DSSumSal: TDataSource;
    AQWagesSum: TADOQuery;
    DSWagesSum: TDataSource;
    ADOConn: TADOConnection;
    AQMintech: TADOQuery;
    DSMintech: TDataSource;
    AQProject: TADOQuery;
    DSProject: TDataSource;
    AQDeptEmp: TADOQuery;
    AQUsers: TADOQuery;
    AQDept: TADOQuery;
    AQHistory: TADOQuery;
    ATLogHistory: TADOTable;
    DSLogHistory: TDataSource;
    DSUsers: TDataSource;
    ATService: TADOTable;
    DSService: TDataSource;
    AQUsersMgr: TADOQuery;
    DSUsersMgr: TDataSource;
    AQsal: TADOQuery;
    DSsal: TDataSource;
    AQCostSal: TADOQuery;
    DSCostSal: TDataSource;
    DSTodayWork: TDataSource;
    AQTodayWork: TADOQuery;
    AQEmpInfo: TADOQuery;
    ATEmpInfo: TADOTable;
    DSEmpInfo: TDataSource;
    ATMintech: TADOTable;
    AQPublic: TADOQuery;
    ATPayWages: TADOTable;
    ADOCMD: TADOCommand;
    AQRequire: TADOQuery;
    DSRequire: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation
{$R *.dfm}
end.