📄 frm数据查询.frm
字号:
End
Begin VB.Label lblLabels
Caption = "年资津贴:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 18
Left = 3128
TabIndex = 32
Top = 1725
Width = 1365
End
Begin VB.Label lblLabels
Caption = "加班基数:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 14
Left = 225
TabIndex = 31
Top = 1365
Width = 1365
End
Begin VB.Label lblLabels
Caption = "基本工资:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 10
Left = 5880
TabIndex = 30
Top = 645
Width = 1125
End
Begin VB.Label lblLabels
Caption = "基本日薪:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 6
Left = 3128
TabIndex = 29
Top = 285
Width = 1365
End
Begin VB.Label lblLabels
Caption = "出勤日数:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 5
Left = 225
TabIndex = 28
Top = 285
Width = 1365
End
Begin VB.Label lblLabels
Caption = "基本特津:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 9
Left = 3128
TabIndex = 27
Top = 645
Width = 1365
End
Begin VB.Label lblLabels
Caption = "特殊津贴:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 13
Left = 5880
TabIndex = 26
Top = 1005
Width = 1125
End
Begin VB.Label lblLabels
Caption = "夜班补贴:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 17
Left = 225
TabIndex = 25
Top = 1725
Width = 1365
End
Begin VB.Label lblLabels
Caption = "其它或奖金:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 21
Left = 3128
TabIndex = 24
Top = 2070
Width = 1365
End
Begin VB.Label lblLabels
Caption = "个人所得税:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 25
Left = 5880
TabIndex = 23
Top = 2445
Width = 1335
End
End
Begin VB.CommandButton cmd关闭
Caption = "关闭(&C)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 3878
TabIndex = 0
Top = 3360
Width = 975
End
Begin VB.Data datPrimaryRS
Align = 2 'Align Bottom
Caption = " "
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 435
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 3765
Width = 8730
End
Begin VB.Label lblLabels
Caption = "部门:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 1
Left = 135
TabIndex = 50
Top = 45
Width = 615
End
Begin VB.Label lblLabels
Caption = "应发合计:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 26
Left = 1935
TabIndex = 49
Top = 45
Width = 1005
End
Begin VB.Label lblLabels
Caption = "代扣合计:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 27
Left = 4155
TabIndex = 48
Top = 45
Width = 1005
End
Begin VB.Label lblLabels
Caption = "实发金额:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Index = 28
Left = 6345
TabIndex = 47
Top = 45
Width = 1005
End
Begin VB.Line Line2
BorderColor = &H00808080&
BorderWidth = 2
X1 = 30
X2 = 9060
Y1 = 4260
Y2 = 4260
End
End
Attribute VB_Name = "frm数据查询"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sdbj As Boolean
Dim sq
Option Explicit
Private Sub cmd关闭_Click()
Screen.MousePointer = vbDefault
Unload Me
End Sub
Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer)
'错误处理程序代码置于此处
'想要忽略错误，注释掉下一行
'想要俘获它们，在此添加代码处理它们
MsgBox "Data error event hit err:" & Error$(DataErr)
Response = 0 '忽略错误
End Sub
Private Sub datPrimaryRS_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'为 dynasets 和快照显示当前记录位置
datPrimaryRS.Caption = "当前记录: " & (datPrimaryRS.Recordset.AbsolutePosition + 1)
End Sub
Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer)
'验证代码置于此处
'下列动作发生时该事件被调用
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
Screen.MousePointer = vbDefault
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyPageUp And Not datPrimaryRS.Recordset.BOF Then
datPrimaryRS.Recordset.MovePrevious
If datPrimaryRS.Recordset.BOF Then datPrimaryRS.Recordset.MoveFirst
End If
If KeyCode = vbKeyPageDown And Not datPrimaryRS.Recordset.EOF Then
datPrimaryRS.Recordset.MoveNext
If datPrimaryRS.Recordset.EOF Then datPrimaryRS.Recordset.MoveLast
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -