📄 frmpayroll_new.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmPayroll_New
BorderStyle = 1 'Fixed Single
Caption = "New Payroll"
ClientHeight = 7305
ClientLeft = 45
ClientTop = 735
ClientWidth = 11520
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7305
ScaleWidth = 11520
Begin VB.CommandButton cmdCalc
Caption = "&Calculate Payroll..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 8400
TabIndex = 29
ToolTipText = "Click here to automate calculations"
Top = 6840
Width = 1695
End
Begin VB.OptionButton pay1
Caption = "Bank"
Height = 255
Left = 5400
TabIndex = 3
Top = 1920
Width = 1455
End
Begin VB.OptionButton pay2
Caption = "Cash"
Height = 255
Left = 5400
TabIndex = 4
Top = 2280
Width = 1455
End
Begin VB.OptionButton pay3
Caption = "Cheque"
Height = 255
Left = 5400
TabIndex = 5
Top = 2640
Width = 1455
End
Begin VB.CommandButton cmdSave
Caption = "&Save"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 10200
TabIndex = 30
ToolTipText = "Click here to save the current payroll for the selected employee."
Top = 6840
Width = 1215
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 4335
Left = 8400
ScaleHeight = 4335
ScaleWidth = 3015
TabIndex = 17
Top = 2400
Width = 3015
Begin VB.TextBox txtCalc
Height = 285
Index = 10
Left = 1560
MaxLength = 12
TabIndex = 28
Text = "0.00"
Top = 3960
Width = 1335
End
Begin VB.TextBox txtCalc
Height = 285
Index = 9
Left = 1560
MaxLength = 12
TabIndex = 27
Text = "0.00"
Top = 3600
Width = 1335
End
Begin VB.TextBox txtCalc
Height = 285
Index = 8
Left = 1560
MaxLength = 12
TabIndex = 26
Text = "0.00"
Top = 3240
Width = 1335
End
Begin VB.TextBox txtCalc
Height = 285
Index = 7
Left = 1560
MaxLength = 12
TabIndex = 25
Text = "0.00"
Top = 2880
Width = 1335
End
Begin VB.TextBox txtCalc
Height = 285
Index = 6
Left = 1560
MaxLength = 12
TabIndex = 24
Text = "0.00"
Top = 2520
Width = 1335
End
Begin VB.TextBox txtCalc
Height = 285
Index = 0
Left = 1560
MaxLength = 12
TabIndex = 18
Text = "0.00"
Top = 120
Width = 1335
End
Begin VB.TextBox txtCalc
Height = 285
Index = 1
Left = 1560
MaxLength = 12
TabIndex = 19
Text = "0.00"
Top = 480
Width = 1335
End
Begin VB.TextBox txtCalc
Height = 285
Index = 2
Left = 1560
MaxLength = 12
TabIndex = 20
Text = "0.00"
Top = 960
Width = 1335
End
Begin VB.TextBox txtCalc
Height = 285
Index = 3
Left = 1560
MaxLength = 12
TabIndex = 21
Text = "0.00"
Top = 1440
Width = 1335
End
Begin VB.TextBox txtCalc
Height = 285
Index = 4
Left = 1560
MaxLength = 12
TabIndex = 22
Text = "0.00"
Top = 1800
Width = 1335
End
Begin VB.TextBox txtCalc
Height = 285
Index = 5
Left = 1560
MaxLength = 12
TabIndex = 23
Text = "0.00"
Top = 2160
Width = 1335
End
Begin VB.Label Label24
BackStyle = 0 'Transparent
Caption = "Salary Advance:"
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 60
Top = 2880
Width = 1335
End
Begin VB.Label Label23
BackStyle = 0 'Transparent
Caption = "OT Allowance:"
ForeColor = &H00FF0000&
Height = 255
Left = 120
TabIndex = 59
Top = 3600
Width = 1335
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "Income tax:"
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 49
Top = 2160
Width = 1455
End
Begin VB.Label Label10
BackStyle = 0 'Transparent
Caption = "Initial Salary:"
ForeColor = &H0000C000&
Height = 255
Left = 120
TabIndex = 48
Top = 120
Width = 1455
End
Begin VB.Label Label11
BackStyle = 0 'Transparent
Caption = "Unpaid Leaves"
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 47
Top = 480
Width = 1455
End
Begin VB.Label Label12
BackStyle = 0 'Transparent
Caption = "EPF:"
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 46
Top = 1440
Width = 1455
End
Begin VB.Label Label13
BackStyle = 0 'Transparent
Caption = "SOCSO:"
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 45
Top = 1800
Width = 1455
End
Begin VB.Label Label14
BackStyle = 0 'Transparent
Caption = "Net Salary:"
Height = 255
Left = 120
TabIndex = 44
Top = 3960
Width = 1335
End
Begin VB.Label Label15
BackStyle = 0 'Transparent
Caption = "Gross Salary:"
Height = 255
Left = 120
TabIndex = 43
Top = 960
Width = 1455
End
End
Begin VB.Frame Frame4
Caption = "Selected Employee:"
Height = 1695
Left = 120
TabIndex = 38
Top = 5520
Width = 5055
Begin VB.Label lblSalary
Height = 255
Left = 3360
TabIndex = 56
Top = 600
Width = 1215
End
Begin VB.Label Label20
Caption = "Salary:"
Height = 255
Left = 2760
TabIndex = 55
Top = 600
Width = 615
End
Begin VB.Label lblChild
Height = 255
Left = 1320
TabIndex = 53
Top = 1320
Width = 855
End
Begin VB.Label Label19
Caption = "No. of Children:"
Height = 255
Left = 120
TabIndex = 52
Top = 1320
Width = 1215
End
Begin VB.Label lblMaritial
Height = 255
Left = 1320
TabIndex = 51
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -