📄
字号:
VERSION 5.00
Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form YM_FrmYmjz
BorderStyle = 3 'Fixed Dialog
Caption = "月末结帐"
ClientHeight = 5910
ClientLeft = 45
ClientTop = 330
ClientWidth = 8340
Icon = "月末结帐_月末结帐.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5910
ScaleWidth = 8340
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdCancel1
Caption = "关闭(&C)"
Default = -1 'True
Height = 300
Left = 6975
TabIndex = 0
Top = 5520
Width = 1120
End
Begin TabDlg.SSTab StTab
Height = 5475
Left = 30
TabIndex = 1
Top = 0
Width = 8280
_ExtentX = 14605
_ExtentY = 9657
_Version = 393216
Style = 1
Tabs = 4
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "结帐提示"
TabPicture(0) = "月末结帐_月末结帐.frx":1042
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "试算平衡"
TabPicture(1) = "月末结帐_月末结帐.frx":105E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame2"
Tab(1).ControlCount= 1
TabCaption(2) = "核对帐簿"
TabPicture(2) = "月末结帐_月末结帐.frx":107A
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame3"
Tab(2).ControlCount= 1
TabCaption(3) = "结帐确认"
TabPicture(3) = "月末结帐_月末结帐.frx":1096
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame4"
Tab(3).ControlCount= 1
Begin VB.Frame Frame1
Height = 5025
Left = 120
TabIndex = 54
Top = 360
Width = 8055
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 500
Left = 4050
Top = 2070
End
Begin VB.CommandButton cmdNext1
Caption = "下一步(&N)"
Enabled = 0 'False
Height = 300
Left = 6810
TabIndex = 56
Top = 4560
Width = 1120
End
Begin MSComctlLib.ListView lst_NotBook
Height = 1575
Left = 240
TabIndex = 55
Top = 2880
Visible = 0 'False
Width = 7695
_ExtentX = 13573
_ExtentY = 2778
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 3
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "凭证日期"
Object.Width = 3528
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "凭证摘要"
Object.Width = 5821
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "填制人员"
Object.Width = 3528
EndProperty
End
Begin VB.Label labState
BackColor = &H00C0C0C0&
Caption = "正在检测未记帐凭证..."
ForeColor = &H00FF0000&
Height = 195
Left = 270
TabIndex = 65
Top = 4560
Width = 1905
End
Begin VB.Label Label1
Caption = "结帐注意事项:"
Height = 285
Left = 270
TabIndex = 63
Top = 960
Width = 1395
End
Begin VB.Label Label2
Caption = "1.已结帐月份不能再填制凭证,各会计期间只能按顺序结帐"
Height = 255
Index = 0
Left = 270
TabIndex = 62
Top = 1380
Width = 4665
End
Begin VB.Label Label2
Caption = "2.当前会计期间如存在未记帐凭证则不能结帐"
Height = 255
Index = 1
Left = 270
TabIndex = 61
Top = 1650
Width = 3675
End
Begin VB.Label Label2
Caption = "3.试算不平衡则不能结帐"
Height = 195
Index = 2
Left = 270
TabIndex = 60
Top = 1920
Visible = 0 'False
Width = 2115
End
Begin VB.Label Label3
Caption = "4.对帐不正确则不能结帐"
Height = 285
Left = 270
TabIndex = 59
Top = 2160
Visible = 0 'False
Width = 2235
End
Begin VB.Label lab_NotBookInfor
Caption = "提示:本会计期间存在未记帐凭证"
ForeColor = &H000000FF&
Height = 255
Left = 240
TabIndex = 58
Top = 2640
Visible = 0 'False
Width = 3675
End
Begin VB.Label Lab_jzyf
Caption = "2003年01月月末结帐"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 255
Left = 2970
TabIndex = 57
Top = 360
Width = 2475
End
End
Begin VB.Frame Frame2
Height = 5025
Left = -74880
TabIndex = 34
Top = 360
Width = 8055
Begin VB.PictureBox Picture1
Height = 4005
Left = 210
ScaleHeight = 3945
ScaleWidth = 7575
TabIndex = 38
Top = 330
Width = 7635
Begin VB.Timer Timer1
Interval = 100
Left = 1890
Top = 2970
End
Begin VB.Label Lab_CodeClass
AutoSize = -1 'True
Caption = "资产="
Height = 180
Index = 0
Left = 1200
TabIndex = 53
Top = 360
Width = 450
End
Begin VB.Label Lab_CodeClass
AutoSize = -1 'True
Caption = "负债="
Height = 180
Index = 1
Left = 3750
TabIndex = 52
Top = 360
Width = 450
End
Begin VB.Label Lab_CodeClass
AutoSize = -1 'True
Caption = "权益="
Height = 180
Index = 2
Left = 3750
TabIndex = 51
Top = 870
Width = 450
End
Begin VB.Label Lab_CodeClass
AutoSize = -1 'True
Caption = "成本="
Height = 180
Index = 3
Left = 1200
TabIndex = 50
Top = 870
Width = 450
End
Begin VB.Label Lab_CodeClass
AutoSize = -1 'True
Caption = "损益="
Height = 180
Index = 4
Left = 3750
TabIndex = 49
Top = 1350
Width = 450
End
Begin VB.Label Lab_CodeClass
AutoSize = -1 'True
Caption = "合计="
Height = 180
Index = 5
Left = 1200
TabIndex = 48
Top = 2220
Width = 450
End
Begin VB.Label Lab_CodeClass
AutoSize = -1 'True
Caption = "合计="
Height = 180
Index = 6
Left = 3750
TabIndex = 47
Top = 2220
Width = 450
End
Begin VB.Label Lab_Phjg
ForeColor = &H000080FF&
Height = 375
Left = 1200
TabIndex = 46
Top = 2850
Width = 2565
End
Begin VB.Label Lab_Qcyesj
AutoSize = -1 'True
Height = 180
Index = 0
Left = 1770
TabIndex = 45
Top = 360
Width = 1740
End
Begin VB.Label Lab_Qcyesj
AutoSize = -1 'True
Height = 180
Index = 1
Left = 4380
TabIndex = 44
Top = 360
Width = 2250
End
Begin VB.Label Lab_Qcyesj
AutoSize = -1 'True
Height = 180
Index = 2
Left = 4380
TabIndex = 43
Top = 870
Width = 90
End
Begin VB.Label Lab_Qcyesj
AutoSize = -1 'True
Height = 180
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -