📄 ʰ
字号:
End
Begin VB.Shape Shape1
BackColor = &H00C9ECFE&
BackStyle = 1 'Opaque
Height = 6585
Index = 2
Left = 180
Top = 720
Width = 10455
End
Begin VB.Shape Shape1
BackColor = &H00C9ECFE&
BackStyle = 1 'Opaque
Height = 6585
Index = 1
Left = 150
Top = 690
Width = 10455
End
Begin VB.Shape Shape1
BackColor = &H00C9ECFE&
BackStyle = 1 'Opaque
Height = 6585
Index = 0
Left = 120
Top = 660
Width = 10455
End
Begin VB.Label TsLabel
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "记 帐 凭 证"
BeginProperty Font
Name = "隶书"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 330
Index = 6
Left = 4440
TabIndex = 38
Top = 750
Width = 2265
End
Begin VB.Label TsLabel
BackColor = &H80000018&
BackStyle = 0 'Transparent
Caption = "记 帐 凭 证"
BeginProperty Font
Name = "隶书"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF8080&
Height = 330
Index = 4
Left = 4410
TabIndex = 37
Top = 720
Width = 2115
End
Begin VB.Line Line1
BorderColor = &H000000FF&
Index = 1
X1 = 4110
X2 = 6690
Y1 = 1215
Y2 = 1215
End
Begin VB.Line Line1
BorderColor = &H000000FF&
Index = 0
X1 = 4110
X2 = 6690
Y1 = 1170
Y2 = 1170
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "制单日期"
Height = 255
Index = 1
Left = 4470
TabIndex = 36
Top = 1470
Width = 825
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "类别字号"
Height = 225
Index = 0
Left = 750
TabIndex = 35
Top = 1500
Width = 825
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "附单据数"
Height = 255
Index = 2
Left = 7890
TabIndex = 34
Top = 1470
Width = 825
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "制单:"
Height = 225
Index = 5
Left = 8580
TabIndex = 33
Top = 6900
Width = 525
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "审核:"
Height = 225
Index = 7
Left = 6705
TabIndex = 32
Top = 6900
Width = 495
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "记帐:"
Height = 225
Index = 8
Left = 2655
TabIndex = 31
Top = 6900
Width = 645
End
Begin VB.Label Lab_Book
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 225
Left = 3210
TabIndex = 30
Top = 6900
Width = 735
End
Begin VB.Label Lab_Checker
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 225
Left = 7260
TabIndex = 29
Top = 6900
Width = 735
End
Begin VB.Label Lab_Bill
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 225
Left = 9120
TabIndex = 28
Top = 6870
Width = 735
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "会计期间"
Height = 255
Index = 9
Left = 750
TabIndex = 27
Top = 1140
Width = 825
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "字"
Height = 195
Index = 10
Left = 2040
TabIndex = 26
Top = 1500
Width = 255
End
Begin VB.Label Lab_OperStatus
BackColor = &H000080FF&
Caption = "1"
Height = 345
Left = 8730
TabIndex = 25
Top = 570
Visible = 0 'False
Width = 345
End
Begin VB.Label Lab_Row
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H00FF0000&
Height = 225
Left = 9030
TabIndex = 24
Top = 1140
Width = 315
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "(第"
Height = 255
Index = 11
Left = 8730
TabIndex = 23
Top = 1140
Width = 315
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "行)"
Height = 255
Index = 12
Left = 9360
TabIndex = 22
Top = 1140
Width = 405
End
Begin VB.Label Lab_Pzclzt
BackColor = &H0000FFFF&
Caption = "1"
ForeColor = &H00808080&
Height = 255
Left = 8400
TabIndex = 21
Top = 630
Visible = 0 'False
Width = 285
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "当前记录"
Height = 255
Index = 13
Left = 7890
TabIndex = 20
Top = 1140
Width = 825
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "会计主管:"
Height = 225
Index = 3
Left = 420
TabIndex = 19
Top = 6900
Width = 855
End
Begin VB.Label TsLabel
BackStyle = 0 'Transparent
Caption = "出纳:"
Height = 225
Index = 14
Left = 4680
TabIndex = 18
Top = 6900
Width = 645
End
Begin VB.Label Lab_Error
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
BorderStyle = 1 'Fixed Single
Caption = "有错"
BeginProperty Font
Name = "隶书"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 360
Left = 150
TabIndex = 17
Top = 690
Visible = 0 'False
Width = 735
End
End
Attribute VB_Name = "yh_dzdqclrfrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************************************************
'* 模 块 名 称 :记帐凭证处理
'* 功 能 描 述 :此功能模块主要完成凭证录入、修改、删除、预览打印等。
'* 程序员姓名 : 张建忠
'* 最后修改人 : 张建忠
'* 最后修改时间:2000/09/23
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'*
'* 1.每次调入外部功能窗体，均要加锁ChangeLock=True,窗体关闭后解锁ChangeLock=false
'*
'* 2.网格列存储内容注解
'* 0-行有效标识 1-结算方式编码 2-结算方式名称 3-票号 4-发生日期 5-数量 6-用户录入单价(显示时自动计算)
'* 7-计量单位 8-外币编码 9-外币名称 10-外币金额 11-汇率 12-部门编码 13-部门名称
'* 14-单位编码 15-单位名称 16-职员编码 17-职员名称 18-项目大类编码 19-项目大类名称
'* 20-项目编码 21-项目名称 22-项目数量 23-项目计量单位 24-经办人
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -