📄 frmresmanage.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmResManage
Caption = "帐表资源管理器"
ClientHeight = 4665
ClientLeft = 60
ClientTop = 345
ClientWidth = 7635
HelpContextID = 70001
KeyPreview = -1 'True
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 4665
ScaleWidth = 7635
Begin VB.PictureBox picMove
BorderStyle = 0 'None
Height = 4560
Left = 900
ScaleHeight = 4560
ScaleWidth = 45
TabIndex = 8
Top = 5700
Visible = 0 'False
Width = 45
End
Begin VB.PictureBox picDesc
Height = 255
Left = -15
ScaleHeight = 195
ScaleWidth = 7500
TabIndex = 2
Top = 4380
Width = 7560
Begin VB.Label lblDesc
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 180
Left = 0
TabIndex = 9
Top = 0
Width = 90
End
End
Begin VB.PictureBox picGroup
Height = 255
Left = -15
ScaleHeight = 195
ScaleWidth = 2130
TabIndex = 3
Top = 90
Width = 2184
Begin VB.Label lblGroup
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "帐表分类"
Height = 180
Left = 30
TabIndex = 5
Top = 10
Width = 720
End
End
Begin VB.PictureBox picReport
Height = 255
Left = 2220
ScaleHeight = 195
ScaleWidth = 5205
TabIndex = 4
Top = 96
Width = 5268
Begin VB.Label lblList
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "帐表列表"
Height = 180
Left = 30
TabIndex = 6
Top = 10
Width = 720
End
End
Begin VB.PictureBox picSep
BorderStyle = 0 'None
Height = 4560
Left = 2940
ScaleHeight = 4560
ScaleWidth = 45
TabIndex = 7
Top = 5580
Width = 45
End
Begin ComctlLib.TreeView tvwReportType
Height = 3408
Left = 0
TabIndex = 0
Top = 936
Width = 2220
_ExtentX = 3916
_ExtentY = 6033
_Version = 327682
HideSelection = 0 'False
Indentation = 529
LabelEdit = 1
LineStyle = 1
Style = 7
ImageList = "ImageList2"
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin ComctlLib.ListView lvwDetail
Height = 3408
Left = 2220
TabIndex = 1
Top = 936
Width = 5340
_ExtentX = 9419
_ExtentY = 6033
View = 2
Arrange = 1
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
_Version = 327682
Icons = "ImageList1"
SmallIcons = "ImageList3"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin ComctlLib.ImageList ImageList2
Left = 1080
Top = 360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 5
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":031A
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":0772
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":0BCA
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":1022
Key = ""
EndProperty
EndProperty
End
Begin ComctlLib.ImageList ImageList3
Left = 1950
Top = 360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 5
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":147A
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":18D2
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":1D2A
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":2182
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":25DA
Key = ""
EndProperty
EndProperty
End
Begin ComctlLib.ImageList ImageList1
Left = 270
Top = 360
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
UseMaskColor = 0 'False
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 5
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":2A32
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":2E86
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":32DA
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":372E
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "frmResManage.frx":3B86
Key = ""
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmResManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
' 帐表资源管理器
' 作者：魏 然
' 日期：1998.05.21
'
'程序说明：
'目录: 层次 -报表ID - 分组号
'帐表: 层次 -报表ID - 分组号 - 视图ID - 预置标志 - 向导类型
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Const lngFormWidth As Long = 3500 '窗体最小宽度
Const lngFormHeight As Long = 1500 '窗体最小高度
Private WithEvents mclsMainControl As MainControl '主控对象
Attribute mclsMainControl.VB_VarHelpID = -1
Private mstrOldParent As String '上次选择的报表目录
Private mintOldNode As Integer '上次选择的报表目录结点索引
Private mintOldItem As Integer '上次选择的报表结点索引
Private mblnAlreadyPop As Boolean '已经弹出菜单
Private mstrClipCode As String '剪贴板保存的帐表（目录）编码
Private mstrClipName As String '剪贴板保存的帐表（目录）名称
Private mstrClipParentKey As String '被复制节点的父节点KEY
Private mbytNowOperate As Byte '弹出菜单响应的对象 1=TreeView中的帐表分组 2=ListView中的帐表分组 3=帐表
Private mbytCopyed As Byte '复制的对象 1=TreeView中的帐表分组 2=ListView中的帐表分组 3=帐表
Private mbytClipData As Byte '剪贴板数据类型 0=空 1=Copy 2=Cut
Private mblnIsLoadPopMenu As Boolean '是否已装载弹出菜单资源
Private mblnRun As Boolean '是否正在运行
'初始化帐表分组目录
Private Sub InitType()
Dim rstReportGroup As rdoResultset, rstLevel As rdoResultset
Dim strSql As String
Dim bytGroup As Integer, strCondVersion As String
strCondVersion = " And Mod(Report.bytVersion , " & gVersionType * 2 & ") >= " & gVersionType
strSql = "Select * From Report Where blnIsDetail=0 and intLevel=1" & strCondVersion & " Order by intOrder"
Set rstLevel = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
tvwReportType.Nodes.Clear
Do While Not rstLevel.EOF
bytGroup = rstLevel!bytGroup
If bytGroup <> 16 Then
strSql = "Select * From Report Where blnIsDetail=0 and bytGroup=" & bytGroup & strCondVersion & " Order by intLevel,intOrder,lngParentID"
Else
strSql = "Select * From Report Where blnIsDetail=0 And (lngOperatorID = " & gclsBase.OperatorID & " or intLevel =1) and bytGroup=" & bytGroup & strCondVersion & " Order by intLevel,intOrder,lngParentID"
End If
Set rstReportGroup = gclsBase.BaseDB.OpenResultset(strSql, rdOpenStatic)
Do While Not rstReportGroup.EOF
With tvwReportType
If rstReportGroup!intLevel = 1 Then
If rstReportGroup!bytPrep = 1 Then
.Nodes.Add , , rstReportGroup!intLevel & "-" & rstReportGroup!lngReportID & "-" & _
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -