temprecord.dfm

上传个考勤系统,希望别人也能用.该代码只能算初级的东东,软件代码复用性不高,重复代码比较多.唯一感觉有点取鉴的可能就是端口和dll的连接,还有线程的使用,本想改一改,但是手头没有考勤机了,对应考勤机是

object frmTempRecord: TfrmTempRecord
  Left = 271
  Top = 346
  BorderStyle = bsDialog
  Caption = #20020#26102#25968#25454#25805#20316
  ClientHeight = 466
  ClientWidth = 633
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object lbTitle: TLabel
    Left = 144
    Top = 16
    Width = 6
    Height = 13
    Caption = '  '
  end
  object Label7: TLabel
    Left = 375
    Top = 420
    Width = 258
    Height = 13
    AutoSize = False
    Caption = #24320#22987#26102#38388#25110#32773#32467#26463#26102#38388#20026#31354#20063#21487#20197#25191#34892#26597
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 375
    Top = 439
    Width = 258
    Height = 13
    AutoSize = False
    Caption = #35810#65292#23548#20837#32771#21220#23558#21024#38500#31526#21512#26465#20214#30340#20020#26102#25968#25454
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object GroupBox1: TGroupBox
    Left = 373
    Top = 8
    Width = 244
    Height = 153
    Caption = #21047#21345#26102#38388
    TabOrder = 0
    object Label1: TLabel
      Left = 13
      Top = 29
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #24320#22987#26102#38388
    end
    object Label2: TLabel
      Left = 14
      Top = 62
      Width = 59
      Height = 13
      AutoSize = False
      Caption = #32467#26463#26102#38388
    end
    object Label3: TLabel
      Left = 13
      Top = 91
      Width = 204
      Height = 13
      AutoSize = False
      Caption = #26085#26399#26684#24335#65306' yyyy-mm-dd hh:mm:ss[.fff]'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 70
      Top = 107
      Width = 155
      Height = 13
      AutoSize = False
      Caption = ' '#24180'-'#26376'-'#26085' '#23567#26102':'#20998':'#31186'[.'#27627#31186']'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object txtStartTime: TEdit
      Left = 76
      Top = 25
      Width = 149
      Height = 21
      TabOrder = 0
    end
    object txtEndTime: TEdit
      Left = 77
      Top = 60
      Width = 148
      Height = 21
      TabOrder = 1
    end
    object cbSjian: TCheckBox
      Left = 16
      Top = 129
      Width = 161
      Height = 17
      Caption = #21246#36873#21047#21345#26102#38388#20026#21028#26029#26465#20214
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
    Left = 373
    Top = 168
    Width = 244
    Height = 92
    Caption = #21345#21495
    TabOrder = 1
    object Label5: TLabel
      Left = 14
      Top = 30
      Width = 51
      Height = 13
      AutoSize = False
      Caption = #21345'     '#21495
    end
    object txtCardID: TEdit
      Left = 77
      Top = 27
      Width = 148
      Height = 21
      TabOrder = 0
    end
    object cbCardID: TCheckBox
      Left = 16
      Top = 64
      Width = 161
      Height = 17
      Caption = #21246#36873#21345#21495#20026#21028#26029#26465#20214
      TabOrder = 1
    end
  end
  object GroupBox3: TGroupBox
    Left = 373
    Top = 264
    Width = 244
    Height = 91
    Caption = #26426#22120#21495
    TabOrder = 2
    object Label6: TLabel
      Left = 14
      Top = 30
      Width = 51
      Height = 13
      AutoSize = False
      Caption = #26426#22120#21495
    end
    object txtSKJG: TEdit
      Left = 77
      Top = 27
      Width = 148
      Height = 21
      TabOrder = 0
    end
    object cbSKJG: TCheckBox
      Left = 16
      Top = 62
      Width = 161
      Height = 17
      Caption = #21246#36873#26426#22120#21495#20026#21028#26029#26465#20214
      TabOrder = 1
    end
  end
  object Button1: TButton
    Left = 373
    Top = 363
    Width = 124
    Height = 23
    Caption = #26597#30475#26597#35810#32467#26524
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 503
    Top = 363
    Width = 117
    Height = 23
    Caption = #23548#20837#32771#21220
    TabOrder = 4
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 373
    Top = 392
    Width = 124
    Height = 21
    Caption = #21024#38500#20840#37096#20020#26102#25968#25454
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 503
    Top = 392
    Width = 117
    Height = 21
    Caption = #20851#38381#31383#21475
    TabOrder = 6
    OnClick = Button4Click
  end
  object DBGrid1: TDBGrid
    Left = 12
    Top = 14
    Width = 353
    Height = 441
    DataSource = DataSource1
    FixedColor = cl3DLight
    ReadOnly = True
    TabOrder = 7
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = frmMain.ADOQuery1
    Left = 360
    Top = 168
  end
end