u_data.dfm

本系统分为前台和后台两部分：前台用来实现客户预订、入住等操作

object DM_main: TDM_main
  OldCreateOrder = False
  Left = 202
  Top = 103
  Height = 621
  Width = 784
  object Database: TDatabase
    AliasName = 'PMISDB'
    Connected = True
    DatabaseName = 'PMISData'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME='
      'USER NAME=HotelAdmin'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=123qwe')
    SessionName = 'Default'
    Left = 32
    Top = 24
  end
  object Q_login: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT NAME'
      'FROM PERSON'
      'WHERE ID=:ID'
      'AND PASSWD=:PASSWD')
    Left = 32
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PASSWD'
        ParamType = ptUnknown
      end>
  end
  object Q_room_valid: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      
        'SELECT MAX(R.ID) AS ID, MAX(R.PLACE) AS PLACE, MAX(R.REMARK) AS ' +
        'REMARK'
      'FROM ROOM R'
      'WHERE R.STATE=0'
      'AND R.ROOM_LEVEL=:LEVEL'
      'AND  (SELECT COUNT(S.ID) FROM SHEET_ITEMS S WHERE S.ROOM=R.ID'
      '  AND (NOT(S.START_TIME>:END_TIME OR S.END_TIME<:START_TIME)))=0'
      'GROUP BY R.ID')
    Left = 224
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'LEVEL'
        ParamType = ptUnknown
      end
      item
        DataType = ftDateTime
        Name = 'END_TIME'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'START_TIME'
        ParamType = ptInput
        Value = 0d
      end>
  end
  object DS_room_valid: TDataSource
    DataSet = Q_room_valid
    Left = 320
    Top = 56
  end
  object Q_room_level: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT DESCRIPT'
      'FROM ROOM_LEVEL'
      'ORDER BY CODE')
    Left = 224
    Top = 8
  end
  object Q_custom: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT I.DESCRIPT, C.NAME, C.SEX, C.ADDR, C.REMARK'
      'FROM CUSTOM C LEFT JOIN ID_TYPE I ON C.ID_TYPE=I.CODE'
      'WHERE C.ID=:ID')
    Left = 224
    Top = 104
    ParamData = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_custom: TDataSource
    DataSet = Q_custom
    Left = 312
    Top = 104
  end
  object Q_id_type: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT DESCRIPT'
      'FROM ID_TYPE'
      'ORDER BY CODE')
    Left = 88
    Top = 96
  end
  object Q_add_custom: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'INSERT INTO CUSTOM'
      '(ID, ID_TYPE, NAME, SEX, COME_FROM, ADDR, ID_COPY, REMARK)'
      
        'VALUES (:ID, :ID_TYPE, :NAME, :SEX, :COME_FROM, :ADDR, :ID_COPY,' +
        ' :REMARK)')
    Left = 152
    Top = 96
    ParamData = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'ID_TYPE'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'NAME'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'SEX'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'COME_FROM'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'ADDR'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftBlob
        Name = 'ID_COPY'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'REMARK'
        ParamType = ptInput
        Value = ''
      end>
  end
  object Q_count_sheet: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT COUNT(ID)'
      'FROM WORKSHEET')
    Left = 224
    Top = 152
  end
  object Q_new_sheet: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'INSERT INTO WORKSHEET'
      '(ID, STAGE, UPDATE_TIME, RECORD_PERSON)'
      'VALUES (:ID, '#39'0'#39', GetDate(), :PERSON)')
    Left = 304
    Top = 152
    ParamData = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'PERSON'
        ParamType = ptInput
        Value = '0'
      end>
  end
  object T_add_items: TTable
    DatabaseName = 'PMISData'
    TableName = 'dbo.sheet_items'
    Left = 224
    Top = 200
  end
  object DS_add_items: TDataSource
    DataSet = T_add_items
    Left = 312
    Top = 200
  end
  object Q_custom2: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT I.DESCRIPT, C.NAME, C.SEX, C.ADDR, C.REMARK, C.ID_COPY'
      'FROM CUSTOM C LEFT JOIN ID_TYPE I ON C.ID_TYPE=I.CODE'
      'WHERE C.ID=:ID')
    Left = 224
    Top = 248
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object DS_custom2: TDataSource
    DataSet = Q_custom2
    Left = 312
    Top = 248
  end
  object Q_get_sheet: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT W.ID'
      'FROM SHEET_ITEMS S LEFT JOIN WORKSHEET W ON S.WORKSHEET=W.ID'
      'WHERE W.STAGE='#39'0'#39
      'AND S.CUSTOM=:ID'
      'GROUP BY W.ID')
    Left = 224
    Top = 296
    ParamData = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_get_sheet: TDataSource
    DataSet = Q_get_sheet
    Left = 312
    Top = 296
  end
  object T_add_items2: TTable
    DatabaseName = 'PMISData'
    TableName = 'dbo.sheet_items'
    Left = 224
    Top = 344
  end
  object DS_add_items2: TDataSource
    DataSet = T_add_items2
    Left = 312
    Top = 344
  end
  object Q_apply_sheet: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'UPDATE WORKSHEET'
      'SET STAGE='#39'1'#39
      'WHERE ID=:ID')
    Left = 224
    Top = 392
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'ID'
        ParamType = ptUnknown
      end>
  end
  object Q_worksheet: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT WORKSHEET'
      'FROM SHEET_ITEMS'
      'WHERE ROOM=:ROOM'
      'AND START_TIME<GetDate()'
      'AND END_TIME>GetDate()'
      'GROUP BY WORKSHEET')
    Left = 224
    Top = 440
    ParamData = <
      item
        DataType = ftString
        Name = 'ROOM'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_worksheet: TDataSource
    DataSet = Q_worksheet
    Left = 320
    Top = 440
  end
  object T_items_list: TTable
    DatabaseName = 'PMISData'
    IndexFieldNames = 'WORKSHEET'
    MasterFields = 'WORKSHEET'
    MasterSource = DS_worksheet
    TableName = 'SHEET_ITEMS'
    Left = 224
    Top = 488
  end
  object DS_items_list: TDataSource
    DataSet = T_items_list
    Left = 320
    Top = 488
  end
  object T_custom_info: TTable
    DatabaseName = 'PMISData'
    IndexFieldNames = 'ID'
    MasterFields = 'ID'
    MasterSource = DS_custom_list
    TableName = 'CUSTOM'
    Left = 32
    Top = 240
  end
  object DS_custom_info: TDataSource
    DataSet = T_custom_info
    Left = 120
    Top = 240
  end
  object Q_custom_list: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT ID'
      'FROM CUSTOM'
      'WHERE ID LIKE :ID')
    Left = 32
    Top = 192
    ParamData = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_custom_list: TDataSource
    DataSet = Q_custom_list
    Left = 120
    Top = 192
  end
  object T_id_type: TTable
    DatabaseName = 'PMISData'
    TableName = 'ID_TYPE'
    Left = 32
    Top = 296
  end
  object DS_id_type: TDataSource
    DataSet = T_id_type
    Left = 120
    Top = 296
  end
  object T_items_info: TTable
    DatabaseName = 'PMISData'
    IndexFieldNames = 'CUSTOM'
    MasterFields = 'ID'
    MasterSource = DS_custom_list
    TableName = 'SHEET_ITEMS'
    Left = 32
    Top = 344
  end
  object DS_items_info: TDataSource
    DataSet = T_items_info
    Left = 120
    Top = 344
  end
  object T_cost_list3: TTable
    DatabaseName = 'PMISData'
    IndexFieldNames = 'WORKSHEET'
    MasterFields = 'WORKSHEET'
    MasterSource = DS_worksheet3
    TableName = 'ADDITION'
    Left = 32
    Top = 480
  end
  object Q_worksheet3: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT WORKSHEET'
      'FROM SHEET_ITEMS'
      'WHERE ROOM=:ROOM'
      'AND START_TIME<GetDate()'
      'AND END_TIME>GetDate()'
      'GROUP BY WORKSHEET'
      '')
    Left = 32
    Top = 432
    ParamData = <
      item
        DataType = ftString
        Name = 'ROOM'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_worksheet3: TDataSource
    DataSet = Q_worksheet3
    Left = 120
    Top = 432
  end
  object DS_cost_list3: TDataSource
    DataSet = T_cost_list3
    Left = 120
    Top = 480
  end
  object Q_worksheet2: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT WORKSHEET'
      'FROM SHEET_ITEMS'
      'WHERE ROOM=:ROOM'
      'AND START_TIME<GetDate()'
      'AND END_TIME>GetDate()'
      'GROUP BY WORKSHEET')
    Left = 424
    Top = 360
    ParamData = <
      item
        DataType = ftString
        Name = 'ROOM'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_worksheet2: TDataSource
    DataSet = Q_worksheet2
    Left = 512
    Top = 360
  end
  object T_room_list2: TTable
    DatabaseName = 'PMISData'
    IndexFieldNames = 'WORKSHEET'
    MasterFields = 'WORKSHEET'
    MasterSource = DS_worksheet2
    TableName = 'SHEET_ITEMS'
    Left = 424
    Top = 416
  end
  object T_cost_list2: TTable
    DatabaseName = 'PMISData'
    IndexFieldNames = 'WORKSHEET'
    MasterFields = 'WORKSHEET'
    MasterSource = DS_worksheet2
    TableName = 'ADDITION'
    Left = 424
    Top = 472
  end
  object DS_room_list2: TDataSource
    DataSet = T_room_list2
    Left = 512
    Top = 416
  end
  object DS_cost_list2: TDataSource
    DataSet = T_cost_list2
    Left = 512
    Top = 472
  end
  object Q_room_price: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT L.PRICE'
      'FROM ROOM R LEFT JOIN ROOM_LEVEL L ON R.ROOM_LEVEL=L.CODE'
      'WHERE R.ID=:ROOM')
    Left = 424
    Top = 304
    ParamData = <
      item
        DataType = ftString
        Name = 'ROOM'
        ParamType = ptInput
        Value = '0'
      end>
  end
  object Q_end_bill: TQuery
    DatabaseName = 'PMISData'
    DataSource = DS_worksheet2
    SQL.Strings = (
      'UPDATE WORKSHEET'
      'SET STAGE='#39'2'#39',TOTAL_COST=:COST'
      'WHERE ID=:WORKSHEET')
    Left = 512
    Top = 304
    ParamData = <
      item
        DataType = ftInteger
        Name = 'COST'
        ParamType = ptInput
        Value = 0
      end
      item
        DataType = ftUnknown
        Name = 'WORKSHEET'
        ParamType = ptUnknown
      end>
  end
  object Q_getmax: TQuery
    DatabaseName = 'PMISData'
    Left = 424
    Top = 176
  end
  object T_foodmenu: TTable
    DatabaseName = 'PMISData'
    TableName = 'dbo.food_menu'
    Left = 512
    Top = 40
  end
  object DS_foodmenu: TDataSource
    DataSet = T_foodmenu
    Left = 616
    Top = 40
  end
  object DS_T_foodorder: TDataSource
    DataSet = T_foodorder
    Left = 616
    Top = 104
  end
  object T_foodorder: TTable
    AfterPost = T_foodorderAfterPost
    DatabaseName = 'PMISData'
    TableName = 'dbo.food_order'
    Left = 512
    Top = 104
  end
  object Q_count_order: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT COUNT(ID)'
      'FROM FOOD_ORDER')
    Left = 512
    Top = 176
  end
  object Q_sum_order: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'select sum(number*price) as price from order_detail '
      'where order_id=:id')
    Left = 512
    Top = 232
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'id'
        ParamType = ptUnknown
      end>
  end
end