unitdmhotel.~dfm

来自「自己做过的工程」· ~DFM 代码 · 共 331 行

object DMHotel: TDMHotel
  OldCreateOrder = False
  Top = 31
  Height = 580
  Width = 808
  object ds_sys_user: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from sys_user'
    Parameters = <>
    Left = 144
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 64
  end
  object ds_room_price_set: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_price_set'
    Parameters = <>
    Left = 336
    Top = 64
  end
  object ds_sup_price_set: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from sup_price_set'
    Parameters = <>
    Left = 336
    Top = 128
  end
  object ds_sys_log: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from sys_log'
    Parameters = <>
    Left = 240
    Top = 8
  end
  object ADODataSetitemnumber: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from item_number'
    Parameters = <>
    Left = 456
    Top = 8
  end
  object ds_dictionary: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from dictionary'
    Parameters = <>
    Left = 232
    Top = 64
  end
  object ds_dictionary_setsuptype: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from dictionary '#13#10'where  dicsort='#39'supclass'#39
    Parameters = <>
    Left = 232
    Top = 128
  end
  object ds_sup_room_status: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from sup_room_status'
    Parameters = <>
    Left = 336
    Top = 8
  end
  object ds_sroom_book: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from sroom_book'
    Parameters = <>
    Left = 32
    Top = 128
  end
  object ds_sup_detail: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'select *  from sup_detail where iscancellation='#39'0'#39' and ischeck='#39 +
      'no'#39
    Parameters = <>
    Left = 144
    Top = 64
  end
  object ds_sup_consume_detail: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'select * from sup_consume_detail where (supuserid=:sdid) and (is' +
      'cancellation='#39'0'#39')'
    Parameters = <
      item
        Name = 'sdid'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 144
    Top = 128
  end
  object ds_sroom_book_query: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from sroom_book'
    Parameters = <>
    Left = 56
    Top = 224
  end
  object ds_sup_detail_query: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select *  from sup_detail'
    Parameters = <>
    Left = 160
    Top = 224
  end
  object ADODataSetroombookquery: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select *  from room_book'
    Parameters = <>
    Left = 688
    Top = 224
  end
  object ADODataSetroominquery: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_in'
    Parameters = <>
    Left = 552
    Top = 224
  end
  object ADODataSetroomstatus: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_status'
    Parameters = <>
    Left = 584
    Top = 8
  end
  object ds_sup_consume_detail_query: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'select  *   from  VIEW_sup_consume_detail_query'#13#10'where (EXPR2='#39'0' +
      #39') and (EXPR3='#39'no'#39') and  (iscancellation='#39'0'#39') and (supuserid=:sd' +
      'id)'
    Parameters = <
      item
        Name = 'sdid'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    Left = 408
    Top = 224
  end
  object ADODataSet_roomin: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_in where leftornot='#39'no'#39' order by roomid'
    Parameters = <>
    Left = 456
    Top = 128
  end
  object ADODataSet_itemnumber: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from item_number'
    Parameters = <>
    Left = 456
    Top = 64
  end
  object ADODataSet_roombook: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_book  order  by  roomid  '
    Parameters = <>
    Left = 704
    Top = 8
  end
  object ADODataSet_roomdebt: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_debt where checkornot='#39#27424#36134#39
    Parameters = <>
    Left = 568
    Top = 64
  end
  object ADODataSet_roomfee: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_fee'
    Parameters = <>
    Left = 568
    Top = 128
  end
  object ADODataSet_roomstatus: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_status'
    Parameters = <>
    Left = 696
    Top = 64
  end
  object ADODataSet_customerdebt: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 
      'select * from customer_debt where checkornot='#39#27424#36134#39'  order by inde' +
      'bttime  desc'
    Parameters = <>
    Left = 696
    Top = 128
  end
  object DataSource_roomdebt: TDataSource
    DataSet = ADODataSet_roomdebt
    Left = 120
    Top = 472
  end
  object DataSource_roombook: TDataSource
    DataSet = ADODataSet_roombook
    Left = 256
    Top = 472
  end
  object DataSource_roomin: TDataSource
    DataSet = ADODataSet_roomin
    Left = 376
    Top = 472
  end
  object DataSource_itemnumber: TDataSource
    DataSet = ADODataSet_itemnumber
    Left = 512
    Top = 472
  end
  object DataSource_customerdebt: TDataSource
    DataSet = ADODataSet_customerdebt
    Left = 648
    Top = 472
  end
  object ds_sup_room_status_query: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from sup_room_status'
    Parameters = <>
    Left = 56
    Top = 304
  end
  object ds_sup_check_query: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from sup_detail'
    Parameters = <>
    Left = 160
    Top = 304
  end
  object ADODataSet_roomredebt_requery: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_debt where checkornot='#39#24080#21153#24050#36824#28165#39
    Parameters = <>
    Left = 368
    Top = 344
  end
  object ADODataSet_roomstatus_requery: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_status'
    Parameters = <>
    Left = 560
    Top = 280
  end
  object ADODataSet_roomfee_requery: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_fee'
    Parameters = <>
    Left = 688
    Top = 280
  end
  object ADODataSet_roomdebt_requery: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from room_debt  where checkornot='#39#27424#36134#39
    Parameters = <>
    Left = 696
    Top = 344
  end
  object ADODataSet_customerdebt_requery: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from customer_debt where checkornot='#39#27424#36134#39
    Parameters = <>
    Left = 560
    Top = 328
  end
  object ADODataSet_customerRedebt_requery: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from customer_debt where checkornot='#39#24080#21153#24050#36824#28165#39
    Parameters = <>
    Left = 360
    Top = 280
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=00000;Persist Security Info=True;Us' +
      'er ID=sa;Initial Catalog=Hotel;Data Source='#26381#21153#22120';Use Procedure for' +
      ' Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID='#26381 +
      #21153#22120';Use Encryption for Data=False;Tag with column collation when ' +
      'possible=False'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 8
  end
end