📄 gztable.frm
字号:
ForeColor = &H00FFFFFF&
Height = 255
Left = 9600
TabIndex = 20
Top = 5040
Width = 1095
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "建房扣款:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 4920
TabIndex = 19
Top = 5040
Width = 1095
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "工会会费:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 18
Top = 5040
Width = 975
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "养老保险:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 2640
TabIndex = 17
Top = 5040
Width = 975
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "房屋租金:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 7320
TabIndex = 16
Top = 5040
Width = 1095
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "职务工资:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 9120
TabIndex = 15
Top = 3120
Width = 1095
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "房屋补贴:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 6120
TabIndex = 14
Top = 4080
Width = 975
End
Begin VB.Label Label9
BackStyle = 0 'Transparent
Caption = "交通补贴:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3240
TabIndex = 13
Top = 4080
Width = 975
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = "洗理费用:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 12
Top = 4080
Width = 975
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "工龄工资:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3240
TabIndex = 11
Top = 3120
Width = 1095
End
Begin VB.Label Label6
BackStyle = 0 'Transparent
Caption = "技能工资:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 10
Top = 3120
Width = 975
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = " 年 / 月"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3600
TabIndex = 8
Top = 1080
Width = 1215
End
Begin VB.Line Line1
BorderColor = &H00FF0000&
X1 = 11415
X2 = 11430
Y1 = 2040
Y2 = 2055
End
Begin VB.Line Line2
BorderColor = &H00000000&
X1 = 10185
X2 = 10185
Y1 = 960
Y2 = 2400
End
Begin VB.Line Line3
BorderColor = &H00FFFFFF&
X1 = 11415
X2 = 11415
Y1 = 960
Y2 = 2400
End
Begin VB.Line Line4
BorderColor = &H00000000&
X1 = 10215
X2 = 11415
Y1 = 960
Y2 = 960
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "职工编号:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 7
Top = 1080
Width = 1095
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "部 门 :"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 3240
TabIndex = 6
Top = 2040
Width = 975
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "职 务 :"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 6240
TabIndex = 5
Top = 2040
Width = 1215
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "职工姓名:"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 255
Left = 240
TabIndex = 4
Top = 2040
Width = 975
End
Begin VB.Menu mnus
Caption = "工资统计(&S)"
End
Begin VB.Menu mnuseek
Caption = "查询(&S)"
Begin VB.Menu mnuopen
Caption = "打开查询器(&O)"
Shortcut = ^O
End
Begin VB.Menu mnuclose
Caption = "关闭查询器(C)"
Shortcut = ^C
End
End
Begin VB.Menu mnuexit
Caption = "退出(&E)"
End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim a(1 To 15) As Double
On Error GoTo a0
If Text6.Text = "" Then
Text6.Text = "0.00"
End If
If Text7.Text = "" Then
Text7.Text = "0.00"
End If
If Text8.Text = "" Then
Text8.Text = "0.00"
End If
If Text9.Text = "" Then
Text9.Text = "0.00"
End If
If Text10.Text = "" Then
Text10.Text = "0.00"
End If
If Text11.Text = "" Then
Text11.Text = "0.00"
End If
If Text12.Text = "" Then
Text12.Text = "0.00"
End If
If Text13.Text = "" Then
Text13.Text = "0.00"
End If
If Text14.Text = "" Then
Text14.Text = "0.00"
End If
If Text15.Text = "" Then
Text15.Text = "0.00"
End If
If Text16.Text = "" Then
Text16.Text = "0.00"
End If
If Text18.Text = "" Then
Text18.Text = "0.00"
End If
If Text19.Text = "" Then
Text19.Text = "0.00"
End If
a(1) = CDbl(Text6.Text)
a(2) = CDbl(Text7.Text)
a(3) = CDbl(Text8.Text)
a(4) = CDbl(Text9.Text)
a(5) = CDbl(Text10.Text)
a(6) = CDbl(Text11.Text)
a(7) = CDbl(Text12.Text)
a(8) = CDbl(Text13.Text)
a(9) = CDbl(Text14.Text)
a(10) = CDbl(Text15.Text)
a(11) = CDbl(Text16.Text)
a(12) = CDbl(Text18.Text)
a(13) = CDbl(Text19.Text)
a(14) = a(1) + a(2) + a(3) + a(4) + a(5) + a(6) - a(7) - a(8) - a(9) - a(10) + a(11) + a(12) + a(13)
Text17.Text = a(14)
Exit Sub
a0:
MsgBox "工资各项数值不能为字符串", vbOKOnly, "提示信息"
End Sub
Private Sub Command10_Click()
On Error GoTo a0
Dim a As String, b As String, c As String, ww As String
If Text21.Text = "" Then
MsgBox "请输入查找条件"
Text21.SetFocus
Exit Sub
End If
a = Combo5.Text
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -