www.pudn.com > VB-KAOQINXITONG.zip > frmAttendSystem.frm
VERSION 5.00
Object = "{B9D938CE-50EE-40B2-9FA2-79A3112F4788}#4.0#0"; "BNCtrlGroup.ocx"
Begin VB.Form frmAttendSystem
BorderStyle = 3 'Fixed Dialog
Caption = "考勤制度"
ClientHeight = 5070
ClientLeft = 1650
ClientTop = 1530
ClientWidth = 4845
Icon = "frmAttendSystem.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5070
ScaleWidth = 4845
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox picStatBox
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 390
Left = 3390
ScaleHeight = 390
ScaleWidth = 1425
TabIndex = 19
Top = 3915
Width = 1425
Begin BNCtrlGroup.BNButton cmdFirst
Height = 300
Left = 30
TabIndex = 6
Top = 45
Width = 315
_ExtentX = 556
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdPrevious
Height = 300
Left = 375
TabIndex = 7
Top = 45
Width = 315
_ExtentX = 556
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdNext
Height = 300
Left = 705
TabIndex = 8
Top = 45
Width = 315
_ExtentX = 556
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdLast
Height = 300
Left = 1050
TabIndex = 9
Top = 45
Width = 315
_ExtentX = 556
_ExtentY = 529
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
End
Begin VB.Frame Frame1
Appearance = 0 'Flat
BeginProperty Font
Name = "Times New Roman"
Size = 12
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 4020
Left = 15
TabIndex = 0
Top = -135
Width = 4830
Begin VB.TextBox txtFields
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "subTimes"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 9
Left = 2070
TabIndex = 22
Top = 2790
Width = 2520
End
Begin VB.CheckBox chkFields
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "是否有效："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 285
Index = 0
Left = 2640
TabIndex = 21
Top = 3420
Width = 1815
End
Begin VB.CheckBox chkFields
Alignment = 1 'Right Justify
Appearance = 0 'Flat
Caption = "是否按实际："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 285
Index = 1
Left = 255
TabIndex = 20
Top = 3420
Width = 1980
End
Begin VB.TextBox txtFields
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "Condition1"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 3
Left = 2070
TabIndex = 2
Top = 846
Width = 2520
End
Begin VB.TextBox txtFields
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "Condition2"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 5
Left = 2070
TabIndex = 3
Top = 1332
Width = 2520
End
Begin VB.TextBox txtFields
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "Substand"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 7
Left = 2070
TabIndex = 4
Top = 1818
Width = 2520
End
Begin VB.TextBox txtFields
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "subTimes"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 8
Left = 2070
TabIndex = 5
Top = 2304
Width = 2520
End
Begin VB.TextBox txtFields
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
DataField = "desc"
DataSource = "datPrimaryRS"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 1
Left = 2070
MaxLength = 30
TabIndex = 1
Top = 360
Width = 2520
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "最大值(小时)："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 9
Left = 300
TabIndex = 23
Top = 2880
Width = 1470
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "大于条件(分钟)："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 3
Left = 300
TabIndex = 18
Top = 900
Width = 1680
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "制度描述："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 300
TabIndex = 17
Top = 420
Width = 1050
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "小于条件(分钟)："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 5
Left = 300
TabIndex = 16
Top = 1395
Width = 1680
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "扣工时标准(分钟)："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 7
Left = 300
TabIndex = 15
Top = 1875
Width = 1890
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "倍数："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 8
Left = 300
TabIndex = 14
Top = 2360
Width = 630
End
End
Begin BNCtrlGroup.BNButton cmdExit
Height = 345
Left = 3675
TabIndex = 13
Top = 4455
Width = 1125
_ExtentX = 1984
_ExtentY = 609
Caption = "退 出"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdEdit
Height = 345
Left = 60
TabIndex = 10
Top = 4455
Width = 1125
_ExtentX = 1984
_ExtentY = 609
Caption = "编 辑"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdCancel
Cancel = -1 'True
Height = 345
Left = 2475
TabIndex = 12
Top = 4455
Width = 1125
_ExtentX = 1984
_ExtentY = 609
Caption = "取 消"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
Begin BNCtrlGroup.BNButton cmdRefresh
Height = 345
Left = 1275
TabIndex = 11
Top = 4455
Width = 1125
_ExtentX = 1984
_ExtentY = 609
Caption = "刷 新"
CapAlign = 2
BackStyle = 2
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mode = 0
Value = 0 'False
cBack = -2147483633
End
End
Attribute VB_Name = "frmAttendSystem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'制度设定
Option Explicit
Dim WithEvents adoPrimaryRS As ADODB.Recordset
Attribute adoPrimaryRS.VB_VarHelpID = -1
Dim mbIsBusy As Boolean
Dim mbEditMode As Boolean
Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If mbIsBusy Then Exit Sub
With adoPrimaryRS
If .RecordCount = 0 Then Exit Sub
If .EOF Or .BOF Then Exit Sub
txtFields(1) = !W6683
txtFields(3) = !W6688
txtFields(5) = !W6689
txtFields(7) = !W6686
txtFields(8) = !W6687
txtFields(9) = !W6690
chkFields(0) = gclsInclude.MyNz(!W6696, 0)
chkFields(1) = gclsInclude.MyNz(!W6697, 0)
txtFields(3).Visible = !ID <> SYS_FEAST
txtFields(5).Visible = !ID <> SYS_FEAST
txtFields(7).Visible = !ID <> SYS_FEAST
txtFields(9).Visible = !ID <> SYS_FEAST
lblLabels(3).Visible = !ID <> SYS_FEAST
lblLabels(5).Visible = !ID <> SYS_FEAST
lblLabels(7).Visible = !ID <> SYS_FEAST
lblLabels(9).Visible = !ID <> SYS_FEAST
End With
' sIndex(1, 1) = SYS_LATER: sIndex(2, 1) = "迟到"
' sIndex(1, 2) = SYS_EARLY: sIndex(2, 2) = "早退"
' sIndex(1, 3) = SYS_PUNISH: sIndex(2, 3) = "扣罚"
' sIndex(1, 4) = SYS_ABSENT: sIndex(2, 4) = "旷工"
' sIndex(1, 5) = SYS_FEAST: sIndex(2, 5) = "法定假"
End Sub
Private Sub chkFields_Click(Index As Integer)
txtFields(7).Enabled = chkFields(1).Value = 0
lblLabels(7).Enabled = chkFields(1).Value = 0
End Sub
Private Sub cmdCancel_Click()
adoPrimaryRS.Cancel
LoSetButtons False
End Sub
Private Sub cmdExit_Click()
Screen.MousePointer = vbDefault
Unload Me
End Sub
Private Sub LoSetButtons(ByVal fbEnabled As Boolean)
mbEditMode = fbEnabled
cmdRefresh.Enabled = fbEnabled
cmdEdit.Visible = Not fbEnabled
cmdCancel.Visible = fbEnabled
Frame1.Enabled = fbEnabled
End Sub
Private Sub cmdEdit_Click()
LoSetButtons True
End Sub
Private Sub cmdFirst_Click()
gclsCommon.CBNMoveFirst adoPrimaryRS
End Sub
Private Sub cmdLast_Click()
gclsCommon.CBNMoveLast adoPrimaryRS
End Sub
Private Sub cmdNext_Click()
gclsCommon.CBNMoveNext adoPrimaryRS
End Sub
Private Sub cmdPrevious_Click()
gclsCommon.CBNMovePrevious adoPrimaryRS
End Sub
Private Sub cmdRefresh_Click()
If mbEditMode Then
With adoPrimaryRS
!W6683 = txtFields(1)
!W6688 = txtFields(3)
!W6689 = txtFields(5)
!W6690 = txtFields(9)
!W6686 = txtFields(7)
!W6687 = txtFields(8)
!W6696 = chkFields(0)
!W6697 = chkFields(1)
.Update
End With
LoSetButtons False
End If
End Sub
Private Sub Form_Load()
Dim vBookMark
LoSetButtonTag
SetIcon Me
mbIsBusy = True
LoSetButtons False
Dim adoTempRS As ADODB.Recordset
Set adoPrimaryRS = New ADODB.Recordset
adoPrimaryRS.Open "SELECT * FROM T0121S001", gDBRecordConn, adOpenStatic, adLockOptimistic
mbIsBusy = False
adoPrimaryRS.MoveFirst
End Sub
Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub
Private Sub LoSetButtonTag()
If gTAppLicInfo.CtrlButtonStyle > 0 And gTAppLicInfo.CtrlButtonStyle < 5 Then
cmdFirst.Caption = ""
cmdPrevious.Caption = ""
cmdNext.Caption = ""
cmdLast.Caption = ""
Else
cmdFirst.Caption = "<<"
cmdPrevious.Caption = "<"
cmdNext.Caption = ">"
cmdLast.Caption = ">>"
End If
cmdFirst.Tag = "IMG002"
cmdPrevious.Tag = "IMG003"
cmdNext.Tag = "IMG004"
cmdLast.Tag = "IMG005"
cmdFirst.ToolTipText = "记录头部"
cmdPrevious.ToolTipText = "前一条记录"
cmdNext.ToolTipText = "后一条记录"
cmdLast.ToolTipText = "记录尾部"
cmdEdit.Tag = "IMG025"
cmdExit.Tag = "IMG029"
cmdRefresh.Tag = "IMG040"
cmdCancel.Tag = "IMG014"
End Sub
Private Sub txtFields_KeyPress(Index As Integer, KeyAscii As Integer)
KeyAscii = gclsInclude.MyValiText(KeyAscii, "0123456789", True, True)
End Sub