database.~dfm

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

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 202
  Top = 209
  Height = 570
  Width = 797
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\'#25151#20135#20013#20171'\'#25151#20135#20013#20171#31649#29702#31995#32479'\Da' +
      'ta.mdb;Persist Security Info=False'
    CursorLocation = clUseServer
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 57
    Top = 23
  end
  object ADOQ_worker: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from '#20581#24247#26816#26597#34920)
    Left = 89
    Top = 262
  end
  object ADOQ_SysUser: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from sys_user')
    Left = 236
    Top = 58
    object ADOQ_SysUseruserid: TWideStringField
      FieldName = 'userid'
      Size = 10
    end
    object ADOQ_SysUserusername: TWideStringField
      FieldName = 'username'
    end
    object ADOQ_SysUserpassword: TWideStringField
      FieldName = 'password'
      Size = 12
    end
    object ADOQ_SysUseruserlevel: TWideStringField
      FieldName = 'userlevel'
      Size = 3
    end
    object ADOQ_SysUsersuperflag: TWideStringField
      FieldName = 'superflag'
      FixedChar = True
      Size = 1
    end
  end
  object ADOQ_SysMyCorp: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select TOP 1 * from Sys_MyCorp')
    Left = 424
    Top = 126
  end
  object ADOQ_SysParm: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select top 1 * from sys_Parm'
      '')
    Left = 430
    Top = 200
  end
  object ADOQ_SysUser_Function: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'UserId'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT Sys_User_Function.*,Sys_Module.ModuleDesc as Module_Desc,' +
        'Sys_Module.ModuleType as Module_Type FROM Sys_User_Function,Sys_' +
        'Module Where Sys_User_Function.Module_id=Sys_Module.ModuleId and' +
        ' user_id=:UserId   ORDER BY ModuleType desc'
      ''
      '')
    Left = 376
    Top = 29
    object ADOQ_SysUser_Functionuser_id: TWideStringField
      FieldName = 'user_id'
      Size = 10
    end
    object ADOQ_SysUser_Functionmodule_id: TWideStringField
      FieldName = 'module_id'
      Size = 10
    end
    object ADOQ_SysUser_FunctionIsOpen: TWideStringField
      FieldName = 'IsOpen'
      FixedChar = True
      Size = 1
    end
    object ADOQ_SysUser_FunctionModule_Desc: TWideStringField
      FieldName = 'Module_Desc'
      Size = 50
    end
    object ADOQ_SysUser_FunctionModule_Type: TWideStringField
      FieldName = 'Module_Type'
    end
    object ADOQ_SysUser_Functionid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
  end
  object ADOQ_SysModule: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from sys_Module')
    Left = 505
    Top = 33
    object ADOQ_SysModulemoduleid: TWideStringField
      FieldName = 'moduleid'
      Size = 10
    end
    object ADOQ_SysModulemoduledesc: TWideStringField
      FieldName = 'moduledesc'
      Size = 50
    end
    object ADOQ_SysModuleModuleType: TWideStringField
      FieldName = 'ModuleType'
    end
    object ADOQ_SysModulemenuName: TWideStringField
      FieldName = 'menuName'
    end
    object ADOQ_SysModuleobjectName: TWideStringField
      FieldName = 'objectName'
      Size = 40
    end
    object ADOQ_SysModuleobjectParm: TWideStringField
      FieldName = 'objectParm'
      Size = 10
    end
    object ADOQ_SysModuleParentModuleId: TWideStringField
      FieldName = 'ParentModuleId'
      Size = 10
    end
  end
  object ADOQ_SQL: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 288
    Top = 332
  end
end