📄 formftcount.frm
字号:
NumButtons = 12
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新建"
Object.ToolTipText = "新建"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Object.ToolTipText = "删除"
ImageIndex = 2
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "刷新"
Object.ToolTipText = "刷新"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "保存"
Object.ToolTipText = "保存"
ImageIndex = 4
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "取消"
Object.ToolTipText = "取消"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Object.ToolTipText = "退出"
ImageIndex = 6
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "查询"
Object.ToolTipText = "查询员工"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 9
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 10
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 11
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "修改"
ImageIndex = 13
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 24
ImageHeight = 23
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 14
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":0019
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":0693
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":0815
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":0E8F
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":0FA1
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":10B3
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":11BD
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":12C7
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":15EB
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":190F
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":1C33
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":1F93
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":22BF
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":25B7
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList2
Left = 0
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 24
ImageHeight = 23
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 14
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":298F
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":3009
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":318B
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":3805
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":3917
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":3A29
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":3B33
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":3C3D
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":3F61
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":4285
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":45A9
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":4909
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":4C35
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Formftcount.frx":4F2D
Key = ""
EndProperty
EndProperty
End
Begin VB.Label Label12
Caption = "夜餐免"
ForeColor = &H8000000D&
Height = 255
Left = 3600
TabIndex = 23
Top = 1920
Width = 615
End
Begin VB.Label Label8
Caption = "中餐免"
ForeColor = &H8000000D&
Height = 255
Left = 3600
TabIndex = 22
Top = 1680
Width = 615
End
Begin VB.Label Label4
Caption = "部门"
ForeColor = &H8000000D&
Height = 270
Left = 3600
TabIndex = 21
Top = 1320
Width = 495
End
Begin VB.Label Label13
Caption = "夜餐扣"
ForeColor = &H8000000D&
Height = 255
Left = 5280
TabIndex = 20
Top = 1920
Width = 615
End
Begin VB.Label Label11
Caption = "晚餐扣"
ForeColor = &H8000000D&
Height = 255
Left = 1800
TabIndex = 19
Top = 1920
Width = 735
End
Begin VB.Label Label10
Caption = "晚餐免"
ForeColor = &H8000000D&
Height = 255
Left = 360
TabIndex = 18
Top = 1920
Width = 615
End
Begin VB.Label Label9
Caption = "中餐扣"
ForeColor = &H8000000D&
Height = 255
Left = 5280
TabIndex = 17
Top = 1680
Width = 615
End
Begin VB.Label Label7
Caption = "宵夜扣"
ForeColor = &H8000000D&
Height = 255
Left = 1800
TabIndex = 15
Top = 1680
Width = 615
End
Begin VB.Label Label2
Caption = "宵夜免"
ForeColor = &H8000000D&
Height = 255
Left = 360
TabIndex = 13
Top = 1680
Width = 615
End
Begin VB.Label Label6
Caption = "处理进度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 12
Top = 5640
Width = 735
End
Begin VB.Label Label1
Caption = "输入处理月份"
ForeColor = &H8000000D&
Height = 270
Left = 360
TabIndex = 11
Top = 840
Width = 1215
End
Begin VB.Label Label3
Caption = "工号"
ForeColor = &H8000000D&
Height = 270
Left = 360
TabIndex = 10
Top = 1320
Width = 495
End
Begin VB.Label Label5
Caption = "姓名"
ForeColor = &H8000000D&
Height = 270
Left = 1920
TabIndex = 9
Top = 1320
Width = 495
End
End
Attribute VB_Name = "Formftcount"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim vbookmark As Variant
Dim lcurrrec As Long
Dim baddnewflag As Boolean
Dim WithEvents adors As Recordset
Attribute adors.VB_VarHelpID = -1
Dim vmonth
Dim vxzf, vxgf, i, vbmname, vzgid, vbmid, vzgname, vf, vg
Dim vzgf, vzzf, vwgf, vwzf, vygf, vyzf
Dim varrid
Dim vdate, vyear
Private Sub Adcftcount_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Not Adcftcount.Recordset.EOF Then
If Not IsNull(Adcftcount.Recordset.Fields("zgid").Value) Then
Textzgid.Text = Adcftcount.Recordset.Fields("zgid").Value
End If
If Not IsNull(Adcftcount.Recordset.Fields("zgname").Value) Then
Textzgname.Text = Adcftcount.Recordset.Fields("zgname").Value
End If
If Not IsNull(Adcftcount.Recordset.Fields("bmid").Value) Then
Textbmname.Text = Adcftcount.Recordset.Fields("bmid").Value
End If
If Not IsNull(Adcftcount.Recordset.Fields("xgf").Value) Then
Textxgf.Text = Adcftcount.Recordset.Fields("xgf").Value
End If
If Not IsNull(Adcftcount.Recordset.Fields("xzf").Value) Then
Textxzf.Text = Adcftcount.Recordset.Fields("xzf").Value
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -