📄 +
字号:
VERSION 5.00
Object = "{C5DE3F80-3376-11D2-BAA4-04F205C10000}#1.0#0"; "Vsflex6d.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 JC_KjkmszFrm
BorderStyle = 1 'Fixed Single
Caption = "会计科目设置"
ClientHeight = 7095
ClientLeft = 45
ClientTop = 330
ClientWidth = 9375
HelpContextID = 2001
Icon = "基础设置_会计科目设置.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7095
ScaleWidth = 9375
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab StTab
Height = 6375
Left = 30
TabIndex = 0
Top = 690
Width = 9330
_ExtentX = 16457
_ExtentY = 11245
_Version = 393216
Style = 1
Tabs = 2
TabHeight = 520
TabCaption(0) = "列表视图"
TabPicture(0) = "基础设置_会计科目设置.frx":1042
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "CzxsGrid"
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)= "Frame1"
Tab(1).ControlCount= 1
Begin VB.Frame Frame1
Height = 5955
Left = -74910
TabIndex = 26
Top = 330
Width = 9135
Begin VB.Frame Frame5
Caption = "打印"
ForeColor = &H00FF0000&
Height = 990
Left = 270
TabIndex = 44
Top = 4860
Width = 3600
Begin VB.TextBox LrText
Height = 300
Index = 6
Left = 1020
TabIndex = 48
Text = "6"
Top = 570
Width = 2430
End
Begin VB.CheckBox Chk_SumPrint
Caption = "汇总打印"
Height = 240
Left = 180
TabIndex = 11
Top = 255
Width = 1185
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "汇总科目:"
Height = 180
Left = 195
TabIndex = 45
Top = 630
Width = 810
End
End
Begin VB.CheckBox Chk_DayBookFlag
Caption = "日记帐"
Height = 225
Left = 4410
TabIndex = 21
Top = 4050
Width = 1065
End
Begin VB.TextBox LrText
Height = 300
Index = 5
Left = 1110
TabIndex = 6
Text = "5"
Top = 2340
Width = 1725
End
Begin VB.CheckBox Chk_CashFlow
Caption = "现金或现金等价物"
Height = 315
Left = 4410
TabIndex = 22
Top = 4320
Width = 1785
End
Begin VB.Frame Frame4
Caption = "项目核算(I)"
ForeColor = &H00FF0000&
Height = 945
Left = 4380
TabIndex = 40
Top = 2940
Width = 2955
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 4
Left = 2550
Picture = "基础设置_会计科目设置.frx":107A
Style = 1 'Graphical
TabIndex = 42
Top = 540
Visible = 0 'False
Width = 300
End
Begin VB.TextBox LrText
Height = 300
Index = 4
Left = 870
TabIndex = 20
Text = "4"
Top = 540
Width = 1680
End
Begin VB.CheckBox Chk_Ass
Caption = "项目核算"
Height = 255
Index = 3
Left = 90
TabIndex = 19
Top = 270
Width = 1335
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "项目类别:"
Height = 180
Index = 4
Left = 60
TabIndex = 41
Top = 600
Width = 810
End
End
Begin VB.CommandButton BcCommand
Caption = "保存(&S)"
Height = 300
Left = 4530
TabIndex = 23
Top = 5430
Width = 1120
End
Begin VB.CommandButton QxCommand
Cancel = -1 'True
Caption = "取消(&C)"
Height = 300
Left = 5730
TabIndex = 24
Top = 5430
Width = 1120
End
Begin VB.CheckBox ChkStopUse
Caption = "停用"
Height = 315
Left = 4380
TabIndex = 12
Top = 180
Width = 705
End
Begin VB.ComboBox Combo_AccFormat
Height = 300
Left = 1125
Style = 2 'Dropdown List
TabIndex = 5
Top = 1920
Width = 1725
End
Begin VB.Frame Frame3
Caption = "外币核算(&F)"
ForeColor = &H00FF0000&
Height = 975
Left = 270
TabIndex = 36
Top = 2730
Width = 3615
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 2
Left = 3150
Picture = "基础设置_会计科目设置.frx":1404
Style = 1 'Graphical
TabIndex = 39
Top = 540
Visible = 0 'False
Width = 300
End
Begin VB.TextBox LrText
Height = 300
Index = 2
Left = 990
TabIndex = 8
Text = "2"
Top = 540
Width = 2160
End
Begin VB.CheckBox Chk_ForiFlag
Caption = "外币核算"
Height = 225
Left = 180
TabIndex = 7
Top = 270
Width = 2055
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "核算币种:"
Height = 180
Index = 6
Left = 180
TabIndex = 37
Top = 600
Width = 810
End
End
Begin VB.Frame Frame2
Caption = "数量核算(&Q)"
ForeColor = &H00FF0000&
Height = 1035
Index = 2
Left = 270
TabIndex = 34
Top = 3780
Width = 3615
Begin VB.TextBox LrText
Height = 300
Index = 3
Left = 990
TabIndex = 10
Text = "3"
Top = 570
Width = 2460
End
Begin VB.CheckBox Chk_QuatFlag
Caption = "数量核算"
Height = 255
Left = 180
TabIndex = 9
Top = 270
Width = 2385
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "计量单位:"
Height = 180
Index = 5
Left = 180
TabIndex = 35
Top = 630
Width = 810
End
End
Begin VB.Frame Frame2
Caption = "辅助核算(&A)"
ForeColor = &H00FF0000&
Height = 1395
Index = 1
Left = 4380
TabIndex = 33
Top = 1470
Width = 1695
Begin VB.CheckBox Chk_Ass
Caption = "供应商往来"
Height = 255
Index = 4
Left = 180
TabIndex = 16
Top = 510
Width = 1335
End
Begin VB.CheckBox Chk_Ass
Caption = "个人往来"
Height = 255
Index = 2
Left = 180
TabIndex = 18
Top = 1050
Width = 1335
End
Begin VB.CheckBox Chk_Ass
Caption = "部门"
Height = 255
Index = 1
Left = 180
TabIndex = 17
Top = 795
Width = 1335
End
Begin VB.CheckBox Chk_Ass
Caption = "客户往来"
Height = 255
Index = 0
Left = 180
TabIndex = 15
Top = 240
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -