datamodulefrm.dfm

支持多用户有不同的权限采用MDI界面由于没有打包

object DataModule2: TDataModule2
  OldCreateOrder = False
  Left = 192
  Top = 107
  Height = 375
  Width = 544
  object Database1: TDatabase
    AliasName = 'nthouse'
    Connected = True
    DatabaseName = 'house'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 16
    Top = 16
  end
  object housequery1: TQuery
    DatabaseName = 'house'
    SQL.Strings = (
      'select * from house  where '#25968#25454#24615#36136'='#39'2'#39)
    Left = 80
    Top = 16
  end
  object housesource1: TDataSource
    DataSet = housequery1
    Left = 136
    Top = 16
  end
  object userTable: TTable
    Active = True
    DatabaseName = 'house'
    TableName = 'user'
    Left = 16
    Top = 72
  end
  object inputtable: TTable
    Active = True
    DatabaseName = 'house'
    TableName = 'house'
    Left = 72
    Top = 72
    object input1: TAutoIncField
      FieldName = #20013#20171#32534#21495
    end
    object input2: TStringField
      DisplayWidth = 10
      FieldName = #22320#21306
    end
    object input3: TStringField
      DisplayWidth = 10
      FieldName = #22320#28857
      Size = 40
    end
    object input4: TStringField
      DisplayWidth = 10
      FieldName = #20301#32622
      Size = 40
    end
    object input5: TFloatField
      FieldName = #24314#31569#38754#31215
    end
    object input6: TFloatField
      FieldName = #20351#29992#38754#31215
    end
    object input7: TSmallintField
      FieldName = #23618#27425
    end
    object input8: TSmallintField
      FieldName = #27004#39640
    end
    object input9: TStringField
      FieldName = #20132#26131#31867#22411
      Size = 8
    end
    object input10: TStringField
      DisplayWidth = 10
      FieldName = #25151#23627#29992#36884
      Size = 16
    end
    object input11: TStringField
      DisplayWidth = 10
      FieldName = #25151#23627#31867#22411
      Size = 12
    end
    object input12: TStringField
      DisplayWidth = 10
      FieldName = #25151#23627#24615#36136
    end
    object input13: TStringField
      DisplayWidth = 10
      FieldName = #22791#27880#35828#26126
      Size = 100
    end
    object input14: TStringField
      DisplayWidth = 10
      FieldName = #32852#31995#20154
      Size = 16
    end
    object input15: TStringField
      DisplayWidth = 10
      FieldName = #32852#31995#30005#35805
    end
    object input16: TStringField
      DisplayWidth = 10
      FieldName = 'BP'#26426
      Size = 24
    end
    object input17: TStringField
      DisplayWidth = 10
      FieldName = 'email'
      Size = 32
    end
    object input18: TStringField
      DisplayWidth = 10
      FieldName = #25552#20379#32773#24080#21495
    end
    object input19: TStringField
      DisplayWidth = 10
      FieldName = #26397#21521
      Size = 8
    end
    object input20: TSmallintField
      FieldName = #25151#22411#23460
    end
    object input21: TSmallintField
      FieldName = #25151#22411#21381
    end
    object input22: TSmallintField
      FieldName = #25151#22411#21355
    end
    object input23: TStringField
      DisplayWidth = 10
      FieldName = #25151#22411
    end
    object input24: TFloatField
      FieldName = #26376#31199#37329
    end
    object input25: TFloatField
      FieldName = #38144#21806#20215
    end
    object input26: TBooleanField
      FieldName = #27700
      Required = True
    end
    object input27: TBooleanField
      FieldName = #30005
      Required = True
    end
    object input28: TBooleanField
      FieldName = #29028#27668
      Required = True
    end
    object input29: TBooleanField
      FieldName = #38381#36335#30005#35270
      Required = True
    end
    object input30: TBooleanField
      FieldName = #23553#38451#21488
      Required = True
    end
    object input31: TBooleanField
      FieldName = #36710#24211
      Required = True
    end
    object input32: TBooleanField
      FieldName = #30005#35805
      Required = True
    end
    object input33: TBooleanField
      FieldName = #28909#27700#22120
      Required = True
    end
    object input34: TBooleanField
      FieldName = #31354#35843
      Required = True
    end
    object input35: TBooleanField
      FieldName = #24425#30005
      Required = True
    end
    object input36: TBooleanField
      FieldName = #20912#31665
      Required = True
    end
    object input37: TBooleanField
      FieldName = #27927#34915#26426
      Required = True
    end
    object input38: TBooleanField
      FieldName = #23478#20855
      Required = True
    end
    object input39: TStringField
      DisplayWidth = 10
      FieldName = #35814#24773
      Size = 100
    end
    object input40: TDateTimeField
      DisplayWidth = 10
      FieldName = #30331#35760#26085#26399
    end
    object input41: TBooleanField
      FieldName = #25512#33616#20013#20171
      Required = True
    end
    object input42: TDateTimeField
      DisplayWidth = 10
      FieldName = #21024#38500#26085#26399
    end
    object input43: TStringField
      DisplayWidth = 10
      FieldName = #22871#22411
    end
    object input44: TStringField
      DisplayWidth = 10
      FieldName = #24314#31569#24180#20221
      Size = 16
    end
    object input45: TStringField
      FieldName = #25968#25454#24615#36136
      Size = 4
    end
  end
  object inputsource: TDataSource
    DataSet = inputtable
    Left = 136
    Top = 72
  end
  object changeusertable: TTable
    Active = True
    DatabaseName = 'house'
    TableName = 'password'
    Left = 24
    Top = 128
  end
  object outQuery: TQuery
    DatabaseName = 'house'
    SQL.Strings = (
      'select * from house  where '#25968#25454#24615#36136'=:a')
    Left = 96
    Top = 128
    ParamData = <
      item
        DataType = ftString
        Name = 'a'
        ParamType = ptUnknown
      end>
  end
  object outDataSource: TDataSource
    DataSet = outQuery
    Left = 160
    Top = 128
  end
  object bargainquery: TQuery
    DatabaseName = 'house'
    SQL.Strings = (
      'select * from bargain where '#20013#20171#32534#21495'='#39'84'#39)
    Left = 32
    Top = 232
    object bargainqueryBDEDesigner: TIntegerField
      FieldName = #25104#20132#32534#21495
      Origin = 'HOUSE.bargain.'#25104#20132#32534#21495
    end
    object bargainqueryBDEDesigner2: TStringField
      FieldName = #20013#20171#32534#21495
      Origin = 'HOUSE.bargain.'#20013#20171#32534#21495
      Size = 10
    end
    object bargainqueryBDEDesigner3: TStringField
      DisplayWidth = 10
      FieldName = #20080#26041#22995#21517
      Origin = 'HOUSE.bargain.'#20080#26041#22995#21517
      Size = 8
    end
    object bargainqueryBDEDesigner4: TStringField
      DisplayWidth = 10
      FieldName = #20080#26041#30005#35805
      Origin = 'HOUSE.bargain.'#20080#26041#30005#35805
      Size = 10
    end
    object bargainqueryBP: TStringField
      DisplayWidth = 10
      FieldName = #20080#26041'BP'#26426
      Origin = 'HOUSE.bargain.'#20080#26041'BP'#26426
      Size = 12
    end
    object bargainqueryEmail: TStringField
      DisplayWidth = 10
      FieldName = #20080#26041'Email'
      Origin = 'HOUSE.bargain.'#20080#26041'Email'
      Size = 16
    end
    object bargainqueryBDEDesigner5: TStringField
      DisplayWidth = 10
      FieldName = #20080#26041#20303#22336
      Origin = 'HOUSE.bargain.'#20080#26041#20303#22336
      Size = 50
    end
    object bargainqueryBDEDesigner44: TDateTimeField
      DisplayWidth = 10
      FieldName = #25104#20132#26085#26399
      Origin = 'HOUSE.bargain.'#25104#20132#26085#26399
    end
    object bargainqueryBDEDesigner6: TStringField
      DisplayWidth = 10
      FieldName = #22320#21306
      Origin = 'HOUSE.bargain.'#22320#21306
      Size = 10
    end
    object bargainqueryBDEDesigner7: TStringField
      DisplayWidth = 10
      FieldName = #22320#28857
      Origin = 'HOUSE.bargain.'#22320#28857
    end
    object bargainqueryBDEDesigner8: TStringField
      DisplayWidth = 10
      FieldName = #20301#32622
      Origin = 'HOUSE.bargain.'#20301#32622
    end
    object bargainqueryBDEDesigner9: TFloatField
      FieldName = #24314#31569#38754#31215
      Origin = 'HOUSE.bargain.'#24314#31569#38754#31215
    end
    object bargainqueryBDEDesigner10: TFloatField
      FieldName = #20351#29992#38754#31215
      Origin = 'HOUSE.bargain.'#20351#29992#38754#31215
    end
    object bargainqueryBDEDesigner11: TSmallintField
      FieldName = #23618#27425
      Origin = 'HOUSE.bargain.'#23618#27425
    end
    object bargainqueryBDEDesigner12: TSmallintField
      FieldName = #27004#39640
      Origin = 'HOUSE.bargain.'#27004#39640
    end
    object bargainqueryBDEDesigner13: TStringField
      FieldName = #20132#26131#31867#22411
      Origin = 'HOUSE.bargain.'#20132#26131#31867#22411
      Size = 4
    end
    object bargainqueryBDEDesigner14: TStringField
      FieldName = #25151#23627#29992#36884
      Origin = 'HOUSE.bargain.'#25151#23627#29992#36884
      Size = 8
    end
    object bargainqueryBDEDesigner15: TStringField
      FieldName = #25151#23627#31867#22411
      Origin = 'HOUSE.bargain.'#25151#23627#31867#22411
      Size = 6
    end
    object bargainqueryBDEDesigner16: TStringField
      FieldName = #25151#23627#24615#36136
      Origin = 'HOUSE.bargain.'#25151#23627#24615#36136
      Size = 10
    end
    object bargainqueryBDEDesigner17: TStringField
      DisplayWidth = 10
      FieldName = #22791#27880#35828#26126
      Origin = 'HOUSE.bargain.'#22791#27880#35828#26126
      Size = 50
    end
    object bargainqueryBDEDesigner18: TStringField
      DisplayWidth = 10
      FieldName = #32852#31995#20154
      Origin = 'HOUSE.bargain.'#32852#31995#20154
      Size = 8
    end
    object bargainqueryBDEDesigner19: TStringField
      FieldName = #32852#31995#30005#35805
      Origin = 'HOUSE.bargain.'#32852#31995#30005#35805
      Size = 10
    end
    object bargainqueryBP2: TStringField
      DisplayWidth = 10
      FieldName = 'BP'#26426
      Origin = 'HOUSE.bargain.BP'#26426
      Size = 12
    end
    object bargainqueryEmail2: TStringField
      DisplayWidth = 10
      FieldName = 'Email'
      Origin = 'HOUSE.bargain.Email'
      Size = 16
    end
    object bargainqueryBDEDesigner20: TStringField
      FieldName = #25552#20379#32773#24080#21495
      Origin = 'HOUSE.bargain.'#25552#20379#32773#24080#21495
      Size = 10
    end
    object bargainqueryBDEDesigner21: TStringField
      FieldName = #26397#21521
      Origin = 'HOUSE.bargain.'#26397#21521
      Size = 4
    end
    object bargainqueryBDEDesigner22: TSmallintField
      FieldName = #25151#22411#23460
      Origin = 'HOUSE.bargain.'#25151#22411#23460
    end
    object bargainqueryBDEDesigner23: TSmallintField
      FieldName = #25151#22411#21381
      Origin = 'HOUSE.bargain.'#25151#22411#21381
    end
    object bargainqueryBDEDesigner24: TSmallintField
      FieldName = #25151#22411#21355
      Origin = 'HOUSE.bargain.'#25151#22411#21355
    end
    object bargainqueryBDEDesigner25: TStringField
      FieldName = #25151#22411
      Origin = 'HOUSE.bargain.'#25151#22411
      Size = 10
    end
    object bargainqueryBDEDesigner26: TFloatField
      FieldName = #26376#31199#37329
      Origin = 'HOUSE.bargain.'#26376#31199#37329
    end
    object bargainqueryBDEDesigner27: TFloatField
      FieldName = #38144#21806#20215
      Origin = 'HOUSE.bargain.'#38144#21806#20215
    end