📄 +
字号:
VERSION 5.00
Begin VB.Form JC_FrmBaseAcc
Appearance = 0 'Flat
Caption = "基本科目设置"
ClientHeight = 3225
ClientLeft = 60
ClientTop = 345
ClientWidth = 7065
HelpContextID = 2001
Icon = "基础设置_基本科目设置.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3225
ScaleWidth = 7065
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton QxCommand
Cancel = -1 'True
Caption = "取消(&C)"
Height = 300
Left = 5730
TabIndex = 11
Top = 2730
Width = 1120
End
Begin VB.CommandButton BcCommand
Caption = "保存(&S)"
Height = 300
Left = 4530
TabIndex = 10
Top = 2730
Width = 1120
End
Begin VB.Frame Frame1
Height = 3150
Left = 60
TabIndex = 12
Top = 30
Width = 6945
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 9
Left = 6510
Picture = "基础设置_基本科目设置.frx":1042
Style = 1 'Graphical
TabIndex = 32
Top = 2175
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 8
Left = 6510
Picture = "基础设置_基本科目设置.frx":13CC
Style = 1 'Graphical
TabIndex = 31
Top = 1680
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 7
Left = 6510
Picture = "基础设置_基本科目设置.frx":1756
Style = 1 'Graphical
TabIndex = 30
Top = 1200
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 6
Left = 6510
Picture = "基础设置_基本科目设置.frx":1AE0
Style = 1 'Graphical
TabIndex = 29
Top = 690
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 5
Left = 6510
Picture = "基础设置_基本科目设置.frx":1E6A
Style = 1 'Graphical
TabIndex = 28
Top = 210
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 4
Left = 3030
Picture = "基础设置_基本科目设置.frx":21F4
Style = 1 'Graphical
TabIndex = 27
Top = 2175
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 3
Left = 3030
Picture = "基础设置_基本科目设置.frx":257E
Style = 1 'Graphical
TabIndex = 26
Top = 1680
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 2
Left = 3030
Picture = "基础设置_基本科目设置.frx":2908
Style = 1 'Graphical
TabIndex = 25
Top = 1200
Visible = 0 'False
Width = 300
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 1
Left = 3030
Picture = "基础设置_基本科目设置.frx":2C92
Style = 1 'Graphical
TabIndex = 24
Top = 690
Visible = 0 'False
Width = 300
End
Begin VB.TextBox LrText
Height = 300
Index = 9
Left = 4860
TabIndex = 9
Text = "9"
Top = 2175
Width = 1650
End
Begin VB.TextBox LrText
Height = 300
Index = 8
Left = 4860
TabIndex = 8
Text = "8"
Top = 1680
Width = 1650
End
Begin VB.TextBox LrText
Height = 300
Index = 7
Left = 4860
TabIndex = 7
Text = "7"
Top = 1200
Width = 1650
End
Begin VB.TextBox LrText
Height = 300
Index = 6
Left = 4860
TabIndex = 6
Text = "6"
Top = 690
Width = 1650
End
Begin VB.TextBox LrText
Height = 300
Index = 5
Left = 4860
TabIndex = 5
Text = "5"
Top = 210
Width = 1650
End
Begin VB.TextBox LrText
Height = 300
Index = 4
Left = 1380
TabIndex = 4
Text = "4"
Top = 2175
Width = 1650
End
Begin VB.TextBox LrText
Height = 300
Index = 3
Left = 1380
TabIndex = 3
Text = "3"
Top = 1680
Width = 1650
End
Begin VB.TextBox LrText
Height = 300
Index = 2
Left = 1380
TabIndex = 2
Text = "2"
Top = 1200
Width = 1650
End
Begin VB.TextBox LrText
Height = 300
Index = 0
Left = 1380
TabIndex = 0
Text = "0"
Top = 210
Width = 1650
End
Begin VB.TextBox LrText
Height = 300
Index = 1
Left = 1380
TabIndex = 1
Text = "1"
Top = 690
Width = 1650
End
Begin VB.CommandButton Ydcommand1
Height = 300
Index = 0
Left = 3030
Picture = "基础设置_基本科目设置.frx":301C
Style = 1 'Graphical
TabIndex = 13
Top = 210
Visible = 0 'False
Width = 300
End
Begin VB.Label TsLabel
Caption = "应付票据科目(银行承兑):"
Height = 345
Index = 9
Left = 3630
TabIndex = 23
Tag = "AP_BankNoteAccCode"
Top = 2190
Width = 1215
End
Begin VB.Label TsLabel
Caption = "应付票据科目(商业承兑):"
Height = 420
Index = 8
Left = 3630
TabIndex = 22
Tag = "AP_CommNoteAccCode"
Top = 1695
Width = 1095
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "票据费用科目:"
Height = 180
Index = 7
Left = 3630
TabIndex = 21
Tag = "AP_NoteFareAccCode"
Top = 1260
Width = 1170
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "票据利息科目:"
Height = 180
Index = 6
Left = 3630
TabIndex = 20
Tag = "AP_NoteIntAccCode"
Top = 750
Width = 1170
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "现金折扣科目:"
Height = 180
Index = 5
Left = 3630
TabIndex = 19
Tag = "AP_CashDisAccCode"
Top = 270
Width = 1170
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "采购税金科目:"
Height = 180
Index = 4
Left = 150
TabIndex = 18
Tag = "AP_PurTaxAccCode"
Top = 2235
Width = 1170
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "采购科目:"
Height = 180
Index = 3
Left = 150
TabIndex = 17
Tag = "AP_PurAccCode"
Top = 1740
Width = 810
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "预付帐款科目:"
Height = 180
Index = 2
Left = 150
TabIndex = 16
Tag = "AP_PpAccCode"
Top = 1260
Width = 1170
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "常用付款科目:"
Height = 180
Index = 0
Left = 150
TabIndex = 15
Tag = "AP_PayAccCode"
Top = 270
Width = 1170
End
Begin VB.Label TsLabel
AutoSize = -1 'True
Caption = "应付帐款科目:"
Height = 180
Index = 1
Left = 150
TabIndex = 14
Tag = "AP_ApAccCode"
Top = 750
Width = 1170
End
End
End
Attribute VB_Name = "JC_FrmBaseAcc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************
'* 模 块 名 称 :基本科目设置
'* 功 能 描 述 :基本科目是在核算应付款项时经常用到的科目，可以
'* 在此处设置常用科目。所录入科目必须是最明细科目。
'* 程序员姓名 : 张建忠
'* 最后修改人 : 张建忠
'* 最后修改时间:2001/12/26
'* 备 注:
'*************************************************************
Dim jdzygs As Integer '控件焦点转移个数
Dim Tsxx As String '系统提示信息
'以下为固定使用变量(文本框)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -