usetup.dfm

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

        MapList = False
        AllowClearKey = False
        DropDownCount = 8
        ItemHeight = 0
        Items.Strings = (
          '显示'
          '隐藏')
        Sorted = False
        TabOrder = 2
        UnboundDataType = wwDefault
      end
      object wwDBComboBoxLX: TwwDBComboBox
        Left = 296
        Top = 8
        Width = 33
        Height = 20
        ShowButton = True
        Style = csDropDown
        MapList = False
        AllowClearKey = False
        DropDownCount = 8
        ItemHeight = 0
        Items.Strings = (
          '字符'
          '数值'
          '日期')
        Sorted = False
        TabOrder = 3
        UnboundDataType = wwDefault
      end
      object ComboBox1: TComboBox
        Left = 6
        Top = 9
        Width = 167
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        TabOrder = 4
        OnChange = ComboBox1Change
      end
    end
  end
  object wwDataSource1: TwwDataSource
    DataSet = wwQuery1
    Left = 287
    Top = 1
  end
  object wwQuery1: TwwQuery
    DatabaseName = 'SetupDB'
    SQL.Strings = (
      'select * from tsys')
    ValidateWithMask = True
    Left = 327
    Top = 1
    object wwQuery1TID: TFloatField
      FieldName = 'TID'
      Origin = 'MAINDB.TSYS.TID'
    end
    object wwQuery1BM: TStringField
      FieldName = 'BM'
      Origin = 'MAINDB.TSYS.BM'
    end
    object wwQuery1ZS: TStringField
      FieldName = 'ZS'
      Origin = 'MAINDB.TSYS.ZS'
      Size = 40
    end
  end
  object wwDataSource2: TwwDataSource
    DataSet = wwQuery2
    Left = 287
    Top = 29
  end
  object wwQuery2: TwwQuery
    Active = True
    CachedUpdates = True
    DatabaseName = 'SetupDB'
    DataSource = wwDataSource1
    SQL.Strings = (
      'select * from tsysfield'
      'where tid=:tid'
      'order by xssx')
    UpdateObject = UpdateSQL2
    ControlType.Strings = (
      'YT;CustomEdit;wwDBComboBoxQX'
      'KJX;CustomEdit;wwDBComboBoxKJ'
      'LX;CustomEdit;wwDBComboBoxLX')
    ValidateWithMask = True
    Left = 327
    Top = 29
    ParamData = <
      item
        DataType = ftFloat
        Name = 'TID'
        ParamType = ptInput
      end>
    object wwQuery2XSSX: TFloatField
      DisplayLabel = '显示顺序'
      DisplayWidth = 8
      FieldName = 'XSSX'
      Origin = 'MAINDB.TSYSFIELD.XSSX'
    end
    object wwQuery2ZDMC: TStringField
      DisplayLabel = '字段名称'
      DisplayWidth = 14
      FieldName = 'ZDMC'
      Origin = 'MAINDB.TSYSFIELD.ZDMC'
    end
    object wwQuery2ZDZS: TStringField
      DisplayLabel = '中文名'
      DisplayWidth = 14
      FieldName = 'ZDZS'
      Origin = 'MAINDB.TSYSFIELD.ZDZS'
      Size = 40
    end
    object wwQuery2YT: TStringField
      DisplayLabel = '操作权限'
      DisplayWidth = 10
      FieldName = 'YT'
      Origin = 'MAINDB.TSYSFIELD.YT'
      FixedChar = True
      Size = 4
    end
    object wwQuery2KJX: TStringField
      DisplayLabel = '是否可见'
      DisplayWidth = 9
      FieldName = 'KJX'
      Origin = 'MAINDB.TSYSFIELD.KJX'
      FixedChar = True
      Size = 4
    end
    object wwQuery2LX: TStringField
      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 = 365
    Top = 29
  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 = 247
    Top = 1
  end
end