📄 salarypolit.frm
字号:
TabIndex = 12
Top = 180
Width = 3630
Begin GACALENDARLibCtl.Calendar DateTo
Height = 300
Left = 2100
OleObjectBlob = "SalaryPolit.frx":00AB
TabIndex = 19
Top = 780
Width = 1515
End
Begin GACALENDARLibCtl.Calendar DateFrom
Height = 300
Left = 2100
OleObjectBlob = "SalaryPolit.frx":0134
TabIndex = 17
Top = 270
Width = 1515
End
Begin GACALENDARLibCtl.Calendar DateOne
Height = 270
Left = 30
OleObjectBlob = "SalaryPolit.frx":01BD
TabIndex = 14
Top = 300
Width = 1560
End
Begin ListRefer.ListText ReferText2
Height = 300
Left = 30
TabIndex = 15
TabStop = 0 'False
Top = 300
Width = 1560
_ExtentX = 2752
_ExtentY = 529
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label lblTo
AutoSize = -1 'True
Caption = "到(&T)"
Height = 180
Left = 1650
TabIndex = 18
Top = 840
Width = 570
End
Begin VB.Label lblFrom
AutoSize = -1 'True
Caption = "从(&F)"
Height = 180
Left = 1650
TabIndex = 16
Top = 330
Width = 570
End
Begin VB.Label LblTerm
Caption = "可选期间(&D)"
Height = 270
Left = 30
TabIndex = 13
Top = 60
Width = 1695
End
End
Begin VB.Label Label1
Caption = "Label1"
Height = 285
Left = 540
TabIndex = 63
Top = 240
Width = 1605
End
End
Begin VB.Image imgSalary
BorderStyle = 1 'Fixed Single
Height = 3330
Index = 1
Left = 0
Stretch = -1 'True
Tag = "140"
Top = 15
Width = 1365
End
End
Begin VB.Frame Frame4
BorderStyle = 0 'None
Height = 3405
Index = 0
Left = 60
TabIndex = 1
Top = 330
Width = 8025
Begin ComCtl2.UpDown UpdMonth
Height = 255
Left = 7665
TabIndex = 6
Top = 90
Width = 270
_ExtentX = 476
_ExtentY = 450
_Version = 327681
Value = 1
Max = 12
Min = 1
Enabled = -1 'True
End
Begin MSFlexGridLib.MSFlexGrid msgSalaryList
Bindings = "SalaryPolit.frx":0246
Height = 2985
Left = 1425
TabIndex = 7
Tag = "2001"
Top = 405
Width = 6555
_ExtentX = 11562
_ExtentY = 5265
_Version = 393216
Rows = 15
Cols = 10
FixedCols = 0
End
Begin ListRefer.ListText ltxtYear
Height = 300
Left = 2505
TabIndex = 3
Top = 75
Width = 1425
_ExtentX = 2514
_ExtentY = 529
Locked = -1 'True
BackColor = -2147483643
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.TextBox txtMonth
Height = 315
Left = 6540
TabIndex = 5
Top = 60
Width = 1425
End
Begin VB.Label lblArr
Caption = "会计年度(&Y)"
Height = 195
Index = 0
Left = 1455
TabIndex = 2
Top = 105
Width = 1305
End
Begin VB.Label lblArr
Caption = "会计期间(&P)"
Height = 195
Index = 1
Left = 5505
TabIndex = 4
Top = 105
Width = 1005
End
Begin VB.Image imgSalary
BorderStyle = 1 'Fixed Single
Height = 3330
Index = 0
Left = 0
Stretch = -1 'True
Tag = "140"
Top = 60
Width = 1365
End
End
End
Begin MSRDC.MSRDC datSalarySubject
Height = 330
Left = 120
Top = 4050
Visible = 0 'False
Width = 1200
_ExtentX = 2117
_ExtentY = 582
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSRDC.MSRDC datSalaryList
Height = 330
Left = 360
Top = 3960
Visible = 0 'False
Width = 1215
_ExtentX = 2143
_ExtentY = 582
_Version = 393216
Options = 0
CursorDriver = 0
BOFAction = 0
EOFAction = 0
RecordsetType = 1
LockType = 3
QueryType = 0
Prompt = 3
Appearance = 1
QueryTimeout = 30
RowsetSize = 100
LoginTimeout = 15
KeysetSize = 0
MaxRows = 0
ErrorThreshold = -1
BatchSize = 15
BackColor = -2147483643
ForeColor = -2147483640
Enabled = -1 'True
ReadOnly = 0 'False
Appearance = -1 'True
DataSourceName = ""
RecordSource = ""
UserName = ""
Password = ""
Connect = ""
LogMessages = ""
Caption = "MSRDC2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Attribute VB_Name = "frmSalaryPilot"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 工资凭证向导
' 作者: 邹俊
' 日期 ： 1998. 07. 12
'
' 功能：
' 生成工资分摊凭证、计提福利费凭证、计提工会经费凭证、计提职工教育经费凭证等
' 输入接口：
' 1. GRID 类接口( Grid.cls)
' 2. 筛选栏目接口( frmAccountfilter.frm)
' 3. 公式检测接口(DepolandClas.cls)
' 4. 时间段接口(GetBeginAndEndDate 函数，Base.cls)
' 5. 卡片接口(card.addcard 函数,card.editcard 函数,card.delcvard 函数,Card.bas,)
' 公共参数：
' gclsBase (Publc.bas) , gclsSys (Publc.bas) ,gclseniv(eniv.cls)
' 调用函数：
' ShowMsg (utility.bas )
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'工资凭证对辅助核算项目的处理:不管其它辅助核算项目,但要部门辅助核算项目,部门的辅助核算自动据数据来源确定
Option Explicit
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private WithEvents mclsDepoland As DepolandClass '公式检测对象
Attribute mclsDepoland.VB_VarHelpID = -1
Private WithEvents mclsOldDepoland As DepolandClass '公式检测对象
Attribute mclsOldDepoland.VB_VarHelpID = -1
Private mclsFilter As FormCond '查询条件类
Private WithEvents mclsHook As Hook '响应msgFilter中vbUp 和vbDown
Attribute mclsHook.VB_VarHelpID = -1
Private WithEvents mclsSalaryListGrid As Grid '工资凭证目录 GRID 对象
Attribute mclsSalaryListGrid.VB_VarHelpID = -1
Private WithEvents mclsSalarySubjectGrid As Grid '工资凭证科目 GRID 对象
Attribute mclsSalarySubjectGrid.VB_VarHelpID = -1
Private Const mintSalaryListViewID = 70 '工资凭证目录视图ID
Private Const mintSalarySubjectViewID = 71 '工资凭证科目视图ID
Private mblnSalaryListEmpoty As Boolean '工资凭证目录列表是否有记录
Private mblnSalaryItemEmpoty As Boolean '工资凭证项目列表是否有记录
Private mblnSalarySubjectEmpoty As Boolean '工资凭证科目列表是否有记录
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -