sendcardall.dfm

来自「pasa人力资源考勤管理系统」· DFM 代码 · 共 771 行 · 第 1/2 页

object formcardall: Tformcardall
  Left = 321
  Top = 353
  Width = 753
  Height = 539
  Caption = '多人发卡'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 40
    Width = 745
    Height = 472
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet2: TTabSheet
      Caption = '联机'
      ImageIndex = 1
      object GroupBox5: TGroupBox
        Left = 8
        Top = 16
        Width = 585
        Height = 233
        Caption = '联机'
        TabOrder = 0
        object Label6: TLabel
          Left = 24
          Top = 24
          Width = 51
          Height = 13
          Caption = '通讯端口:'
        end
        object Label7: TLabel
          Left = 136
          Top = 24
          Width = 51
          Height = 13
          Caption = '通讯速率:'
        end
        object Label8: TLabel
          Left = 248
          Top = 24
          Width = 27
          Height = 13
          Caption = '机号:'
        end
        object cbComPort: TComboBox
          Left = 24
          Top = 40
          Width = 97
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
        end
        object cbComRate: TComboBox
          Left = 136
          Top = 40
          Width = 97
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 1
          Items.Strings = (
            '9600'
            '19200'
            '38400'
            '57600')
        end
        object edClock_id: TMaskEdit
          Left = 248
          Top = 40
          Width = 49
          Height = 21
          MaxLength = 2
          TabOrder = 2
          Text = '01'
        end
        object btnConnect: TButton
          Left = 24
          Top = 88
          Width = 75
          Height = 25
          Caption = '联机'
          TabOrder = 4
          OnClick = btnConnectClick
        end
        object udClock_id: TUpDown
          Left = 297
          Top = 40
          Width = 16
          Height = 20
          Min = 0
          Max = 255
          Position = 1
          TabOrder = 3
          Thousands = False
          Wrap = False
        end
        object btnDisConnect: TButton
          Left = 120
          Top = 88
          Width = 75
          Height = 25
          Caption = '脱机'
          Enabled = False
          TabOrder = 5
          OnClick = btnDisConnectClick
        end
      end
    end
    object TabSheet1: TTabSheet
      Caption = '发卡录入'
      object Splitter1: TSplitter
        Left = 486
        Top = 0
        Width = 3
        Height = 444
        Cursor = crHSplit
        Align = alRight
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 486
        Height = 444
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnKeyPress = DBGrid1KeyPress
        OnTitleClick = DBGrid1TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'workno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cardno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'prof'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dept'
            Width = 59
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cardkind'
            PickList.Strings = (
              '标准IC卡格式'
              '长IC卡格式'
              '新消费机IC卡格式')
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'times'
            Width = 51
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'money2'
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'readok'
            Visible = True
          end>
      end
      object Panel1: TPanel
        Left = 489
        Top = 0
        Width = 248
        Height = 444
        Align = alRight
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        Visible = False
        object SpeedButton1: TSpeedButton
          Left = 105
          Top = 148
          Width = 33
          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 = 105
          Top = 190
          Width = 33
          Height = 22
          Hint = '是将左边方框中的所有的员工加入到右边方框中'
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            33333FF3333333333333447333333333333377FFF33333333333744473333333
            333337773FF3333333333444447333333333373F773FF3333333334444447333
            33333373F3773FF3333333744444447333333337F333773FF333333444444444
            733333373F3333773FF333334444444444733FFF7FFFFFFF77FF999999999999
            999977777777777733773333CCCCCCCCCC3333337333333F7733333CCCCCCCCC
            33333337F3333F773333333CCCCCCC3333333337333F7733333333CCCCCC3333
            333333733F77333333333CCCCC333333333337FF7733333333333CCC33333333
            33333777333333333333CC333333333333337733333333333333}
          NumGlyphs = 2
          OnClick = SpeedButton2Click
        end
        object SpeedButton3: TSpeedButton
          Left = 105
          Top = 233
          Width = 32
          Height = 20
          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 = 105
          Top = 275
          Width = 32
          Height = 21
          Hint = '可将右边方框中的所有员工移除'
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FF3333333333333744333333333333F773333333333337
            44473333333333F777F3333333333744444333333333F7733733333333374444
            4433333333F77333733333333744444447333333F7733337F333333744444444
            433333F77333333733333744444444443333377FFFFFFF7FFFFF999999999999
            9999733777777777777333CCCCCCCCCC33333773FF333373F3333333CCCCCCCC
            C333333773FF3337F333333333CCCCCCC33333333773FF373F3333333333CCCC
            CC333333333773FF73F33333333333CCCCC3333333333773F7F3333333333333
            CCC333333333333777FF33333333333333CC3333333333333773}
          NumGlyphs = 2
          OnClick = SpeedButton4Click
        end
        object Label4: TLabel
          Left = 5
          Top = 90
          Width = 88
          Height = 22
          Caption = '将部门人员加入下列表框'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clOlive
          Font.Height = -11
          Font.Name = '新细明体'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object Label1: TLabel
          Left = 141
          Top = 90
          Width = 88
          Height = 22
          Caption = '输入工号加入下列表框'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clOlive
          Font.Height = -11
          Font.Name = '新细明体'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object Label2: TLabel
          Left = 8
          Top = 6
          Width = 62
          Height = 13
          AutoSize = False
          Caption = '卡号格式'
        end
        object Label3: TLabel
          Left = 8
          Top = 34
          Width = 62
          Height = 13
          AutoSize = False
          Caption = '充值次数'
        end
        object Label9: TLabel
          Left = 8
          Top = 61
          Width = 62
          Height = 13
          AutoSize = False
          Caption = '卡上金额'
        end
        object Button1: TButton
          Left = 88
          Top = 327
          Width = 75
          Height = 25
          Caption = '确定'
          TabOrder = 0
          OnClick = Button1Click
        end
        object ListBox1: TListBox
          Left = 5
          Top = 142
          Width = 97
          Height = 172
          ItemHeight = 13
          MultiSelect = True
          TabOrder = 1
          OnDblClick = ListBox1DblClick
        end
        object ListBox2: TListBox
          Left = 140
          Top = 142
          Width = 97
          Height = 172
          ItemHeight = 13
          MultiSelect = True