database.~pas

来自「我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的」· ~PAS 代码 · 共 61 行

unit DataBase;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, Menus;

type
  TDataModule1 = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADOQ_worker: TADOQuery;
    ADOQ_SysUser: TADOQuery;
    ADOQ_SysMyCorp: TADOQuery;
    ADOQ_SysParm: TADOQuery;
    ADOQ_SysUser_Function: TADOQuery;
    ADOQ_SysModule: TADOQuery;
    ADOQ_SQL: TADOQuery;
    ADOQ_SysUseruserid: TWideStringField;
    ADOQ_SysUserusername: TWideStringField;
    ADOQ_SysUserpassword: TWideStringField;
    ADOQ_SysUseruserlevel: TWideStringField;
    ADOQ_SysUsersuperflag: TWideStringField;
    ADOQ_SysUser_Functionuser_id: TWideStringField;
    ADOQ_SysUser_Functionmodule_id: TWideStringField;
    ADOQ_SysUser_FunctionIsOpen: TWideStringField;
    ADOQ_SysUser_FunctionModule_Desc: TWideStringField;
    ADOQ_SysUser_FunctionModule_Type: TWideStringField;
    ADOQ_SysModulemoduleid: TWideStringField;
    ADOQ_SysModulemoduledesc: TWideStringField;
    ADOQ_SysModuleModuleType: TWideStringField;
    ADOQ_SysModulemenuName: TWideStringField;
    ADOQ_SysModuleobjectName: TWideStringField;
    ADOQ_SysModuleobjectParm: TWideStringField;
    ADOQ_SysModuleParentModuleId: TWideStringField;
    ADOQ_SysUser_Functionid: TAutoIncField;
    //
  private
    { Private declarations }
  public
    { Public declarations }
    TotalQuantity:integer;
    RecCount:Integer;
    TotalAmount:real;

  end;

var
  DataModule1: TDataModule1;

implementation
{$R *.DFM}

{ TDataModule1 }



end.