u_data.dfm

《delphi数据库系统开发实例导航》源代码

object DM_main: TDM_main
  OldCreateOrder = False
  Left = 250
  Top = 171
  Height = 480
  Width = 696
  object Database: TDatabase
    AliasName = 'PMISDB'
    DatabaseName = 'PMISData'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=red:d:\database\PMISDB.gdb'
      'USER NAME=PMISDBA'
      '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=password')
    SessionName = 'Default'
    Left = 24
    Top = 24
  end
  object T_code: TTable
    DatabaseName = 'PMISData'
    TableName = 'ROOM_LEVEL'
    Left = 24
    Top = 96
  end
  object DS_code: TDataSource
    DataSet = T_code
    Left = 88
    Top = 96
  end
  object T_operator: TTable
    OnNewRecord = T_operatorNewRecord
    DatabaseName = 'PMISData'
    TableName = 'PERSON'
    Left = 24
    Top = 168
  end
  object DS_operator: TDataSource
    DataSet = T_operator
    Left = 88
    Top = 168
  end
  object T_add_room: TTable
    DatabaseName = 'PMISData'
    TableName = 'ROOM'
    Left = 24
    Top = 248
  end
  object DS_add_room: TDataSource
    DataSet = T_add_room
    Left = 96
    Top = 248
  end
  object T_room_level: TTable
    DatabaseName = 'PMISData'
    TableName = 'ROOM_LEVEL'
    Left = 24
    Top = 296
  end
  object DS_room_level: TDataSource
    DataSet = T_room_level
    Left = 96
    Top = 296
  end
  object T_room_state: TTable
    DatabaseName = 'PMISData'
    TableName = 'ROOM_STATE'
    Left = 24
    Top = 344
  end
  object DS_room_state: TDataSource
    DataSet = T_room_state
    Left = 96
    Top = 344
  end
  object DS_modify: TDataSource
    DataSet = T_room_modify
    Left = 280
    Top = 24
  end
  object T_room_modify: TTable
    AfterScroll = T_room_modifyAfterScroll
    DatabaseName = 'PMISData'
    TableName = 'ROOM'
    Left = 208
    Top = 24
  end
  object T_room_level2: TTable
    DatabaseName = 'PMISData'
    TableName = 'ROOM_LEVEL'
    Left = 208
    Top = 72
  end
  object DS_room_level2: TDataSource
    DataSet = T_room_level2
    Left = 288
    Top = 72
  end
  object T_room_state2: TTable
    DatabaseName = 'PMISData'
    TableName = 'ROOM_STATE'
    Left = 208
    Top = 120
  end
  object DS_room_state2: TDataSource
    DataSet = T_room_state2
    Left = 288
    Top = 120
  end
  object Q_roommate: TQuery
    DatabaseName = 'PMISData'
    DataSource = DS_modify
    SQL.Strings = (
      'SELECT C.ID, C.NAME'
      'FROM SHEET_ITEMS S LEFT JOIN CUSTOM C ON S.CUSTOM=C.ID'
      'WHERE S.ROOM=:ID'
      'AND S.START_TIME<"NOW"'
      'AND S.END_TIME>"NOW"')
    Left = 208
    Top = 168
    ParamData = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInput
      end>
  end
  object DS_roommate: TDataSource
    DataSet = Q_roommate
    Left = 288
    Top = 168
  end
  object Q_room_level: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT DESCRIPT'
      'FROM ROOM_LEVEL'
      'ORDER BY CODE')
    Left = 208
    Top = 248
  end
  object Q_turnover: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT SUM(TOTAL_COST)'
      'FROM WORKSHEET'
      'WHERE STAGE='#39'2'#39
      'AND UPDATE_TIME>:START_TIME'
      'AND UPDATE_TIME<:END_TIME')
    Left = 208
    Top = 304
    ParamData = <
      item
        DataType = ftDateTime
        Name = 'START_TIME'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'END_TIME'
        ParamType = ptInput
        Value = 0d
      end>
  end
  object Q_used_room: TQuery
    DatabaseName = 'PMISData'
    SQL.Strings = (
      'SELECT COUNT(S.ROOM)'
      'FROM SHEET_ITEMS S'
      ' LEFT JOIN ROOM R ON S.ROOM=R.ID '
      'WHERE R.ROOM_LEVEL LIKE :LEVEL'
      'AND S.START_TIME<:DAY'
      'AND S.END_TIME>:DAY')
    Left = 296
    Top = 304
    ParamData = <
      item
        DataType = ftString
        Name = 'LEVEL'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftDateTime
        Name = 'DAY'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'DAY'
        ParamType = ptInput
      end>
  end
end