📄 frmdispart.frm
字号:
Left = 210
TabIndex = 36
Top = 1530
Width = 1530
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "职工福利基金科目(&G)"
Height = 180
Index = 8
Left = 210
TabIndex = 32
Top = 780
Width = 1710
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "结余分配科目(&H)"
Height = 180
Index = 7
Left = 210
TabIndex = 34
Top = 1155
Width = 1350
End
End
Begin VB.Frame fraLoss
Caption = "弥补亏损"
Height = 1350
Left = 1635
TabIndex = 24
Top = 345
Width = 5505
Begin ListRefer.ListText ltxtAcc21
Height = 300
Left = 1680
TabIndex = 26
Top = 405
Width = 3630
_ExtentX = 6403
_ExtentY = 529
CodeSort = -1 'True
AutoPop = 0 'False
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 ListRefer.ListText ltxtAcc22
Height = 300
Left = 1665
TabIndex = 28
Top = 825
Width = 3630
_ExtentX = 6403
_ExtentY = 529
CodeSort = -1 'True
AutoPop = 0 'False
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 lblNote
AutoSize = -1 'True
Caption = "结余分配科目(&E)"
Height = 180
Index = 6
Left = 180
TabIndex = 27
Top = 885
Width = 1350
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "弥补亏损科目(&D)"
Height = 180
Index = 5
Left = 195
TabIndex = 25
Top = 465
Width = 1350
End
End
Begin VB.Frame fraNote
Caption = "说明"
Height = 1245
Index = 1
Left = 1620
TabIndex = 22
Top = 2235
Width = 5505
Begin VB.Label lblNote
Caption = " 请输入提取职工福利基金的比例、福利基金科目以及对应的结余分配科目和未分配结余转入科目。"
Height = 405
Index = 12
Left = 780
TabIndex = 39
Top = 495
Width = 4020
End
Begin VB.Label lblNote
Caption = " 单位发生亏损时，应当以事业基金弥补。请选择用于弥补的事业基金科目以及对应的结余分配科目。"
Height = 405
Index = 4
Left = 810
TabIndex = 23
Top = 495
Width = 3975
End
Begin VB.Label lblNote
AutoSize = -1 'True
Caption = "待分配结余科目余额为0.00，不能进行分配。"
Height = 180
Index = 13
Left = 915
TabIndex = 40
Top = 600
Width = 3600
End
End
Begin VB.Image imgWizard
BorderStyle = 1 'Fixed Single
Height = 3315
Index = 1
Left = 90
Stretch = -1 'True
Tag = "140"
Top = 180
Width = 1335
End
End
Begin VB.Frame fraWizard
Height = 3585
Index = 2
Left = -74925
TabIndex = 6
Top = 360
Width = 7305
Begin VB.TextBox txtResult
Height = 2895
Left = 1470
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 9
Top = 600
Width = 5745
End
Begin ListRefer.ListText ltxtType
Height = 315
Left = 5355
TabIndex = 21
Top = 225
Width = 1800
_ExtentX = 3175
_ExtentY = 556
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 ListRefer.ListText ltxtTemplate
Height = 315
Left = 2490
TabIndex = 19
Top = 210
Width = 1725
_ExtentX = 3043
_ExtentY = 556
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 lblArr
Caption = "凭证类型(&C)"
Height = 195
Index = 1
Left = 4350
TabIndex = 20
Top = 300
Width = 1005
End
Begin VB.Label lblArr
Caption = "凭证模板(&T)"
Height = 195
Index = 0
Left = 1470
TabIndex = 18
Top = 300
Width = 1005
End
Begin VB.Image imgWizard
BorderStyle = 1 'Fixed Single
Height = 3315
Index = 2
Left = 90
Stretch = -1 'True
Tag = "140"
Top = 180
Width = 1335
End
End
End
End
Attribute VB_Name = "frmDispart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 结余分配
' 1998.7.13
' 作者：唐维勇
'
' 过程：
' InitStep 向导每步初始化
' ValidStep 向导每步合法检查
' Execute 向导完成后需执行的操作
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Private Const HelpID = 60017 '25002
Private mintStepNum As Integer '向导总步骤
Private mintStep As Integer '向导当前步骤
Private mblnEnd As Boolean '完成按扭是否有效
Private mblnValid() As Boolean '向导每步是否合法
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private VoucherData(3) As VoucherRecord '凭证结果
Private mdblBalance13 As Double '贷方金额
Private mlngFormatID As Long
Private Sub Form_Activate()
'进入向导第一步
If Not mblnValid(0) Then
stabWizard.Tab = 0
stabWizard_Click -1
End If
gclsSys.CurrFormName = hwnd
SetHelpID HelpContextID
mclsMainControl_ChildActive
End Sub
Private Sub Form_Load()
Height = 5085
width = 7740
Me.HelpContextID = HelpID
mlngFormatID = 41
'初始凭证结构
ReDim VoucherData(0).Detail(0)
ReDim VoucherData(1).Detail(0)
ReDim VoucherData(2).Detail(0)
ReDim VoucherData(3).Detail(0)
'主控对象
Set mclsMainControl = gclsSys.MainControls.Add(Me)
'向导初始化(包括每步仅需初始一次的部分)
mintStepNum = stabWizard.Tabs - 1
mintStep = -1
mblnEnd = False
ReDim mblnValid(mintStepNum)
End Sub
Private Sub Form_Resize()
If Left < 0 Or Left > Screen.width Then Left = (Screen.width - width) / 2
End Sub
Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
gclsSys.MainControls.Remove Me
Set mclsMainControl = Nothing
'删除科目参照
If Not ltxtAcc11.Recordset Is Nothing Then
Utility.RemoveListRecordSet lrtAccount
End If
If Not ltxtAcc12.Recordset Is Nothing Then
Utility.RemoveListRecordSet lrtAccount
End If
If Not ltxtAcc13.Recordset Is Nothing Then
Utility.RemoveListRecordSet lrtAccount
End If
If Not ltxtAcc21.Recordset Is Nothing Then
Utility.RemoveListRecordSet lrtAccount
End If
If Not ltxtAcc22.Recordset Is Nothing Then
Utility.RemoveListRecordSet lrtAccount
End If
If Not ltxtAcc31.Recordset Is Nothing Then
Utility.RemoveListRecordSet lrtAccount
End If
If Not ltxtAcc32.Recordset Is Nothing Then
Utility.RemoveListRecordSet lrtAccount
End If
If Not ltxtAcc33.Recordset Is Nothing Then
Utility.RemoveListRecordSet lrtAccount
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -