u_data.dfm

repair repairrepairrepairrepair

object DM_main: TDM_main
  OldCreateOrder = False
  Left = 97
  Top = 152
  Height = 486
  Width = 918
  object Database: TDatabase
    AliasName = 'ERDB'
    DatabaseName = 'ERData'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=RED:d:\database\ERDB.gdb'
      'USER NAME=ERDBA'
      '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 = 32
    Top = 16
  end
  object Q_login: TQuery
    DatabaseName = 'ERData'
    SQL.Strings = (
      'SELECT NAME, AUTHORITY'
      'FROM ADB_PERSON'
      'WHERE ID=:ID'
      'AND PASSWD=:PASSWD')
    Left = 32
    Top = 80
    ParamData = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'PASSWD'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_login: TDataSource
    DataSet = Q_login
    Left = 96
    Top = 80
  end
  object T_person: TTable
    OnNewRecord = T_personNewRecord
    DatabaseName = 'ERData'
    TableName = 'ADB_PERSON'
    Left = 32
    Top = 144
  end
  object DS_person: TDataSource
    DataSet = T_person
    Left = 96
    Top = 144
  end
  object T_code: TTable
    DatabaseName = 'ERData'
    TableName = 'ADB_CAUSE'
    Left = 32
    Top = 352
  end
  object DS_code: TDataSource
    DataSet = T_code
    Left = 112
    Top = 352
  end
  object DS_wp_ungroup: TDataSource
    DataSet = Q_wp_ungroup
    Left = 112
    Top = 200
  end
  object DS_wp_group: TDataSource
    DataSet = Q_wp_group
    Left = 112
    Top = 248
  end
  object Q_wp_ungroup: TQuery
    DatabaseName = 'ERData'
    SQL.Strings = (
      'SELECT CODE'
      'FROM ADB_WORKPLACE'
      'WHERE EQUIP_GROUP='#39'00000'#39)
    Left = 32
    Top = 200
  end
  object Q_wp_group: TQuery
    DatabaseName = 'ERData'
    DataSource = DS_group
    SQL.Strings = (
      'SELECT CODE'
      'FROM ADB_WORKPLACE'
      'WHERE EQUIP_GROUP=:ID')
    Left = 32
    Top = 248
    ParamData = <
      item
        DataType = ftString
        Name = 'ID'
        ParamType = ptInput
        Value = ''
      end>
  end
  object T_group: TTable
    AfterOpen = T_groupAfterScroll
    AfterScroll = T_groupAfterScroll
    DatabaseName = 'ERData'
    Filter = 'ID<>'#39'00000'#39
    Filtered = True
    TableName = 'RDB_GROUP_INFO'
    Left = 32
    Top = 296
  end
  object DS_group: TDataSource
    DataSet = T_group
    Left = 112
    Top = 296
  end
  object Q_change_group: TQuery
    DatabaseName = 'ERData'
    SQL.Strings = (
      'UPDATE ADB_WORKPLACE'
      'SET EQUIP_GROUP=:GROUP'
      'WHERE CODE=:WORKPLACE')
    Left = 176
    Top = 176
    ParamData = <
      item
        DataType = ftString
        Name = 'GROUP'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftString
        Name = 'WORKPLACE'
        ParamType = ptInput
        Value = ''
      end>
  end
  object T_equip: TTable
    OnNewRecord = T_equipNewRecord
    DatabaseName = 'ERData'
    TableName = 'ADB_EQUIP'
    Left = 248
    Top = 16
  end
  object T_merchant: TTable
    DatabaseName = 'ERData'
    TableName = 'ADB_MERCHANT'
    Left = 248
    Top = 112
  end
  object T_workplace: TTable
    DatabaseName = 'ERData'
    TableName = 'ADB_WORKPLACE'
    Left = 248
    Top = 160
  end
  object DS_equip: TDataSource
    DataSet = T_equip
    Left = 320
    Top = 16
  end
  object DS_merchant: TDataSource
    DataSet = T_merchant
    Left = 320
    Top = 112
  end
  object DS_workplace: TDataSource
    DataSet = T_workplace
    Left = 320
    Top = 160
  end
  object Q_equip_num: TQuery
    DatabaseName = 'ERData'
    SQL.Strings = (
      'SELECT COUNT(ID)'
      'FROM ADB_EQUIP')
    Left = 248
    Top = 64
  end
  object T_movement: TTable
    BeforePost = T_movementBeforePost
    OnNewRecord = T_movementNewRecord
    DatabaseName = 'ERData'
    TableName = 'ODB_EQUIP_MOVEMENT'
    Left = 248
    Top = 240
  end
  object DS_movement: TDataSource
    DataSet = T_movement
    Left = 328
    Top = 240
  end
  object T_workplace2: TTable
    DatabaseName = 'ERData'
    TableName = 'ADB_WORKPLACE'
    Left = 248
    Top = 288
  end
  object DS_workplace2: TDataSource
    DataSet = T_workplace2
    Left = 328
    Top = 288
  end
  object T_equip2: TTable
    DatabaseName = 'ERData'
    IndexFieldNames = 'ID'
    MasterFields = 'EQUIP'
    MasterSource = DS_movement
    TableName = 'ADB_EQUIP'
    Left = 248
    Top = 336
  end
  object DS_equip2: TDataSource
    DataSet = T_equip2
    Left = 328
    Top = 336
  end
  object T_fail: TTable
    BeforePost = T_movementBeforePost
    OnNewRecord = T_failNewRecord
    DatabaseName = 'ERData'
    TableName = 'ODB_EQUIP_FAILURE'
    Left = 408
    Top = 16
  end
  object DS_fail: TDataSource
    DataSet = T_fail
    Left = 488
    Top = 16
  end
  object T_equip3: TTable
    DatabaseName = 'ERData'
    IndexFieldNames = 'ID'
    MasterFields = 'EQUIP'
    MasterSource = DS_fail
    TableName = 'ADB_EQUIP'
    Left = 408
    Top = 64
  end
  object T_mode: TTable
    DatabaseName = 'ERData'
    TableName = 'ADB_MODE'
    Left = 408
    Top = 112
  end
  object T_cause: TTable
    DatabaseName = 'ERData'
    TableName = 'ADB_CAUSE'
    Left = 408
    Top = 160
  end
  object T_consequence: TTable
    DatabaseName = 'ERData'
    TableName = 'ADB_CONSEQUENCE'
    Left = 408
    Top = 208
  end
  object T_result: TTable
    DatabaseName = 'ERData'
    TableName = 'ADB_RESULT'
    Left = 408
    Top = 256
  end
  object DS_equip3: TDataSource
    DataSet = T_equip3
    Left = 488
    Top = 64
  end
  object DS_mode: TDataSource
    DataSet = T_mode
    Left = 488
    Top = 112
  end
  object DS_cause: TDataSource
    DataSet = T_cause
    Left = 488
    Top = 160
  end
  object DS_consequence: TDataSource
    DataSet = T_consequence
    Left = 488
    Top = 208
  end
  object DS_result: TDataSource
    DataSet = T_result
    Left = 488
    Top = 256
  end
  object Q_equip: TQuery
    AfterScroll = Q_equipAfterScroll
    DatabaseName = 'ERData'
    SQL.Strings = (
      'SELECT EQUIP'
      'FROM ODB_EQUIP_MOVEMENT'
      'WHERE WORKPLACE=:WORKPLACE'
      'AND MOVE_DATE>:START_TIME'
      'AND MOVE_DATE<:END_TIME'
      'GROUP BY EQUIP')
    Left = 576
    Top = 16
    ParamData = <
      item
        DataType = ftString
        Name = 'WORKPLACE'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftDateTime
        Name = 'START_TIME'
        ParamType = ptInput
        Value = 0d
      end
      item
        DataType = ftDateTime
        Name = 'END_TIME'
        ParamType = ptInput
        Value = 0d
      end>
  end
  object DS_q_equip: TDataSource
    DataSet = Q_equip
    Left = 648
    Top = 16
  end
  object Q_fail_rec: TQuery
    DatabaseName = 'ERData'
    SQL.Strings = (
      'SELECT F.ID, F.FIND_DATE, F.DESCRIP, M.DESCRIPT AS MODE,'
      ' C.DESCRIPT AS CAUSE, Q.DESCRIPT AS CONSEQUENCE,'
      ' R.DESCRIPT AS RESULT, F.END_DATE, F.LAST_MODIFY,'
      ' P.NAME AS PERSON, F.REMARK'
      'FROM ((((ODB_EQUIP_FAILURE F'
      ' LEFT JOIN ADB_MODE M ON F.MODE=M.CODE)'
      '  LEFT JOIN ADB_CAUSE C ON F.CAUSE=C.CODE)'
      '   LEFT JOIN ADB_CONSEQUENCE Q ON F.CONSEQUENCE=Q.CODE)'
      '    LEFT JOIN ADB_RESULT R ON F.RESULT=R.CODE)'
      '     LEFT JOIN ADB_PERSON P ON F.PERSON=P.ID'
      'WHERE F.EQUIP=:EQUIP'
      'AND F.END_DATE>:START_TIME'
      'AND F.FIND_DATE<:END_TIME')
    Left = 576
    Top = 64
    ParamData = <
      item
        DataType = ftString
        Name = 'EQUIP'
        ParamType = ptInput
        Value = ''
      end
      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_move_rec: TQuery
    DatabaseName = 'ERData'
    SQL.Strings = (
      'SELECT M.ID, O.DESCRIPT AS OPERATION,'
      '  M.MOVE_DATE, M.WORKPLACE, M.LAST_MODIFY,'
      '  P.NAME AS PERSON, M.REMARK'
      'FROM (ODB_EQUIP_MOVEMENT M'
      ' LEFT JOIN ADB_OPERATION O ON M.OPERATION=O.CODE)'
      '  LEFT JOIN ADB_PERSON P ON M.PERSON=P.ID '
      'WHERE M.EQUIP=:EQUIP'
      'AND M.MOVE_DATE>:START_TIME'
      'AND M.MOVE_DATE<:END_TIME')
    Left = 576
    Top = 112
    ParamData = <
      item
        DataType = ftString
        Name = 'EQUIP'
        ParamType = ptInput
        Value = ''
      end
      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_reliability: TQuery
    DatabaseName = 'ERData'
    SQL.Strings = (
      'SELECT E.NAME, E.BUY_DATE, E.ENG_CHAR, M.NAME AS MERCHANT,'
      ' G.BOUNDARY, D.NAME AS DISTRIBUTION, D.FORMULA,'
      ' G.R1, G.R2, G.R3, G.MTTF'
      'FROM (((ADB_EQUIP E'
      ' LEFT JOIN ADB_WORKPLACE W ON E.INI_WORKPLACE=W.CODE)'
      '  LEFT JOIN RDB_GROUP_INFO G ON W.EQUIP_GROUP=G.ID)'
      '   LEFT JOIN ADB_DISTRIBUTION D ON G.DISTRIBUTION=D.CODE)'
      '    LEFT JOIN ADB_MERCHANT M ON E.MERCHANT=M.ID'
      'WHERE E.ID=:EQUIP')
    Left = 576
    Top = 160
    ParamData = <
      item
        DataType = ftString
        Name = 'EQUIP'
        ParamType = ptInput
        Value = ''
      end>
  end
  object DS_fail_rec: TDataSource
    DataSet = Q_fail_rec
    Left = 648
    Top = 64
  end
  object DS_move_rec: TDataSource
    DataSet = Q_move_rec
    Left = 648
    Top = 112
  end
  object DS_reliability: TDataSource
    DataSet = Q_reliability
    Left = 648
    Top = 160
  end
  object T_group_list: TTable
    DatabaseName = 'ERData'
    TableName = 'RDB_GROUP_INFO'
    Left = 584
    Top = 240
  end
  object DS_group_list: TDataSource
    DataSet = T_group_list
    Left = 656
    Top = 240
  end
  object T_distribution: TTable
    DatabaseName = 'ERData'
    TableName = 'ADB_DISTRIBUTION'
    Left = 584
    Top = 288
  end
  object DS_distribution: TDataSource
    DataSet = T_distribution
    Left = 656
    Top = 288
  end
  object Q_member: TQuery
    DatabaseName = 'ERData'
    SQL.Strings = (
      'SELECT E.ID'
      'FROM ADB_EQUIP E'
      '  LEFT JOIN ADB_WORKPLACE W ON E.INI_WORKPLACE=W.CODE'
      'WHERE W.EQUIP_GROUP=:GROUP')
    Left = 448
    Top = 336
    ParamData = <
      item
        DataType = ftString
        Name = 'GROUP'
        ParamType = ptInput
        Value = ''
      end>
  end
  object Q_fail_list: TQuery
    DatabaseName = 'ERData'
    SQL.Strings = (
      'SELECT FIND_DATE, END_DATE, RESULT'
      'FROM ODB_EQUIP_FAILURE'
      'WHERE EQUIP=:EQUIP'
      'AND FIND_DATE<:END_TIME'
      'ORDER BY FIND_DATE')
    Left = 504
    Top = 336
    ParamData = <
      item
        DataType = ftString
        Name = 'EQUIP'
        ParamType = ptInput
        Value = ''
      end
      item
        DataType = ftDateTime
        Name = 'END_TIME'
        ParamType = ptInput
        Value = 0d
      end>
  end
  object Q_install_time: TQuery
    DatabaseName = 'ERData'
    SQL.Strings = (
      'SELECT MOVE_DATE'
      'FROM ODB_EQUIP_MOVEMENT'
      'WHERE EQUIP=:EQUIP'
      'AND OPERATION='#39'0'#39)
    Left = 560
    Top = 336
    ParamData = <
      item
        DataType = ftString
        Name = 'EQUIP'
        ParamType = ptInput
        Value = ''
      end>
  end
end