📄 frmaccountlistcard.frm
字号:
VERSION 5.00
Object = "{F42BDC2B-FC9B-11D1-9ABD-444553540000}#3.2#0"; "ATLEDIT.OCX"
Begin VB.Form frmAccountListCard
BorderStyle = 1 'Fixed Single
Caption = "新增科目"
ClientHeight = 4200
ClientLeft = 45
ClientTop = 165
ClientWidth = 5880
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 4200
ScaleWidth = 5880
ShowInTaskbar = 0 'False
Begin AtlEdit.TEdit txtAccount
Height = 300
Index = 0
Left = 1170
TabIndex = 1
Top = 97
Width = 3225
_ExtentX = 5689
_ExtentY = 529
maxchar = 16
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin VB.Frame Frame1
Caption = "外币核算(&M)"
Height = 1395
Left = 90
TabIndex = 11
Top = 1620
Width = 2505
Begin VB.CheckBox chkSuit
Caption = "期末调汇"
Height = 225
Left = 120
TabIndex = 15
Top = 1110
Width = 1455
End
Begin VB.OptionButton optCheck
Caption = "核算所有币种"
Height = 255
Index = 1
Left = 120
TabIndex = 13
Top = 510
Width = 1755
End
Begin VB.OptionButton optCheck
Caption = "核算指定币种..."
Height = 225
Index = 2
Left = 120
TabIndex = 14
Top = 810
Width = 1665
End
Begin VB.OptionButton optCheck
Caption = "不进行外币核算"
Height = 195
Index = 0
Left = 120
TabIndex = 12
Top = 270
Value = -1 'True
Width = 1875
End
End
Begin VB.CheckBox chkQuantity
Caption = "数量核算"
Height = 285
Left = 210
TabIndex = 17
Top = 3360
Width = 1695
End
Begin VB.OptionButton optDirection
Caption = "借方"
Height = 255
Index = 0
Left = 3000
TabIndex = 9
Top = 1110
Value = -1 'True
Width = 1035
End
Begin VB.OptionButton optDirection
Caption = "贷方"
Height = 195
Index = 1
Left = 3000
TabIndex = 10
Top = 1410
Width = 1185
End
Begin VB.CheckBox chkAid
Caption = "项目"
Height = 210
Index = 5
Left = 3000
TabIndex = 26
Top = 3690
Width = 765
End
Begin VB.CheckBox chkAid
Caption = "单位"
Height = 255
Index = 0
Left = 3000
TabIndex = 21
Top = 2130
Width = 795
End
Begin VB.CheckBox chkAid
Caption = "部门"
Height = 225
Index = 1
Left = 3000
TabIndex = 22
Top = 2460
Width = 795
End
Begin VB.CheckBox chkAid
Caption = "统计"
Height = 210
Index = 4
Left = 3000
TabIndex = 25
Top = 3390
Width = 765
End
Begin VB.CheckBox chkAid
Caption = "工程"
Height = 210
Index = 3
Left = 3000
TabIndex = 24
Top = 3090
Width = 765
End
Begin VB.CheckBox chkAid
Caption = "职员"
Height = 195
Index = 2
Left = 3000
TabIndex = 23
Top = 2790
Width = 795
End
Begin VB.ComboBox cboAccount
Height = 300
Index = 1
Left = 1170
Style = 2 'Dropdown List
TabIndex = 7
Top = 1200
Width = 1485
End
Begin VB.ComboBox cboAccount
Height = 300
Index = 0
Left = 1170
Style = 2 'Dropdown List
TabIndex = 5
Top = 810
Width = 1485
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Height = 350
Index = 1
Left = 4560
Style = 1 'Graphical
TabIndex = 29
Tag = "1002"
Top = 540
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Height = 350
Index = 0
Left = 4560
Style = 1 'Graphical
TabIndex = 28
Tag = "1001"
Top = 150
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton cmdOK
Default = -1 'True
Height = 350
Index = 2
Left = 4560
Style = 1 'Graphical
TabIndex = 30
Tag = "1009"
Top = 930
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CheckBox chkStop
Caption = "停用(&S)"
Height = 195
Left = 4590
TabIndex = 27
Top = 3840
Width = 1335
End
Begin AtlEdit.TEdit txtAccount
Height = 300
Index = 1
Left = 1170
TabIndex = 3
Top = 435
Width = 3225
_ExtentX = 5689
_ExtentY = 529
maxchar = 40
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin AtlEdit.TEdit txtAccount
Height = 270
Index = 2
Left = 990
TabIndex = 19
Top = 3630
Width = 1455
_ExtentX = 2566
_ExtentY = 476
maxchar = 6
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Text = ""
End
Begin VB.Label Label5
Caption = "计量单位"
Height = 225
Left = 210
TabIndex = 18
Top = 3660
Width = 1035
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "数量核算(&Q)"
Height = 180
Index = 5
Left = 210
TabIndex = 16
Top = 3120
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "余额方向(&O)"
Height = 180
Index = 3
Left = 3000
TabIndex = 8
Top = 840
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "辅助核算(&E)"
Height = 180
Index = 2
Left = 3000
TabIndex = 20
Top = 1830
Width = 990
End
Begin VB.Label Label4
Caption = "科目性质(&P)"
Height = 255
Left = 120
TabIndex = 6
Top = 1230
Width = 1035
End
Begin VB.Label Label2
Caption = "科目类别(&T)"
Height = 225
Left = 120
TabIndex = 4
Top = 870
Width = 1005
End
Begin VB.Label Label1
Caption = "科目名称(&N)"
Height = 225
Index = 1
Left = 120
TabIndex = 2
Top = 510
Width = 1095
End
Begin VB.Label Label1
Caption = "科目编号(&C)"
Height = 195
Index = 0
Left = 120
TabIndex = 0
Top = 150
Width = 1095
End
End
Attribute VB_Name = "frmAccountListCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''''''''''''''''''''''''''''''
'科目卡片窗体
'
'作者:苏涛,郑权
'
'日期:1998.6.23
'接口： AddCard 增加科目记录。
' 参数：intModal 显示模式，strName 用户输入值
' EditCard 修改科目记录。
' 参数： lngID 被修改的记录的ID，intModal 显示模式
' DelCard 删除科目记录。
' 参数： lngID 被删除的记录的ID
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Option Compare Text
Public mblnSelCur As Boolean 'TRUE-选择了核算币种
Private mblnIsInit As Boolean
Private mblnAllCur As Boolean
Private mblnPartCur As Boolean
Private mblnIsInActive As Boolean
Private mblnAcntNEdit As Boolean
Private mblnSuit As Boolean
Private mblnChkQuantity As Boolean
Private mblnAid(5) As Boolean
Private mblnOAllCur As Boolean
Private mblnOPartCur As Boolean
Private mstrCode As String
Private mstrName As String
Private mstrUnit As String
Private mintDirection As Integer
Private mintDirectionOld As Integer
Private mintOldLevel As Integer
Private mintLevel As Integer
Private mblnIsDetail As Boolean '是否是末级
Private mblnPIsDetail As Boolean '上级是否是末级
Private mblnPIsInActive As Boolean
Private mblnIsNew As Boolean '是否新增
Private mlngAccountID As Long 'ID
Private mlngPCodeID As Long '上级ID
Private mlngNatureID As Long
Private mlngTypeID As Long
Private mstrFullName As String
Private mstrOldFullName As String
Private mstrPre As String '当前编码的前缀
Private mblnIsChanged As Boolean '是否改变
Private mtxtAccountNature As String
Private mstrLastCode As String
Private mstrStartDate As String
Private mblnPisActive As Boolean '上级科目的停用
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Public Property Get getID() As Long
getID = mlngAccountID
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -