frmclocktime.frm

依时利 EastRiver IC卡考勤机写卡程 VB

VERSION 5.00
Begin VB.Form frmClocktime 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "考勤时段"
   ClientHeight    =   1740
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1740
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.TextBox txtE2 
      Height          =   285
      Left            =   3360
      MaxLength       =   2
      TabIndex        =   3
      Text            =   "00"
      Top             =   600
      Width           =   540
   End
   Begin VB.TextBox txtE1 
      Height          =   285
      Left            =   2520
      MaxLength       =   2
      TabIndex        =   2
      Text            =   "24"
      Top             =   600
      Width           =   495
   End
   Begin VB.TextBox txtB2 
      Height          =   285
      Left            =   1200
      MaxLength       =   2
      TabIndex        =   1
      Text            =   "00"
      Top             =   600
      Width           =   495
   End
   Begin VB.TextBox txtB1 
      Height          =   285
      Left            =   360
      MaxLength       =   2
      TabIndex        =   0
      Text            =   "00"
      Top             =   600
      Width           =   480
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消"
      Height          =   375
      Left            =   2760
      TabIndex        =   5
      Top             =   1200
      Width           =   1335
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定"
      Height          =   375
      Left            =   1200
      TabIndex        =   4
      Top             =   1200
      Width           =   1335
   End
   Begin VB.Label Label5 
      Caption         =   "分"
      Height          =   255
      Index           =   1
      Left            =   3960
      TabIndex        =   12
      Top             =   600
      Width           =   255
   End
   Begin VB.Label Label4 
      Caption         =   "时"
      Height          =   255
      Index           =   1
      Left            =   3120
      TabIndex        =   11
      Top             =   600
      Width           =   255
   End
   Begin VB.Label Label5 
      Caption         =   "分"
      Height          =   255
      Index           =   0
      Left            =   1800
      TabIndex        =   10
      Top             =   600
      Width           =   255
   End
   Begin VB.Label Label4 
      Caption         =   "时"
      Height          =   255
      Index           =   0
      Left            =   960
      TabIndex        =   9
      Top             =   600
      Width           =   255
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Caption         =   "-->"
      Height          =   255
      Left            =   2040
      TabIndex        =   8
      Top             =   600
      Width           =   375
   End
   Begin VB.Label Label2 
      Caption         =   "结束时间"
      Height          =   255
      Left            =   2520
      TabIndex        =   7
      Top             =   240
      Width           =   855
   End
   Begin VB.Label Label1 
      Caption         =   "开始时间"
      Height          =   255
      Left            =   360
      TabIndex        =   6
      Top             =   240
      Width           =   855
   End
End
Attribute VB_Name = "frmClocktime"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public hport As Long
Private Sub cmdCancel_Click()
    Unload frmClocktime
End Sub

Private Sub cmdOk_Click()
Dim ltmX As ListItem
Dim T1 As String
Dim T2 As String

    If hport > 0 Then
        T1 = Format(txtB1.Text, "00") & Format(txtB2.Text, "00")
        T2 = Format(txtE1.Text, "00") & Format(txtE2.Text, "00")
        If EastRiver.SetClockerTime(hport, T1, T2) Then
            frmMain.msg.Caption = "添加考勤时段成功."
            Set ltmX = frmMain.lvClockTime.ListItems.Add
                ltmX.Text = T1
                ltmX.SubItems(1) = T2
            frmMain.lvClockTime.Sorted = True
        End If
    End If
    Unload frmClocktime
End Sub