addzt.dfm

pasa人力资源考勤管理系统

object Formaddzt: TFormaddzt
  Left = 308
  Top = -3
  Width = 379
  Height = 481
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '分配帐套'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel5: TPanel
    Left = 0
    Top = 0
    Width = 371
    Height = 454
    Align = alClient
    AutoSize = True
    Caption = 'Panel5'
    TabOrder = 0
    object GroupBox3: TGroupBox
      Left = 1
      Top = 44
      Width = 369
      Height = 409
      Align = alClient
      Caption = '人员列表'
      TabOrder = 0
      object Label1: TLabel
        Left = 186
        Top = 207
        Width = 13
        Height = 130
        Caption = '右边是分配帐套的人员'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clOlive
        Font.Height = -13
        Font.Name = '新细明体'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object SpeedButton1: TSpeedButton
        Left = 173
        Top = 81
        Width = 39
        Height = 22
        Hint = '可将左边方框中选中的一个或多个员工，一起加到右边的方框中'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333FF3333333333333003333
          3333333333773FF3333333333309003333333333337F773FF333333333099900
          33333FFFFF7F33773FF30000000999990033777777733333773F099999999999
          99007FFFFFFF33333F7700000009999900337777777F333F7733333333099900
          33333333337F3F77333333333309003333333333337F77333333333333003333
          3333333333773333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 173
        Top = 113
        Width = 39
        Height = 22
        Hint = '是将左边方框中的所有的员工加入到右边方框中'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FF3333333333333447333333333333377FFF33333333333744473333333
          333337773FF3333333333444447333333333373F773FF3333333334444447333
          33333373F3773FF3333333744444447333333337F333773FF333333444444444
          733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
          999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
          33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
          333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
          33333777333333333333CC333333333333337733333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 173
        Top = 145
        Width = 39
        Height = 22
        Hint = '可将右边方框中选中的一个或多个员工移除'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333FF3333333333333003333333333333F77F33333333333009033
          333333333F7737F333333333009990333333333F773337FFFFFF330099999000
          00003F773333377777770099999999999990773FF33333FFFFF7330099999000
          000033773FF33777777733330099903333333333773FF7F33333333333009033
          33333333337737F3333333333333003333333333333377333333333333333333
          3333333333333333333333333333333333333333333333333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 173
        Top = 178
        Width = 39
        Height = 22
        Hint = '可将右边方框中的所有员工移除'
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333FF3333333333333744333333333333F773333333333337
          44473333333333F777F3333333333744444333333333F7733733333333374444
          4433333333F77333733333333744444447333333F7733337F333333744444444
          433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
          9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
          C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
          CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
          CCC333333333333777FF33333333333333CC3333333333333773}
        NumGlyphs = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton4Click
      end
      object Label2: TLabel
        Left = 11
        Top = 16
        Width = 165
        Height = 22
        Caption = '输入部门编号按回车键，可将该部门的所有人员加入下面的方框中'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clOlive
        Font.Height = -11
        Font.Name = '新细明体'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Label3: TLabel
        Left = 217
        Top = 16
        Width = 143
        Height = 22
        Caption = '输入员工工号按回车键，可将该员工直接加入下面方框中'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clOlive
        Font.Height = -11
        Font.Name = '新细明体'
        Font.Style = []
        ParentFont = False
        WordWrap = True
      end
      object Label25: TLabel
        Left = 189
        Top = 343
        Width = 7
        Height = 13
        Caption = '0'
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = '新细明体'
        Font.Style = []
        ParentFont = False
      end
      object ListBox1: TListBox
        Left = 8
        Top = 75
        Width = 155
        Height = 294
        ImeName = '中文 (简体) - 智能 ABC'
        ItemHeight = 13
        MultiSelect = True
        TabOrder = 0
        OnDblClick = ListBox1DblClick
      end
      object ListBox2: TListBox
        Left = 222
        Top = 75
        Width = 140
        Height = 294
        ImeName = '中文 (简体) - 智能 ABC'
        ItemHeight = 13
        MultiSelect = True
        Sorted = True
        TabOrder = 1
      end
      object ComboBox1: TComboBox
        Left = 9
        Top = 48
        Width = 155
        Height = 21
        ImeName = '中文 (简体) - 智能 ABC'
        ItemHeight = 13
        TabOrder = 2
        OnChange = ComboBox1Change
        OnKeyPress = ComboBox1KeyPress
      end
      object Button1: TButton
        Left = 171
        Top = 378
        Width = 44
        Height = 21
        Hint = '存盘退出'
        Caption = '确认'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
        OnClick = Button1Click
      end
      object Edit1: TEdit
        Left = 221
        Top = 48
        Width = 140
        Height = 21
        Hint = '可以直接输入员工的工号加入，也可以查询'
        ImeName = '中文 (简体) - 智能 ABC'
        TabOrder = 4
        OnKeyPress = Edit1KeyPress
      end
    end
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 369
      Height = 43
      Align = alTop
      TabOrder = 1
      object Label4: TLabel
        Left = 9
        Top = 18
        Width = 41
        Height = 13
        AutoSize = False
        Caption = '帐套名'
      end
      object wwDBLookupCombo1: TwwDBLookupCombo
        Left = 55
        Top = 13
        Width = 304
        Height = 21
        DropDownAlignment = taLeftJustify
        Selected.Strings = (
          'ztname'#9'50'#9'帐套名'#9'F')
        LookupTable = DataMod.ADOzt
        LookupField = 'ztname'
        TabOrder = 0
        AutoDropDown = False
        ShowButton = True
        AllowClearKey = False
      end
    end
  end
  object qry1: TADOQuery
    Connection = DataMod.Database1
    Parameters = <>
    Left = 152
    Top = 48
  end
  object ADOQuery1: TADOQuery
    Connection = DataMod.Database1
    Parameters = <>
    Left = 201
    Top = 99
  end
end