usetup.~dfm

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

      DisplayLabel = '类型'
      DisplayWidth = 8
      FieldName = 'LX'
      Origin = 'MAINDB.TSYSFIELD.LX'
      ReadOnly = True
      FixedChar = True
      Size = 10
    end
    object wwQuery2CD: TFloatField
      DisplayLabel = '长度'
      DisplayWidth = 6
      FieldName = 'CD'
      Origin = 'MAINDB.TSYSFIELD.CD'
      ReadOnly = True
    end
    object wwQuery2JD: TFloatField
      DisplayLabel = '精度'
      DisplayWidth = 6
      FieldName = 'JD'
      Origin = 'MAINDB.TSYSFIELD.JD'
      ReadOnly = True
    end
    object wwQuery2ID: TFloatField
      FieldName = 'ID'
      Origin = 'MAINDB.TSYSFIELD.ID'
      Visible = False
    end
    object wwQuery2TID: TFloatField
      FieldName = 'TID'
      Origin = 'MAINDB.TSYSFIELD.TID'
      Visible = False
    end
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update tsysfield'
      'set'
      '  ID = :ID,'
      '  TID = :TID,'
      '  ZDMC = :ZDMC,'
      '  ZDZS = :ZDZS,'
      '  LX = :LX,'
      '  CD = :CD,'
      '  JD = :JD,'
      '  YT = :YT,'
      '  KJX = :KJX,'
      '  XSSX = :XSSX'
      'where'
      '  ID = :OLD_ID')
    InsertSQL.Strings = (
      'insert into tsysfield'
      '  (ID, TID, ZDMC, ZDZS, LX, CD, JD, YT, KJX, XSSX)'
      'values'
      
        '  (SEQ_TSYSFIELD_ID.NextVAL, :TID, :ZDMC, :ZDZS, :LX, :CD, :JD, ' +
        ':YT, :KJX, '
      ':XSSX)')
    DeleteSQL.Strings = (
      'delete from tsysfield'
      'where'
      '  ID = :OLD_ID')
    Left = 733
    Top = 65501
  end
  object Database1: TDatabase
    AliasName = 'sidb'
    Connected = True
    DatabaseName = 'SetupDB'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=sidb'
      'USER NAME=sidb2000'
      'NET PROTOCOL=TNS'
      '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'
      'ENABLE INTEGERS=FALSE'
      'LIST SYNONYMS=NONE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'OBJECT MODE=TRUE'
      'PASSWORD=si2000')
    SessionName = 'Default'
    Left = 799
    Top = 65505
  end
  object CDXXDatasource: TDataSource
    DataSet = CDXXQuery
    OnStateChange = CDXXDatasourceStateChange
    Left = 36
    Top = 343
  end
  object CDXXQuery: TQuery
    CachedUpdates = True
    AfterInsert = CDXXQueryAfterInsert
    BeforeEdit = CDXXQueryBeforeEdit
    AfterPost = CDXXQueryAfterPost
    BeforeDelete = CDXXQueryBeforeDelete
    AfterDelete = CDXXQueryAfterDelete
    OnCalcFields = CDXXQueryCalcFields
    DatabaseName = 'SetupDB'
    SQL.Strings = (
      'select * from tJMMCB order by JMBS')
    UpdateObject = CDXXUpdateSQL
    Left = 4
    Top = 343
    object CDXXQueryJMBS: TStringField
      FieldName = 'JMBS'
      Origin = 'SETUPDB.TJMMCB.JMBS'
      FixedChar = True
      Size = 6
    end
    object CDXXQueryJMMC: TStringField
      FieldName = 'JMMC'
      Origin = 'SETUPDB.TJMMCB.JMMC'
      Size = 10
    end
    object CDXXQueryJMZS: TStringField
      FieldName = 'JMZS'
      Origin = 'SETUPDB.TJMMCB.JMZS'
      Size = 30
    end
    object CDXXQueryUpField: TStringField
      FieldKind = fkCalculated
      FieldName = 'UpField'
      Size = 40
      Calculated = True
    end
  end
  object CDXXUpdateSQL: TUpdateSQL
    ModifySQL.Strings = (
      'update tJMMCB'
      'set'
      '  JMBS = :JMBS,'
      '  JMMC = :JMMC,'
      '  JMZS = :JMZS'
      'where'
      '  JMBS = :OLD_JMBS')
    InsertSQL.Strings = (
      'insert into tJMMCB'
      '  (JMBS, JMMC, JMZS)'
      'values'
      '  (:JMBS, :JMMC, :JMZS)')
    DeleteSQL.Strings = (
      'delete from tJMMCB'
      'where'
      '  JMBS = :OLD_JMBS')
    Left = 68
    Top = 343
  end
  object YHXXDataSource: TDataSource
    DataSet = YHXXQuery
    OnStateChange = YHXXDataSourceStateChange
    Left = 140
    Top = 343
  end
  object YHXXQuery: TQuery
    AutoCalcFields = False
    CachedUpdates = True
    OnCalcFields = YHXXQueryCalcFields
    AutoRefresh = True
    DatabaseName = 'SetupDB'
    SQL.Strings = (
      'select * from tYHJBXX')
    UpdateObject = YHXXUpdateSQL
    Left = 108
    Top = 343
    object YHXXQueryYHDM: TStringField
      FieldName = 'YHDM'
      Origin = 'SETUPDB.TYHJBXX.YHDM'
      Visible = False
      Size = 10
    end
    object YHXXQueryDLM: TStringField
      FieldName = 'DLM'
      Origin = 'SETUPDB.TYHJBXX.DLM'
      Size = 10
    end
    object YHXXQueryXM: TStringField
      FieldName = 'XM'
      Origin = 'SETUPDB.TYHJBXX.XM'
      Size = 10
    end
    object YHXXQueryZW: TStringField
      FieldName = 'ZW'
      Origin = 'SETUPDB.TYHJBXX.ZW'
      Size = 10
    end
    object YHXXQueryXB: TFloatField
      FieldName = 'XB'
      Origin = 'SETUPDB.TYHJBXX.XB'
    end
    object YHXXQueryMM: TStringField
      FieldName = 'MM'
      Origin = 'SETUPDB.TYHJBXX.MM'
      Size = 10
    end
    object YHXXQueryYXX: TStringField
      FieldKind = fkCalculated
      FieldName = 'YXX'
      Size = 10
      Calculated = True
    end
  end
  object YHXXUpdateSQL: TUpdateSQL
    ModifySQL.Strings = (
      'update tYHJBXX'
      'set'
      '  YHDM = :YHDM,'
      '  DLM = :DLM,'
      '  XM = :XM,'
      '  XB = :XB,'
      '  MM = :MM,'
      '  ZW = :ZW'
      'where'
      '  YHDM = :OLD_YHDM')
    InsertSQL.Strings = (
      'insert into tYHJBXX'
      '  (YHDM, DLM, XM, XB, MM, ZW)'
      'values'
      '  (:YHDM, :DLM, :XM, :XB, :MM, :ZW)')
    DeleteSQL.Strings = (
      'delete from tYHJBXX'
      'where'
      '  YHDM = :OLD_YHDM')
    Left = 172
    Top = 343
  end
  object YHXXStoredProc: TStoredProc
    CachedUpdates = True
    DatabaseName = 'SetupDB'
    StoredProcName = 'P_GETNUMBER'
    Left = 204
    Top = 343
    ParamData = <
      item
        DataType = ftString
        Name = 'P_TABLENAME'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_CURRVALUE'
        ParamType = ptOutput
      end>
  end
  object YHCD_DBComboBox_DataSource: TDataSource
    DataSet = YHCD_DBComBox_Query
    Left = 332
    Top = 343
  end
  object YHCD_DBComBox_Query: TQuery
    DatabaseName = 'SetupDB'
    Left = 300
    Top = 343
  end
  object YHCDChecklistBoxDataSource: TDataSource
    DataSet = YHCDChecklistBoxQuery
    Left = 268
    Top = 343
  end
  object YHCDChecklistBoxQuery: TQuery
    DatabaseName = 'SetupDB'
    Left = 236
    Top = 343
  end
  object YHCDDataSource: TDataSource
    DataSet = YHCDQuery
    Left = 396
    Top = 343
  end
  object YHCDQuery: TQuery
    Active = True
    DatabaseName = 'SetupDB'
    SQL.Strings = (
      'select * from tYHQXB')
    UpdateMode = upWhereChanged
    Left = 364
    Top = 343
  end
  object ImageList1: TImageList
    Left = 420
    Top = 343
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F
      FF7FE07FFF7FE07F00000000000000000000000000000000E07F1863E07F1863
      E07F1863E07F0000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7F000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FF7FE07FFF7FE07FFF7F
      E07FFF7FE07FFF7F0000000000000000000000000000E07F0000E07F1863E07F
      1863E07F1863E07F000000000000000000000000000000000000FF7F00000000
      000000000000FF7F000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F
      FF7FE07FFF7FE07F0000000000000000000000000000E07FE07F0000E07F1863
      E07F1863E07F1863E07F00000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7F000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FF7FE07FFF7FE07FFF7F
      E07FFF7FE07FFF7F0000000000000000000000000000FF7FE07FE07F00000000
      0000000000000000000000000000000000000000000000000000FF7F00000000
      000000000000FF7F000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F
      FF7FE07FFF7FE07F0000000000000000000000000000E07FFF7FE07F0000E07F
      0000E07F0000E07F000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7F000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000FF7FE07FFF7FE07FFF7F
      E07FFF7FE07FFF7F0000000000000000000000000000FF7FE07FFF7FE07FFF7F
      E07FFF7FE07F0000000000000000000000000000000000000000FF7F00000000
      0000FF7FFF7FFF7F000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000E07FFF7FE07FFF7FE07F
      FF7F000000000000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7F00000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000000000FF7FE07FFF7FE07F
      000000000000000000000000000000000000000000000000E07FFF7FE07FFF7F
      0000000000000000000000000000000000000000000000000000FF7F00000000
      FF7FFF7F0000FF7F000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000010420000000000000000
      1042000000000000000000000000000000000000000010420000000000000000
      1042000000000000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7F00000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFFFFFF0000FFFFFFFFFFFF0000
      FFFFFFFFFFFF0000C00FC03FE00F0000800F801FE00F0000800F800FE00F0000
      800F8007E00F0000800F8007E00F0000800F800FE00F0000800F800FE00F0000
      801F801FE00F0000C0FFC0FFE00F0000C0FFC0FFE01F0000FFFFFFFFE03F0000
      FFFFFFFFFFFF0000FFFFFFFFFFFF000000000000000000000000000000000000
      000000000000}
  end
end