usetup.dfm

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

object frmSetup: TfrmSetup
  Left = 118
  Top = 107
  BorderStyle = bsDialog
  Caption = '行业社保系统-用户设置程序'
  ClientHeight = 375
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label6: TLabel
    Left = 384
    Top = 64
    Width = 12
    Height = 12
    Caption = 'ZW'
  end
  object Panel1: TPanel
    Left = 0
    Top = 342
    Width = 536
    Height = 33
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object btnClose: TBitBtn
      Left = 449
      Top = 6
      Width = 74
      Height = 22
      Caption = '关闭'
      TabOrder = 0
      OnClick = btnCloseClick
      Kind = bkClose
    end
  end
  object YHCDSZ: TPageControl
    Left = 0
    Top = 0
    Width = 536
    Height = 342
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 1
    OnChange = YHCDSZChange
    object TabSheet2: TTabSheet
      Caption = '用户信息管理'
      ImageIndex = 2
      object Label1: TLabel
        Left = 4
        Top = 17
        Width = 36
        Height = 12
        Caption = '登录名'
        FocusControl = edtDLM
      end
      object Label2: TLabel
        Left = 84
        Top = 17
        Width = 48
        Height = 12
        Caption = '用户姓名'
        FocusControl = edtXM
      end
      object Label4: TLabel
        Left = 163
        Top = 17
        Width = 24
        Height = 12
        Caption = '密码'
        FocusControl = edtMM
      end
      object Label5: TLabel
        Left = 288
        Top = 17
        Width = 192
        Height = 12
        Caption = '负责范围（系统管理员或单位代码）'
        FocusControl = edtZW
      end
      object Label3: TLabel
        Left = 223
        Top = 17
        Width = 48
        Height = 12
        Caption = '密码确认'
      end
      object btnADD: TSpeedButton
        Left = 386
        Top = 35
        Width = 37
        Height = 25
        Caption = '增加'
        OnClick = btnADDClick
      end
      object grdYHXX: TDBGrid
        Left = 4
        Top = 68
        Width = 516
        Height = 240
        BiDiMode = bdLeftToRight
        DataSource = souYHXX
        ImeName = '紫光拼音输入法2.0版'
        Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgMultiSelect]
        ParentBiDiMode = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_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 btnSAVEUSER: TBitBtn
        Left = 422
        Top = 35
        Width = 33
        Height = 25
        Caption = '保存'
        TabOrder = 6
        OnClick = btnSAVEUSERClick
      end
      object btnNOUSE: TBitBtn
        Left = 454
        Top = 35
        Width = 33
        Height = 25
        Caption = '禁用'
        TabOrder = 7
        OnClick = btnNOUSEClick
      end
      object edtDLM: TDBEdit
        Left = 4
        Top = 37
        Width = 72
        Height = 20
        Hint = '输入用户登录名'
        DataField = 'DLM'
        DataSource = souYHXX
        ImeName = '紫光拼音输入法2.0版'
        TabOrder = 1
      end
      object edtXM: TDBEdit
        Left = 80
        Top = 37
        Width = 78
        Height = 20
        Hint = '输入用户姓名'
        DataField = 'XM'
        DataSource = souYHXX
        ImeName = '紫光拼音输入法2.0版'
        TabOrder = 2
      end
      object edtMM: TDBEdit
        Left = 162
        Top = 37
        Width = 57
        Height = 20
        Hint = '请输入密码'
        DataField = 'MM'
        DataSource = souYHXX
        ImeName = '紫光拼音输入法2.0版'
        ParentShowHint = False
        PasswordChar = '*'
        ShowHint = True
        TabOrder = 3
      end
      object edtZW: TDBEdit
        Left = 288
        Top = 37
        Width = 91
        Height = 20
        Hint = '输入用户职务'
        DataField = 'ZW'
        DataSource = souYHXX
        ImeName = '紫光拼音输入法2.0版'
        TabOrder = 5
      end
      object btnREUSE: TBitBtn
        Left = 486
        Top = 35
        Width = 33
        Height = 25
        Caption = '启用'
        TabOrder = 8
        OnClick = btnREUSEClick
      end
      object edtXMM: TMaskEdit
        Left = 222
        Top = 37
        Width = 62
        Height = 20
        Hint = '输入密码确认'
        ImeName = '紫光拼音输入法2.0版'
        MaxLength = 10
        ParentShowHint = False
        PasswordChar = '*'
        ShowHint = True
        TabOrder = 4
      end
    end
    object TabSheet3: TTabSheet
      Caption = '用户菜单设置'
      ImageIndex = 3
      object btnQX: TSpeedButton
        Left = 410
        Top = 40
        Width = 37
        Height = 24
        Caption = '全选'
        OnClick = btnQXClick
      end
      object btnQK: TSpeedButton
        Left = 446
        Top = 40
        Width = 36
        Height = 24
        Caption = '清空'
        OnClick = btnQKClick
      end
      object YHCDLabel: TLabel
        Left = 8
        Top = 24
        Width = 24
        Height = 12
        Caption = '用户'
      end
      object YHCDCheckListBox: TCheckListBox
        Left = 6
        Top = 72
        Width = 514
        Height = 231
        OnClickCheck = YHCDCheckListBoxClickCheck
        ImeName = '紫光拼音输入法2.0版'
        ItemHeight = 12
        TabOrder = 0
      end
      object btnSAVE: TBitBtn
        Left = 481
        Top = 40
        Width = 37
        Height = 24
        Caption = '保存'
        TabOrder = 1
        OnClick = btnSAVEClick
      end
      object YHCDDBComboBox: TComboBox
        Left = 8
        Top = 40
        Width = 161
        Height = 20
        Style = csDropDownList
        DropDownCount = 10
        ImeName = '紫光拼音输入法2.0版'
        ItemHeight = 0
        TabOrder = 2
        OnChange = YHCDDBComboBoxChange
      end
    end
  end
  object souYHXX: TDataSource
    DataSet = qryYHXX
    OnStateChange = souYHXXStateChange
    Left = 140
    Top = 343
  end
  object qryYHXX: TQuery
    AutoCalcFields = False
    CachedUpdates = True
    OnCalcFields = qryYHXXCalcFields
    AutoRefresh = True
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tYHJBXX')
    UpdateObject = sqlYHXX
    Left = 108
    Top = 343
    object qryYHXXYHDM: TStringField
      FieldName = 'YHDM'
      Origin = 'mainDB.TYHJBXX.YHDM'
      Visible = False
      Size = 10
    end
    object qryYHXXDLM: TStringField
      FieldName = 'DLM'
      Origin = 'mainDB.TYHJBXX.DLM'
      OnChange = qryYHXXDLMChange
      Size = 10
    end
    object qryYHXXXM: TStringField
      FieldName = 'XM'
      Origin = 'mainDB.TYHJBXX.XM'
      OnChange = qryYHXXXMChange
      Size = 10
    end
    object qryYHXXZW: TStringField
      FieldName = 'ZW'
      Origin = 'MainDB.TYHJBXX.ZW'
      OnChange = qryYHXXZWChange
      Size = 10
    end
    object qryYHXXXB: TFloatField
      FieldName = 'XB'
      Origin = 'MainDB.TYHJBXX.XB'
    end
    object qryYHXXMM: TStringField
      FieldName = 'MM'
      Origin = 'MainDB.TYHJBXX.MM'
      OnChange = qryYHXXMMChange
      Size = 10
    end
    object qryYHXXYXX: TStringField
      FieldKind = fkCalculated
      FieldName = 'YXX'
      Size = 10
      Calculated = True
    end
  end
  object sqlYHXX: 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 stoYHXX: TStoredProc
    CachedUpdates = True
    DatabaseName = 'MainDB'
    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 = 'MainDB'
    Left = 300
    Top = 343
  end
  object YHCDChecklistBoxDataSource: TDataSource
    DataSet = YHCDChecklistBoxQuery
    Left = 268
    Top = 343
  end
  object YHCDChecklistBoxQuery: TQuery
    DatabaseName = 'MainDB'
    Left = 236
    Top = 343
  end
  object qryYHCD: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select * from tYHQXB')
    UpdateMode = upWhereChanged
    Left = 364
    Top = 343
  end
end