uadmin.dfm

人事档案管理

inherited frmAdmin: TfrmAdmin
  Left = 183
  Top = 162
  BorderStyle = bsSingle
  Caption = #31649#29702#21592
  ClientHeight = 244
  ClientWidth = 419
  ParentFont = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object lbladmin: TLabel
    Left = 139
    Top = 8
    Width = 110
    Height = 21
    Caption = #31649#29702#21592#20449#24687
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lbluid: TLabel
    Left = 9
    Top = 163
    Width = 39
    Height = 13
    Caption = #24080' '#21495#65306
    Transparent = True
  end
  object lblpwd: TLabel
    Left = 147
    Top = 163
    Width = 39
    Height = 13
    Caption = #23494' '#30721#65306
    Transparent = True
  end
  object lblsys: TLabel
    Left = 277
    Top = 163
    Width = 39
    Height = 13
    Caption = #31995' '#32479#65306
    Transparent = True
  end
  object lbldes: TLabel
    Left = 9
    Top = 191
    Width = 39
    Height = 13
    Caption = #25551' '#36848#65306
    Transparent = True
  end
  object deUid: TDBEdit
    Left = 52
    Top = 157
    Width = 76
    Height = 21
    DataField = 'uid'
    DataSource = dsadmin
    TabOrder = 0
  end
  object dePwd: TDBEdit
    Left = 191
    Top = 157
    Width = 76
    Height = 21
    DataField = 'pwd'
    DataSource = dsadmin
    TabOrder = 1
  end
  object deDes: TDBEdit
    Left = 52
    Top = 185
    Width = 356
    Height = 21
    DataField = 'des'
    DataSource = dsadmin
    TabOrder = 3
  end
  object dbSys: TDBComboBox
    Left = 321
    Top = 156
    Width = 81
    Height = 19
    Style = csOwnerDrawFixed
    DataField = 'sys'
    DataSource = dsadmin
    ItemHeight = 13
    Items.Strings = (
      #21542
      #26159)
    TabOrder = 2
  end
  object btnEdit: TBitBtn
    Left = 9
    Top = 217
    Width = 76
    Height = 24
    Caption = #32534' '#36753
    TabOrder = 4
    OnClick = btnEditClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAADADADADADADADAD444444444444DADA477777777774ADAD488888888084
      DADA480080080004ADAD488888888000DADA4800800800B70DAD4888888880B8
      0ADA44444444440B70AD4F44F44F440B80DA444444444440B70DDADADADADAD0
      B70AADADADADADAD0050DADADADADADA0550ADADADADADADA00D}
  end
  object btnAdd: TBitBtn
    Left = 91
    Top = 217
    Width = 76
    Height = 24
    Caption = #28155' '#21152
    TabOrder = 5
    OnClick = btnAddClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAADADADADADADADADDADADADADADADADAADADADADADADADADDADADA000ADA
      DADAADADAD030DADADADDADADA030ADADADAADA000030000ADADDAD033333330
      DADAADA000030000ADADDADADA030ADADADAADADAD030DADADADDADADA000ADA
      DADAADADADADADADADADDADADADADADADADAADADADADADADADAD}
  end
  object btnDel: TBitBtn
    Left = 173
    Top = 217
    Width = 76
    Height = 24
    Caption = #21024' '#38500
    TabOrder = 6
    OnClick = btnDelClick
    Glyph.Data = {
      EE000000424DEE000000000000007600000028000000100000000F0000000100
      04000000000078000000130B0000130B00001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
      888888888888888881F88881F8888888888888991F8888889F8888191F888881
      F888888199F88891F8888888191F819F88888888819199F88888888888919F88
      88888888891911F888888888191F89F88888889191F88819F88881919F888881
      9F88891F8888888819F88888888888888888}
  end
  object btnTrs: TBitBtn
    Left = 256
    Top = 217
    Width = 76
    Height = 24
    Caption = #21322#36879#26126
    TabOrder = 7
    OnClick = btnTrsClick
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000010000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF00C0C0C00000FFFF00FF000000C0C0C000FFFF0000FFFFFF00DADADADADADA
      DADAADADADADADADADADD0000000000000DAA0FFFFFFFFFFF0ADD0FFFFFFFFFF
      F0DAA0F888888888F0ADD0F8BFBFBFB8F0DAA0F888888888F0ADD0FFFFFFFFFF
      F0DAA0F888888888F0ADD0F8BFBFBFB8F0DAA0F888888888F0ADD0FFFFFFFFFF
      F0DAA0FFFFFFFFFFF0ADD0000000000000DAADADADADADADADAD}
  end
  object btnClose: TBitBtn
    Left = 338
    Top = 217
    Width = 76
    Height = 24
    Caption = #20851' '#38381
    TabOrder = 8
    OnClick = btnCloseClick
    Glyph.Data = {
      EE000000424DEE000000000000007600000028000000100000000F0000000100
      0400000000007800000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFF0FFFFFF
      FFFFFFFF00FFFFFFFFFFFFF030FFFFFFFFFFFF0330FFFFFFFFFF003330000000
      0FFFF03330FF0FFFFFFFF03300FF0FFFF4FFF03330FF0FFF44FFF03330FF0FF4
      4444F03330FF0F444444F03330FF0FF44444F0330FFF0FFF44FFF030FFFF0FFF
      F4FFF00FFFFF0FFFFFFFF00000000FFFFFFF}
  end
  object dgAdmin: TDBGridEh
    Left = 9
    Top = 35
    Width = 399
    Height = 113
    Color = 16748688
    Ctl3D = True
    DataSource = dsadmin
    FixedColor = 16744576
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 9
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'uid'
        Footers = <>
        Title.Caption = #36134'  '#21495
        Width = 62
      end
      item
        EditButtons = <>
        FieldName = 'pwd'
        Footers = <>
        Title.Caption = #23494'  '#30721
        Width = 62
      end
      item
        Checkboxes = True
        EditButtons = <>
        FieldName = 'sys'
        Footers = <>
        Title.Caption = #31995'  '#32479
        Width = 45
      end
      item
        EditButtons = <>
        FieldName = 'des'
        Footers = <>
        Title.Caption = #25551'  '#36848
        Width = 164
      end>
  end
  object dsadmin: TDataSource
    DataSet = aqAdmin
    Left = 320
    Top = 8
  end
  object aqAdmin: TADOQuery
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 352
    Top = 8
    object aqAdminuid: TWideStringField
      FieldName = 'uid'
      Size = 32
    end
    object aqAdminpwd: TWideStringField
      FieldName = 'pwd'
      Size = 32
    end
    object aqAdminsys: TBooleanField
      FieldName = 'sys'
      OnGetText = aqAdminsysGetText
      OnSetText = aqAdminsysSetText
    end
    object aqAdmindes: TWideStringField
      FieldName = 'des'
      Size = 250
    end
  end
end