📄 frmmain.frm
字号:
VERSION 5.00
Object = "{709F7AE3-E049-11D2-9362-00403332E72F}#1.0#0"; "LEDGER50.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{54FC599E-9611-11D2-8350-E97AACC90D73}#1.1#0"; "SpltrBar.ocx"
Begin VB.Form frmMain
BackColor = &H00FFFFFF&
BorderStyle = 1 'Fixed Single
Caption = "Form1"
ClientHeight = 7815
ClientLeft = 45
ClientTop = 450
ClientWidth = 10335
Icon = "frmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7815
ScaleWidth = 10335
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox frmDesc
Appearance = 0 'Flat
Height = 5295
Left = 7920
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Top = 1440
Width = 2055
End
Begin MSComctlLib.ImageList TreeImgList
Left = 3600
Top = 3240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 2
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":058A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0B24
Key = ""
EndProperty
EndProperty
End
Begin SplitterBars.VSplitterBar frmSplit
Height = 4935
Left = 3120
Top = 1560
Width = 30
_ExtentX = 53
_ExtentY = 8705
BackColor = 8421504
End
Begin MSComctlLib.ImageList TBarImgList
Left = 3720
Top = 1680
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":121E
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":15B8
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1B52
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1EEC
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2486
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2820
Key = ""
EndProperty
EndProperty
End
Begin LEDGER50Lib.Ledger50 frmRpt
Height = 5295
Left = 3480
TabIndex = 3
Top = 1440
Width = 3375
_Version = 65536
_ExtentX = 5953
_ExtentY = 9340
_StockProps = 237
ForeColor = 0
End
Begin MSComctlLib.TreeView frmTree
Height = 4935
Left = 0
TabIndex = 2
Top = 2040
Width = 2775
_ExtentX = 4895
_ExtentY = 8705
_Version = 393217
LabelEdit = 1
LineStyle = 1
Style = 7
ImageList = "TreeImgList"
Appearance = 0
End
Begin MSComctlLib.StatusBar SBar
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 7440
Width = 10335
_ExtentX = 18230
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Text = "操作人员"
TextSave = "操作人员"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Text = "操作日期"
TextSave = "操作日期"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar TBar
Align = 1 'Align Top
Height = 330
Left = 0
TabIndex = 0
Top = 0
Width = 10335
_ExtentX = 18230
_ExtentY = 582
ButtonWidth = 1349
ButtonHeight = 582
Style = 1
TextAlignment = 1
ImageList = "TBarImgList"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "执行"
Object.ToolTipText = "执行选择的报表"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新建"
Object.ToolTipText = "建立新的报表"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "编辑"
Object.ToolTipText = "编辑选择的报表"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除"
Object.ToolTipText = "删除选择的报表"
ImageIndex = 5
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "搜索"
Object.ToolTipText = "搜索报表"
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关闭"
Object.ToolTipText = "关闭选择框"
ImageIndex = 6
EndProperty
EndProperty
End
Begin SplitterBars.VSplitterBar frmSptDesc
Height = 4935
Left = 7560
Top = 1680
Width = 30
_ExtentX = 53
_ExtentY = 8705
BackColor = 8421504
End
Begin VB.Image frmTitle
Height = 735
Left = 240
Top = 480
Width = 9015
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private SelItem() As Long
Private frmCn As New ADODB.Connection
Private frmRs As New ADODB.Recordset
Private TxtSql As String
Private SelItemID As Long
Private ImgPath As String
Private objRpt As Object
'//初始化参数
Private Sub LoadActiveX()
ImgPath = App.Path & "\ResLib\"
Set objRpt = CreateObject("StdRptBase.Rpt")
Call objRpt.NewBill
With Me
.Width = Screen.Width
.Height = Screen.Height * 0.9
.Caption = "请选择：" & TitleStr
End With
'/
With frmTitle
.Left = 0
.Top = TBar.Top + TBar.Height
.Height = 55
Set .Picture = LoadPicture(ImgPath & "TBar.jpg")
End With
'/
With frmTree
.Left = 0
.Top = frmTitle.Top + frmTitle.Height
.Width = Me.ScaleWidth * 0.3
.Height = SBar.Top - .Top
End With
'/
With frmSplit
.Left = frmTree.Left + frmTree.Width
.Top = frmTree.Top
.Height = frmTree.Height
End With
'/
With frmRpt
.Left = frmSplit.Left + frmSplit.Width
.Top = frmSplit.Top
.Width = Me.ScaleWidth * 0.3
.Height = frmSplit.Height
End With
'/
With frmSptDesc
.Left = frmRpt.Left + frmRpt.Width
.Top = frmRpt.Top
.Height = frmRpt.Height
End With
'/
With frmDesc
.Left = frmSptDesc.Left + frmSptDesc.Width
.Top = frmSptDesc.Top
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -