sendcard.dfm

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

object formcard: Tformcard
  Left = -237
  Top = 171
  Width = 800
  Height = 452
  Caption = '员工发卡设置'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 792
    Height = 40
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 55
    Caption = 'ToolBar1'
    Images = formmain.ImageList1
    ParentShowHint = False
    ShowCaptions = True
    ShowHint = True
    TabOrder = 0
    Transparent = True
    object readcard: TToolButton
      Left = 0
      Top = 2
      AutoSize = True
      Caption = '读卡'
      ImageIndex = 117
      OnClick = readcardClick
    end
    object ToolButton13: TToolButton
      Left = 35
      Top = 2
      AutoSize = True
      Caption = '刷新'
      ImageIndex = 155
      OnClick = ToolButton13Click
    end
    object ToolButton9: TToolButton
      Left = 70
      Top = 2
      AutoSize = True
      Caption = '初始发卡'
      ImageIndex = 48
      OnClick = ToolButton9Click
    end
    object count: TToolButton
      Left = 129
      Top = 2
      AutoSize = True
      Caption = '汇总'
      ImageIndex = 8
      OnClick = countClick
    end
    object ToolButton10: TToolButton
      Left = 164
      Top = 2
      AutoSize = True
      Caption = '查找'
      ImageIndex = 158
      OnClick = ToolButton10Click
    end
    object print: TToolButton
      Left = 199
      Top = 2
      AutoSize = True
      Caption = '打印'
      ImageIndex = 115
      OnClick = printClick
    end
    object ToolButton8: TToolButton
      Left = 234
      Top = 2
      AutoSize = True
      Caption = '退出'
      ImageIndex = 54
      OnClick = ToolButton8Click
    end
    object DBNavigator1: TDBNavigator
      Left = 269
      Top = 2
      Width = 234
      Height = 36
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbEdit, nbPost, nbCancel, nbRefresh]
      TabOrder = 0
    end
  end
  object pagecontrol1: TPageControl
    Left = 0
    Top = 40
    Width = 792
    Height = 385
    ActivePage = TabSheet3
    Align = alClient
    MultiLine = True
    TabOrder = 1
    OnChange = pagecontrol1Change
    object TabSheet1: TTabSheet
      Caption = '联机'
      object GroupBox5: TGroupBox
        Left = 8
        Top = 16
        Width = 585
        Height = 233
        Caption = '联机'
        TabOrder = 0
        object Label1: TLabel
          Left = 24
          Top = 24
          Width = 51
          Height = 13
          Caption = '通讯端口:'
        end
        object Label2: TLabel
          Left = 136
          Top = 24
          Width = 51
          Height = 13
          Caption = '通讯速率:'
        end
        object Label3: 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 = 0
          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 = 21
          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 TabSheet7: TTabSheet
      Caption = '挂失处理'
      ImageIndex = 6
      object DBGrid7: TDBGrid
        Left = 0
        Top = 37
        Width = 784
        Height = 249
        Align = alClient
        DataSource = Dsguasi
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnTitleClick = DBGrid7TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'mach'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'workno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cardno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dept'
            Width = 107
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'prof'
            Width = 65
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'money'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'operator'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cdate'
            Visible = True
          end>
      end
      object Panel5: TPanel
        Left = 0
        Top = 286
        Width = 784
        Height = 71
        Align = alBottom
        TabOrder = 1
        object Label32: TLabel
          Left = 35
          Top = 14
          Width = 24
          Height = 13
          Caption = '工号'
          FocusControl = DBEdit8
        end
        object Label34: TLabel
          Left = 177
          Top = 14
          Width = 24
          Height = 13
          Caption = '卡号'
        end
        object DBText13: TDBText
          Left = 209
          Top = 13
          Width = 48
          Height = 13
          AutoSize = True
          DataField = 'cardno'
          DataSource = Dsguasi
        end
        object Label35: TLabel
          Left = 410
          Top = 14
          Width = 34
          Height = 13
          AutoSize = False
          Caption = '部门'
        end
        object DBText14: TDBText
          Left = 441
          Top = 13
          Width = 48
          Height = 13
          AutoSize = True
          DataField = 'dept'
          DataSource = Dsguasi
        end
        object Label36: TLabel
          Left = 598
          Top = 14
          Width = 34
          Height = 13
          AutoSize = False
          Caption = '职务'
        end
        object DBText15: TDBText
          Left = 629
          Top = 13
          Width = 48
          Height = 13
          AutoSize = True
          DataField = 'prof'
          DataSource = Dsguasi
        end
        object Label39: TLabel
          Left = 178
          Top = 43
          Width = 47
          Height = 18
          AutoSize = False
          Caption = '建档人'
        end
        object DBText16: TDBText
          Left = 220
          Top = 42
          Width = 48
          Height = 13
          AutoSize = True
          DataField = 'operator'
          DataSource = Dsguasi
        end
        object Label40: TLabel
          Left = 296
          Top = 43
          Width = 59
          Height = 13
          AutoSize = False
          Caption = '建档日期'
        end
        object DBText17: TDBText
          Left = 352
          Top = 42
          Width = 48
          Height = 13
          AutoSize = True
          DataField = 'cdate'
          DataSource = Dsguasi
        end
        object Label42: TLabel
          Left = 297
          Top = 15
          Width = 34
          Height = 13
          AutoSize = False
          Caption = '姓名'
        end
        object DBText18: TDBText
          Left = 328
          Top = 14
          Width = 48
          Height = 13
          AutoSize = True
          DataField = 'name'
          DataSource = Dsguasi
        end
        object Label41: TLabel
          Left = 8
          Top = 41
          Width = 60
          Height = 13
          AutoSize = False
          Caption = '充值金额'
          FocusControl = DBEdit11
        end
        object DBEdit8: TDBEdit
          Left = 66
          Top = 10
          Width = 90
          Height = 21
          DataField = 'workno'
          DataSource = Dsguasi
          TabOrder = 0
          OnKeyDown = DBEdit8KeyDown
        end
        object DBEdit11: TDBEdit
          Left = 66
          Top = 39
          Width = 90
          Height = 21
          Color = clSilver
          DataField = 'money'
          DataSource = Dsguasi
          ReadOnly = True
          TabOrder = 1
        end
      end
      object Panel7: TPanel
        Left = 0
        Top = 0
        Width = 784
        Height = 37
        Align = alTop
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        object Label49: TLabel
          Left = 27
          Top = 12
          Width = 92
          Height = 13
          Caption = '工号/卡号/姓名'
        end
        object Edit3: TEdit
          Left = 130
          Top = 8
          Width = 81
          Height = 21
          MaxLength = 10
          TabOrder = 0
          OnExit = Edit3Exit
        end
      end
    end
    object TabSheet8: TTabSheet
      Caption = '解挂失处理'
      ImageIndex = 7
      object DBGrid8: TDBGrid
        Left = 0
        Top = 37
        Width = 784
        Height = 261
        Align = alClient
        DataSource = Dsjieguasi
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnTitleClick = DBGrid8TitleClick
        Columns = <
          item
            Expanded = False
            FieldName = 'mach'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'workno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cardno'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'dept'
            Width = 113
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'prof'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'name'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'operator'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'cdate'
            Visible = True
          end>
      end
      object Panel6: TPanel
        Left = 0