database.~pas

我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的

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.