📄 frmsalarylistnewwizard.frm
字号:
VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Begin VB.Form frmSalaryListNewWizard
BorderStyle = 3 'Fixed Dialog
Caption = "新增工资表"
ClientHeight = 5550
ClientLeft = 435
ClientTop = 705
ClientWidth = 8880
HelpContextID = 60105
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5550
ScaleWidth = 8880
ShowInTaskbar = 0 'False
Begin TabDlg.SSTab STbWizard
Height = 4995
Left = 60
TabIndex = 0
Top = 30
Width = 8775
_ExtentX = 15478
_ExtentY = 8811
_Version = 393216
Style = 1
Tabs = 7
TabsPerRow = 8
TabHeight = 520
WordWrap = 0 'False
ShowFocusRect = 0 'False
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "工资表名称(&N)"
TabPicture(0) = "frmSalaryListNewWizard.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lblWizard(14)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "lblWizard(2)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "imeSalaryWizard(0)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "txtWizard(0)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "frmWizard(0)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Calendar1"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).ControlCount= 6
TabCaption(1) = "数据来源(&S)"
TabPicture(1) = "frmSalaryListNewWizard.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Picture4(2)"
Tab(1).Control(1)= "Picture4(1)"
Tab(1).Control(2)= "Picture4(0)"
Tab(1).Control(3)= "msgWizard(0)"
Tab(1).Control(4)= "imeSalaryWizard(1)"
Tab(1).Control(5)= "lblWizard(8)"
Tab(1).Control(6)= "lblWizard(5)"
Tab(1).Control(7)= "lblWizard(4)"
Tab(1).Control(8)= "lblWizard(3)"
Tab(1).ControlCount= 9
TabCaption(2) = "发放项目(&I)"
TabPicture(2) = "frmSalaryListNewWizard.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "cmdChangList(5)"
Tab(2).Control(1)= "cmdChangList(4)"
Tab(2).Control(2)= "cmdWizard(5)"
Tab(2).Control(3)= "cmdWizard(6)"
Tab(2).Control(4)= "cmdWizard(4)"
Tab(2).Control(5)= "cmdChangList(3)"
Tab(2).Control(6)= "cmdChangList(2)"
Tab(2).Control(7)= "cmdChangList(1)"
Tab(2).Control(8)= "cmdChangList(0)"
Tab(2).Control(9)= "msgWizard(2)"
Tab(2).Control(10)= "msgWizard(1)"
Tab(2).Control(11)= "imeSalaryWizard(2)"
Tab(2).Control(12)= "lblWizard(15)"
Tab(2).Control(13)= "lblWizard(16)"
Tab(2).ControlCount= 14
TabCaption(3) = "清零项目(&Z)"
TabPicture(3) = "frmSalaryListNewWizard.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "lblWizard(9)"
Tab(3).Control(1)= "imeSalaryWizard(3)"
Tab(3).Control(2)= "msgWizard(3)"
Tab(3).Control(3)= "Picture3(7)"
Tab(3).ControlCount= 4
TabCaption(4) = "发放范围(&B)"
TabPicture(4) = "frmSalaryListNewWizard.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "imeSalaryWizard(4)"
Tab(4).Control(1)= "datEmployee"
Tab(4).Control(2)= "cmdWizard(8)"
Tab(4).Control(3)= "cmdWizard(7)"
Tab(4).Control(4)= "cmdWizard(9)"
Tab(4).Control(5)= "msgWizard4"
Tab(4).ControlCount= 6
TabCaption(5) = "计算公式(&F)"
TabPicture(5) = "frmSalaryListNewWizard.frx":008C
Tab(5).ControlEnabled= 0 'False
Tab(5).Control(0)= "lblWizard(13)"
Tab(5).Control(1)= "lblWizard(7)"
Tab(5).Control(2)= "imeSalaryWizard(5)"
Tab(5).Control(3)= "msgWizard(4)"
Tab(5).Control(4)= "msgWizard(5)"
Tab(5).Control(5)= "cmdWizard(12)"
Tab(5).Control(6)= "cmdWizard(10)"
Tab(5).Control(7)= "cmdWizard(11)"
Tab(5).Control(8)= "frmWizard(1)"
Tab(5).Control(9)= "lstWizard"
Tab(5).Control(10)= "Picture1(13)"
Tab(5).Control(11)= "Picture2(4)"
Tab(5).Control(12)= "txtWizard(2)"
Tab(5).Control(13)= "txtWizard(1)"
Tab(5).Control(14)= "cmdChangList(6)"
Tab(5).Control(15)= "cmdChangList(7)"
Tab(5).Control(16)= "cboFomular"
Tab(5).Control(17)= "cmdWizard(13)"
Tab(5).Control(18)= "chkWizard(0)"
Tab(5).Control(19)= "chkWizard(2)"
Tab(5).Control(20)= "chkWizard(1)"
Tab(5).ControlCount= 21
TabCaption(6) = "工龄计算(&A)"
TabPicture(6) = "frmSalaryListNewWizard.frx":00A8
Tab(6).ControlEnabled= 0 'False
Tab(6).Control(0)= "imeSalaryWizard(6)"
Tab(6).Control(1)= "lblSalaryAge"
Tab(6).Control(2)= "txtSalaryAge"
Tab(6).Control(3)= "Frame2"
Tab(6).Control(4)= "cmdSalaryAge(0)"
Tab(6).Control(5)= "cmdSalaryAge(1)"
Tab(6).Control(6)= "cmdSalaryAge(2)"
Tab(6).Control(7)= "Frame3"
Tab(6).ControlCount= 8
Begin VB.Frame Frame3
Caption = "说明"
Height = 735
Left = -73140
TabIndex = 69
Top = 4080
Width = 6315
Begin VB.Label Label1
Caption = " 工龄是依据本次工资表的发放日期和职员的入职日期进行计算的，如果某一职员的入职日期为空，则不能计算出该职员的工龄。 "
Height = 465
Left = 300
TabIndex = 70
Top = 240
Width = 5805
End
End
Begin VB.CommandButton cmdSalaryAge
Caption = "公式确认(&O)"
Height = 350
Index = 2
Left = -70530
TabIndex = 66
Top = 3660
Width = 1215
End
Begin VB.CommandButton cmdSalaryAge
Caption = "恢复缺省(&L)"
Height = 350
Index = 1
Left = -68070
TabIndex = 68
Top = 3660
Width = 1215
End
Begin VB.CommandButton cmdSalaryAge
Caption = "清除公式(&Q)"
Height = 350
Index = 0
Left = -69300
TabIndex = 67
Top = 3660
Width = 1215
End
Begin VB.Frame Frame2
Caption = "工龄计算方法"
Height = 1005
Left = -73110
TabIndex = 60
Top = 630
Width = 6585
Begin VB.OptionButton optSalaryAge
Caption = "按天计算(&D)"
Height = 375
Index = 2
Left = 4770
TabIndex = 63
Top = 360
Width = 1425
End
Begin VB.OptionButton optSalaryAge
Caption = "按月计算(&M)"
Height = 375
Index = 1
Left = 2790
TabIndex = 62
Top = 360
Width = 1515
End
Begin VB.OptionButton optSalaryAge
Caption = "按年计算(&Y)"
Height = 375
Index = 0
Left = 690
TabIndex = 61
Top = 360
Width = 1455
End
End
Begin VB.TextBox txtSalaryAge
Height = 1605
Left = -72720
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 65
Text = "frmSalaryListNewWizard.frx":00C4
Top = 1980
Width = 5865
End
Begin VB.CheckBox chkWizard
Caption = "扣税计算"
Height = 195
Index = 1
Left = -67440
TabIndex = 54
Top = 2415
Width = 1065
End
Begin VB.CheckBox chkWizard
Caption = "发放扣零"
Height = 195
Index = 2
Left = -67440
TabIndex = 53
Top = 2190
Width = 1065
End
Begin VB.CheckBox chkWizard
Caption = "扣零计算"
Height = 195
Index = 0
Left = -67440
TabIndex = 52
Top = 1965
Width = 1065
End
Begin VB.CommandButton cmdWizard
Caption = "函数向导(&X)"
Height = 350
Index = 13
Left = -67455
TabIndex = 51
Top = 1545
Width = 1140
End
Begin GACALENDARLibCtl.Calendar Calendar1
Height = 300
Left = 2910
OleObjectBlob = "frmSalaryListNewWizard.frx":00CA
TabIndex = 4
Top = 2040
Width = 2175
End
Begin VB.CommandButton cmdChangList
Height = 375
Index = 5
Left = -66660
Style = 1 'Graphical
TabIndex = 21
Tag = "1020"
Top = 4530
UseMaskColor = -1 'True
Width = 315
End
Begin VB.CommandButton cmdChangList
Height = 375
Index = 4
Left = -66990
Style = 1 'Graphical
TabIndex = 20
Tag = "1019"
Top = 4530
UseMaskColor = -1 'True
Width = 315
End
Begin VB.ComboBox cboFomular
Height = 300
Left = -73230
TabIndex = 57
Top = 780
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton cmdChangList
Height = 360
Index = 7
Left = -67170
Style = 1 'Graphical
TabIndex = 56
Tag = "1020"
Top = 2685
UseMaskColor = -1 'True
Width = 270
End
Begin VB.CommandButton cmdChangList
Height = 360
Index = 6
Left = -67440
Style = 1 'Graphical
TabIndex = 55
Tag = "1019"
Top = 2685
UseMaskColor = -1 'True
Width = 270
End
Begin VB.TextBox txtWizard
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -