📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Begin VB.Form frmMain
BackColor = &H8000000A&
Caption = "代码生成器"
ClientHeight = 7050
ClientLeft = 165
ClientTop = 690
ClientWidth = 9720
Icon = "frmMain.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MousePointer = 9 'Size W E
ScaleHeight = 7050
ScaleWidth = 9720
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin RichTextLib.RichTextBox RichTextBox1
Height = 255
Left = 4200
TabIndex = 5
Top = 5640
Visible = 0 'False
Width = 255
_ExtentX = 450
_ExtentY = 450
_Version = 393217
Enabled = 0 'False
TextRTF = $"frmMain.frx":1CFA
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 255
Left = 4440
TabIndex = 4
Top = 5640
Visible = 0 'False
Width = 840
_ExtentX = 1482
_ExtentY = 450
_Version = 393216
Appearance = 0
Enabled = 0 'False
Max = 82
Scrolling = 1
End
Begin RichTextLib.RichTextBox txtCode
Height = 4215
Left = 3480
TabIndex = 3
Top = 840
Width = 6135
_ExtentX = 10821
_ExtentY = 7435
_Version = 393217
BorderStyle = 0
Enabled = -1 'True
ReadOnly = -1 'True
ScrollBars = 3
DisableNoScroll = -1 'True
BulletIndent = 20
AutoVerbMenu = -1 'True
TextRTF = $"frmMain.frx":1D97
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 8280
Top = 120
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1E34
Key = "CreateCode"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2B0E
Key = "Exit"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":37E8
Key = "ClearTree"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":44C2
Key = "Delete"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":519C
Key = "Database"
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":5E76
Key = "About"
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":6B50
Key = "VBClass"
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":782A
Key = "VCCPP"
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":8504
Key = "FormatCode"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 795
Left = 0
TabIndex = 2
Top = 0
Width = 9720
_ExtentX = 17145
_ExtentY = 1402
ButtonWidth = 1455
ButtonHeight = 1349
Appearance = 1
Style = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 12
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "数据库"
Key = "Database"
ImageKey = "Database"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "生成代码"
Key = "CreateCode"
ImageKey = "CreateCode"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "VB 预览"
Key = "VBClass"
ImageKey = "VBClass"
Style = 2
Value = 1
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "VC 预览"
Key = "VCCPP"
ImageKey = "VCCPP"
Style = 2
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "格式预览"
Key = "FormatCode"
ImageKey = "FormatCode"
Style = 1
Value = 1
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "删除节点"
Key = "Delete"
ImageKey = "Delete"
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "清空树"
Key = "ClearTree"
ImageKey = "ClearTree"
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关于..."
Key = "About"
ImageKey = "About"
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出系统"
Key = "Exit"
ImageKey = "Exit"
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 1
Top = 6675
Width = 9720
_ExtentX = 17145
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 176389
MinWidth = 176389
Picture = "frmMain.frx":91DE
Key = "Status"
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ilstNode
Left = 960
Top = 4200
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A230
Key = "Table"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A38A
Key = "Field"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A4E4
Key = "Procedure"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":B1BE
Key = "View"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":BE98
Key = "Manager"
EndProperty
EndProperty
End
Begin MSComctlLib.TreeView TreeTable
Height = 4215
Left = 120
TabIndex = 0
Top = 840
Width = 3255
_ExtentX = 5741
_ExtentY = 7435
_Version = 393217
HideSelection = 0 'False
Indentation = 706
LabelEdit = 1
Style = 7
ImageList = "ilstNode"
Appearance = 1
End
Begin VB.Menu mnuFile
Caption = "文件(&F)"
Begin VB.Menu mnuExit
Caption = "退出(&X)"
End
End
Begin VB.Menu mnuOperat
Caption = "操作(&O)"
Begin VB.Menu mnuDatabase
Caption = "连接数据库(&N)"
End
Begin VB.Menu mnuCreateCode
Caption = "生成代码(&S)"
End
Begin VB.Menu mnu_0
Caption = "-"
End
Begin VB.Menu mnuDelNode
Caption = "删除节点(&D)"
End
Begin VB.Menu mnuClear
Caption = "清空树(&C)"
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu mnuProductRegister
Caption = "产品注册(&R)"
End
Begin VB.Menu mnu_1
Caption = "-"
End
Begin VB.Menu mnuAbout
Caption = "关于...(&A)"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************************************************
'** 功能描述: 代码生成器主界面
'**
'** 作 者: 陈顺球(LionCSQ)
'** 创建时间: 2005 年 09 月 08 日
'**-------------------------------------------------------------------
'**
'** 改进人员: 寻百安(XunBaian)
'** 改进日期: 2005 年 09 月 15 日
'** 改进描述:
'**********************************************************************
Option Explicit
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long
Private Declare Function GetCapture Lib "user32" () As Long
Private Declare Function SetCapture Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
'Private Type RECT
' Left As Long
' Top As Long
' Right As Long
' Bottom As Long
'End Type
'Private Declare Function InvalidateRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT, ByVal bErase As Long) As Long
'Private Declare Function ValidateRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
'Private Declare Function GetClientRect Lib "user32" (ByVal h Wnd As Long, lpRect As RECT) As Long
Private WithEvents mfrmSaveFile As frmSaveFile
Attribute mfrmSaveFile.VB_VarHelpID = -1
Private mblnCreateLib As Boolean, mblnCreateLibResource As Boolean
Private WithEvents mobjGetDatabase As clsGetDatabase
Attribute mobjGetDatabase.VB_VarHelpID = -1
Private mlngVBVCCode As Long, mblnWatchVB As Boolean
Private mstrFilePath As String, mstrFileName As String, mstrDatabaseName As String
Private mstrAppPath As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -