sgsk.dfm

企业员工考勤和工资管理系统

object FormSgsk: TFormSgsk
  Left = 173
  Top = 83
  Width = 608
  Height = 505
  ActiveControl = MaskEditBh
  Caption = '签卡'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object PageControl1: TPageControl
    Left = 3
    Top = 0
    Width = 594
    Height = 433
    ActivePage = TabSheet1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '录    入'
      object Label1: TLabel
        Left = 48
        Top = 29
        Width = 66
        Height = 12
        Caption = '员工编号(&A)'
        FocusControl = MaskEditBh
      end
      object Label2: TLabel
        Left = 49
        Top = 134
        Width = 66
        Height = 12
        Caption = '刷卡日期(&F)'
        FocusControl = MaskEditRq
      end
      object Label3: TLabel
        Left = 321
        Top = 131
        Width = 66
        Height = 12
        Caption = '刷卡时间(&G)'
        FocusControl = MaskEditSj
      end
      object Label4: TLabel
        Left = 321
        Top = 27
        Width = 66
        Height = 12
        Caption = '姓　　名(&B)'
        FocusControl = EditXm
      end
      object Label5: TLabel
        Left = 48
        Top = 80
        Width = 66
        Height = 12
        Caption = '部门名称(&C)'
        FocusControl = EditBm
      end
      object Label6: TLabel
        Left = 321
        Top = 78
        Width = 66
        Height = 12
        Caption = '班组名称(&D)'
        FocusControl = EditBz
      end
      object Label8: TLabel
        Left = 49
        Top = 190
        Width = 66
        Height = 12
        Caption = '原　　因(&H)'
        FocusControl = EditYy
      end
      object MaskEditBh: TMaskEdit
        Left = 120
        Top = 25
        Width = 121
        Height = 20
        EditMask = '9999999999;1; '
        MaxLength = 10
        TabOrder = 0
        Text = '          '
        OnExit = MaskEditBhExit
      end
      object MaskEditRq: TMaskEdit
        Left = 121
        Top = 130
        Width = 121
        Height = 20
        EditMask = '9999-99-99;1; '
        MaxLength = 10
        TabOrder = 4
        Text = '    -  -  '
      end
      object EditXm: TEdit
        Left = 393
        Top = 23
        Width = 121
        Height = 20
        TabStop = False
        Color = clInfoBk
        ReadOnly = True
        TabOrder = 1
      end
      object EditBm: TEdit
        Left = 120
        Top = 76
        Width = 121
        Height = 20
        TabStop = False
        Color = clInfoBk
        ReadOnly = True
        TabOrder = 2
      end
      object EditBz: TEdit
        Left = 393
        Top = 74
        Width = 121
        Height = 20
        TabStop = False
        Color = clInfoBk
        ReadOnly = True
        TabOrder = 3
      end
      object EditYy: TEdit
        Left = 121
        Top = 186
        Width = 121
        Height = 20
        MaxLength = 20
        TabOrder = 6
      end
      object MaskEditSj: TMaskEdit
        Left = 393
        Top = 127
        Width = 121
        Height = 20
        EditMask = '99:99;1; '
        MaxLength = 5
        TabOrder = 5
        Text = '  :  '
      end
      object BitBtnSave: TBitBtn
        Left = 249
        Top = 336
        Width = 97
        Height = 25
        Caption = '保    存'
        TabOrder = 7
        OnClick = BitBtnSaveClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
    end
    object TabSheet2: TTabSheet
      Caption = '查询＆删除'
      ImageIndex = 1
      object Label9: TLabel
        Left = 95
        Top = 342
        Width = 56
        Height = 14
        Caption = '记录数：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -14
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object LabelCount: TLabel
        Left = 161
        Top = 341
        Width = 9
        Height = 16
        Caption = '0'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = '宋体'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object DBGrid1: TDBGrid
        Left = 4
        Top = 2
        Width = 581
        Height = 331
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'lshao'
            Title.Alignment = taCenter
            Title.Caption = '流水号'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clHighlight
            Title.Font.Height = -12
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ygbh'
            Title.Alignment = taCenter
            Title.Caption = '编号'
            Title.Font.Charset = GB2312_CHARSET
            Title.Font.Color = clHighlight
            Title.Font.Height = -12
            Title.Font.Name = '宋体'
            Title.Font.Style = []
            Width = 50
            Visible = True