maindata.~dfm

一个实用的房地产行业收费管理软件

object DataModule1: TDataModule1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 556
  Top = 163
  Height = 437
  Width = 323
  object Database1: TDatabase
    AliasName = 'floorb'
    Connected = True
    DatabaseName = 'floordata'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 48
    Top = 8
  end
  object searchq: TQuery
    CachedUpdates = True
    DatabaseName = 'floordata'
    RequestLive = True
    SQL.Strings = (
      'select * from company')
    Left = 112
    Top = 8
  end
  object cust: TDataSource
    DataSet = searchq
    Left = 112
    Top = 80
  end
  object loginq: TQuery
    DatabaseName = 'floordata'
    Left = 40
    Top = 80
  end
  object floorQ: TQuery
    DatabaseName = 'floordata'
    SQL.Strings = (
      'select * from floor')
    Left = 176
    Top = 8
  end
  object floors: TDataSource
    DataSet = floorQ
    Left = 176
    Top = 80
  end
  object sds: TDataSource
    DataSet = sdq
    Left = 136
    Top = 208
  end
  object htQ: TQuery
    AutoCalcFields = False
    DatabaseName = 'floordata'
    SQL.Strings = (
      
        'select a.*,b.custom,b.floor from ht a,company b where a.customno' +
        '=b.customno'
      'order by b.customno')
    Left = 168
    Top = 144
  end
  object hts: TDataSource
    DataSet = htQ
    Left = 112
    Top = 144
  end
  object insertcustom: TQuery
    DatabaseName = 'floordata'
    Left = 40
    Top = 152
  end
  object sdq: TQuery
    CachedUpdates = True
    DatabaseName = 'floordata'
    RequestLive = True
    SQL.Strings = (
      'select * from sd')
    Left = 32
    Top = 216
  end
  object insertsd: TQuery
    DatabaseName = 'floordata'
    Left = 128
    Top = 288
  end
  object insertfloor: TQuery
    DatabaseName = 'floordata'
    Left = 216
    Top = 288
  end
  object sdpriceQ: TQuery
    DatabaseName = 'floordata'
    Left = 200
    Top = 232
  end
  object htp: TQuery
    DatabaseName = 'floordata'
    SQL.Strings = (
      'select * from ht')
    Left = 32
    Top = 280
  end
  object printt: TQuery
    DatabaseName = 'floordata'
    Left = 32
    Top = 336
  end
  object tpq: TQuery
    DatabaseName = 'floordata'
    Left = 120
    Top = 344
  end
  object ptq: TQuery
    DatabaseName = 'floordata'
    Left = 232
    Top = 176
  end
end