usetup.~dfm

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

        Images = ImageList1
        Indent = 19
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        OnChange = TreeView1Change
      end
    end
    object TabSheet2: TTabSheet
      Caption = '用户信息管理'
      ImageIndex = 2
      object Label1: TLabel
        Left = 8
        Top = 32
        Width = 36
        Height = 12
        Caption = '登录名'
        FocusControl = DLMDBEdit
      end
      object Label2: TLabel
        Left = 80
        Top = 32
        Width = 48
        Height = 12
        Caption = '用户姓名'
        FocusControl = XMDBEdit
      end
      object Label4: TLabel
        Left = 152
        Top = 32
        Width = 24
        Height = 12
        Caption = '密码'
        FocusControl = MMDBEdit
      end
      object Label5: TLabel
        Left = 288
        Top = 32
        Width = 24
        Height = 12
        Caption = '职务'
        FocusControl = ZWDBEdit
      end
      object Label3: TLabel
        Left = 216
        Top = 32
        Width = 48
        Height = 12
        Caption = '密码确认'
      end
      object YHXXDBGrid: TDBGrid
        Left = 8
        Top = 80
        Width = 513
        Height = 209
        BiDiMode = bdLeftToRight
        DataSource = YHXXDataSource
        Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgMultiSelect]
        ParentBiDiMode = False
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'YHDM'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'DLM'
            Title.Caption = '登录名'
            Width = 118
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'XM'
            Title.Caption = '姓名'
            Width = 136
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ZW'
            Title.Caption = '职务'
            Width = 137
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'XB'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'MM'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'YXX'
            Title.Caption = '有效性'
            Width = 104
            Visible = True
          end>
      end
      object btn_yhxx_add: TBitBtn
        Left = 360
        Top = 48
        Width = 33
        Height = 25
        Caption = '增加'
        TabOrder = 6
        OnClick = btn_yhxx_addClick
      end
      object btn_yhxx_save: TBitBtn
        Left = 392
        Top = 48
        Width = 33
        Height = 25
        Caption = '保存'
        TabOrder = 7
        OnClick = btn_yhxx_saveClick
      end
      object btn_yhxx_nouse: TBitBtn
        Left = 424
        Top = 48
        Width = 33
        Height = 25
        Caption = '禁用'
        TabOrder = 8
        OnClick = btn_yhxx_nouseClick
      end
      object DLMDBEdit: TDBEdit
        Left = 8
        Top = 48
        Width = 64
        Height = 20
        DataField = 'DLM'
        DataSource = YHXXDataSource
        TabOrder = 1
      end
      object XMDBEdit: TDBEdit
        Left = 80
        Top = 48
        Width = 64
        Height = 20
        DataField = 'XM'
        DataSource = YHXXDataSource
        TabOrder = 2
      end
      object MMDBEdit: TDBEdit
        Left = 152
        Top = 48
        Width = 57
        Height = 20
        Hint = '请输入密码'
        DataField = 'MM'
        DataSource = YHXXDataSource
        ParentShowHint = False
        PasswordChar = '*'
        ShowHint = True
        TabOrder = 3
      end
      object ZWDBEdit: TDBEdit
        Left = 288
        Top = 48
        Width = 64
        Height = 20
        DataField = 'ZW'
        DataSource = YHXXDataSource
        TabOrder = 5
      end
      object btn_yhxx_refresh: TBitBtn
        Left = 488
        Top = 48
        Width = 33
        Height = 25
        Caption = '刷新'
        TabOrder = 10
        OnClick = btn_yhxx_refreshClick
      end
      object btn_yhxx_reuse: TBitBtn
        Left = 456
        Top = 48
        Width = 33
        Height = 25
        Caption = '启用'
        TabOrder = 9
        OnClick = btn_yhxx_reuseClick
      end
      object edtXMM: TMaskEdit
        Left = 216
        Top = 48
        Width = 65
        Height = 20
        Hint = '输入密码确认'
        MaxLength = 10
        ParentShowHint = False
        PasswordChar = '*'
        ShowHint = True
        TabOrder = 4
      end
      object Button1: TButton
        Left = 360
        Top = 16
        Width = 161
        Height = 25
        Caption = '删除用户'
        TabOrder = 11
        OnClick = Button1Click
      end
    end
    object TabSheet3: TTabSheet
      Caption = '用户菜单设置'
      ImageIndex = 3
      object btn_yhcd_all: TSpeedButton
        Left = 320
        Top = 40
        Width = 49
        Height = 24
        Caption = '全选'
        OnClick = btn_yhcd_allClick
      end
      object btn_yhcd_cancel: TSpeedButton
        Left = 368
        Top = 40
        Width = 49
        Height = 24
        Caption = '清空'
        OnClick = btn_yhcd_cancelClick
      end
      object YHCDLabel: TLabel
        Left = 8
        Top = 24
        Width = 48
        Height = 12
        Caption = '选择用户'
      end
      object YHCDCheckListBox: TCheckListBox
        Left = 8
        Top = 72
        Width = 509
        Height = 209
        OnClickCheck = YHCDCheckListBoxClickCheck
        ItemHeight = 12
        TabOrder = 0
      end
      object YHCDSaveBitBtn: TBitBtn
        Left = 416
        Top = 40
        Width = 49
        Height = 24
        Caption = '保存'
        TabOrder = 1
        OnClick = YHCDSaveBitBtnClick
      end
      object YHCDCancelBitBtn: TBitBtn
        Left = 464
        Top = 40
        Width = 52
        Height = 24
        Caption = '取消'
        TabOrder = 2
        OnClick = YHCDCancelBitBtnClick
      end
      object YHCDDBComboBox: TComboBox
        Left = 8
        Top = 40
        Width = 121
        Height = 20
        DropDownCount = 10
        ItemHeight = 0
        TabOrder = 3
        Text = 'YHCDDBComboBox'
        OnChange = YHCDDBComboBoxChange
      end
    end
  end
  object wwDataSource1: TwwDataSource
    DataSet = wwQuery1
    Left = 767
    Top = 65505
  end
  object wwQuery1: TwwQuery
    DatabaseName = 'SetupDB'
    SQL.Strings = (
      'select * from tsys')
    ValidateWithMask = True
    Left = 863
    Top = 65505
    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 = 831
    Top = 65501
  end
  object wwQuery2: TwwQuery
    CachedUpdates = True
    DatabaseName = 'SetupDB'
    DataSource = wwDataSource1
    SQL.Strings = (
      'select * from tsysfield'
      'where tid=:tid'
      'order by xssx')
    ControlType.Strings = (
      'YT;CustomEdit;wwDBComboBoxQX'
      'KJX;CustomEdit;wwDBComboBoxKJ'
      'LX;CustomEdit;wwDBComboBoxLX')
    ValidateWithMask = True
    Left = 703
    Top = 65501
    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