📄 frmac_multsel.frm
字号:
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.ListView lsvItemSource
Height = 3945
Left = 60
TabIndex = 27
Top = 150
Width = 2595
_ExtentX = 4577
_ExtentY = 6959
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 315
Index = 2
Left = -67770
TabIndex = 24
Top = 4590
Width = 885
End
Begin VB.CommandButton cmdAfter
Caption = "下一步"
Height = 315
Index = 2
Left = -69900
TabIndex = 23
Top = 4590
Width = 1245
End
Begin VB.CommandButton cmdPre
Caption = "上一步"
Height = 315
Index = 2
Left = -71160
TabIndex = 22
Top = 4590
Width = 1245
End
Begin VB.Frame Frame2
Height = 4155
Index = 2
Left = -72720
TabIndex = 16
Top = 360
Width = 5895
Begin VB.ComboBox cboAnalyseObj
Enabled = 0 'False
Height = 300
Left = 2520
Style = 2 'Dropdown List
TabIndex = 19
Top = 960
Width = 1905
End
Begin VB.ComboBox cboAnalyseLevel
Height = 300
ItemData = "frmAC_MultSel.frx":187E8
Left = 2520
List = "frmAC_MultSel.frx":187EA
Style = 2 'Dropdown List
TabIndex = 18
Top = 1440
Width = 1905
End
Begin VB.CheckBox chkAnalyseLastLevel
Caption = "分析所有末级"
Height = 285
Left = 2550
TabIndex = 17
Top = 1890
Width = 1515
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "选择分析对象："
Height = 180
Left = 1200
TabIndex = 21
Top = 1050
Width = 1260
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "分析对象级次："
Height = 180
Left = 1200
TabIndex = 20
Top = 1530
Width = 1260
End
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 315
Index = 3
Left = -67770
TabIndex = 15
Top = 4590
Width = 885
End
Begin VB.CommandButton cmdAfter
Caption = "完成"
Height = 315
Index = 3
Left = -69900
TabIndex = 14
Top = 4590
Width = 1245
End
Begin VB.CommandButton cmdPre
Caption = "上一步"
Height = 315
Index = 3
Left = -71160
TabIndex = 13
Top = 4590
Width = 1245
End
Begin VB.Frame Frame2
Height = 4155
Index = 3
Left = -72720
TabIndex = 8
Top = 360
Width = 5835
Begin VB.CommandButton cmdUp
Caption = "↑"
Height = 525
Left = 5430
TabIndex = 11
Top = 210
Width = 285
End
Begin VB.CommandButton cmdDown
Caption = "↓"
Height = 495
Left = 5430
TabIndex = 10
Top = 930
Width = 285
End
Begin VB.CommandButton cmdDirect
Caption = "方向"
Height = 525
Left = 5430
TabIndex = 9
Top = 1560
Width = 285
End
Begin MSComctlLib.ListView lsvAnalyseCol
Height = 3945
Left = 60
TabIndex = 12
Top = 150
Width = 5265
_ExtentX = 9287
_ExtentY = 6959
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
AllowReorder = -1 'True
Checkboxes = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
End
Begin VB.CommandButton cmdSave
Caption = "保存格式到多栏账账本"
Height = 345
Left = -73350
TabIndex = 7
Top = 4590
Width = 2055
End
Begin VB.CommandButton cmdDelete
Caption = "删除查询多栏账"
Height = 315
Left = -73020
TabIndex = 5
Top = 4590
Width = 1425
End
Begin VB.CommandButton cmdPre
Caption = "上一步"
Height = 315
Index = 4
Left = -71160
TabIndex = 4
Top = 4590
Width = 1245
End
Begin VB.CommandButton cmdAfter
Caption = "完成"
Height = 315
Index = 4
Left = -69900
TabIndex = 3
Top = 4590
Width = 1245
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 315
Index = 4
Left = -67770
TabIndex = 2
Top = 4590
Width = 885
End
Begin MSComctlLib.ListView lsvAccountBook
Height = 4095
Left = -74910
TabIndex = 6
Top = 420
Width = 8055
_ExtentX = 14208
_ExtentY = 7223
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
End
End
Attribute VB_Name = "frmAC_MultiSel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const AccountColCount As Long = 50
''栏目
Private Type colUDT
sColCode As String '栏目代码
sColName As String '栏目名称
iColLevel As Integer '栏目级次
sColDirect As String '栏目方向
iColNum As Integer '栏目所在位置
End Type
Private m_sMonthFrom As String, m_sMonthTo As String '查询起始月份、截止月份
Private m_bIncludeNotRecordVoucher As Boolean '是否包含未记帐凭证
Private m_bShowNotMoneyCol As Boolean '是否显示没有发生额的栏目
Private m_sSubjectCode As String '查询科目代码
Private m_sDeptCode As String '查询辅助核算部门代码
Private m_bAmount As Boolean '是否数量帐
Private m_bForeign As Boolean '是否外币帐
Private m_sMode As String '帐页格式
Private m_sItemCodeCollect As String '查询辅助核算项目代码集
Private m_iLevel '分析级次
Private m_sAccountName As String '账表名称
Private m_sAccountType As String '辅助核算类型
Private m_arrColInformation() As clsSubSys '查询栏目信息
Private m_iMinStartMonth As Integer '当前查询最小月份
Private m_iMaxEndMonth As Integer '当前查询最大月份
Private m_bFormLoad As Boolean '是否窗体在引导状态
Private lMutexID As Integer
Public Property Let uMutexID(ByVal i As Integer)
lMutexID = i
End Property
Private Sub chkAccountSel_Click()
If chkAccountSel.Value = 1 Then
txtSubject.Enabled = False
cmdSubject.Enabled = False
txtDept.Enabled = False
cmdDept.Enabled = False
Else
txtSubject.Enabled = True
cmdSubject.Enabled = True
txtDept.Enabled = True
cmdDept.Enabled = True
End If
End Sub
Private Sub chkAnalyseLastLevel_Click()
cboAnalyseLevel.Enabled = IIf(chkAnalyseLastLevel.Value = 1, False, True)
End Sub
'======================载入窗体================================================
Private Sub form_load()
tabSelect.TabVisible(1) = False
tabSelect.TabVisible(2) = False
tabSelect.TabVisible(3) = False
tabSelect.TabVisible(4) = False
m_sAccountName = "科目任意多栏账"
tabSelect.Tab = 0
FillMonth '填充月份
LoadAccountBook '载入查询帐本
End Sub
'===================取查询条件步骤===========================
Private Sub cmdAfter_Click(Index As Integer)
Me.MousePointer = vbHourglass
PressStep (Index)
Me.MousePointer = vbDefault
End Sub
Private Sub cmdPre_Click(Index As Integer)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -