usetup.dfm

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

object frmSetup: TfrmSetup
  Left = 99
  Top = 121
  BorderStyle = bsToolWindow
  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 = TabSheet3
    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 = DLMDBEdit
      end
      object Label2: TLabel
        Left = 84
        Top = 17
        Width = 48
        Height = 12
        Caption = '用户姓名'
        FocusControl = XMDBEdit
      end
      object Label4: TLabel
        Left = 163
        Top = 17
        Width = 24
        Height = 12
        Caption = '密码'
        FocusControl = MMDBEdit
      end
      object Label5: TLabel
        Left = 288
        Top = 16
        Width = 24
        Height = 12
        Caption = '职务'
        FocusControl = ZWDBEdit
      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 YHXXDBGrid: TDBGrid
        Left = 4
        Top = 68
        Width = 516
        Height = 240
        BiDiMode = bdLeftToRight
        DataSource = YHXXDataSource
        Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgMultiSelect]
        ParentBiDiMode = False
        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 DLMDBEdit: TDBEdit
        Left = 4
        Top = 37
        Width = 72
        Height = 20
        DataField = 'DLM'
        DataSource = YHXXDataSource
        TabOrder = 1
      end
      object XMDBEdit: TDBEdit
        Left = 80
        Top = 37
        Width = 78
        Height = 20
        DataField = 'XM'
        DataSource = YHXXDataSource
        TabOrder = 2
      end
      object MMDBEdit: TDBEdit
        Left = 162
        Top = 37
        Width = 57
        Height = 20
        Hint = '请输入密码'
        DataField = 'MM'
        DataSource = YHXXDataSource
        ParentShowHint = False
        PasswordChar = '*'
        ShowHint = True
        TabOrder = 3
      end
      object ZWDBEdit: TDBEdit
        Left = 288
        Top = 37
        Width = 96
        Height = 20
        DataField = 'ZW'
        DataSource = YHXXDataSource
        TabOrder = 5
      end
      object btnREUSE: TBitBtn
        Left = 486
        Top = 35
        Width = 33
        Height = 25
        Caption = '启用'
        TabOrder = 8
        OnClick = btnREUSEClick
      end
      object edtXMM: TMaskEdit
        Left = 223
        Top = 37
        Width = 62
        Height = 20
        Hint = '输入密码确认'
        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
        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
        DropDownCount = 10
        ItemHeight = 12
        TabOrder = 2
        Text = 'YHCDDBComboBox'
        OnChange = YHCDDBComboBoxChange
      end
    end
  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 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
end