📄 vdmdi.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.MDIForm frmMDI
BackColor = &H8000000C&
Caption = "数据库工具"
ClientHeight = 10605
ClientLeft = 1155
ClientTop = 990
ClientWidth = 13950
HelpContextID = 2016116
Icon = "VDMDI.frx":0000
LinkTopic = "MDIForm1"
LockControls = -1 'True
Begin MSComDlg.CommonDialog filSelect
Left = 2640
Top = 2760
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.PictureBox Picture1
Align = 1 'Align Top
BorderStyle = 0 'None
Height = 15
Left = 0
ScaleHeight = 15
ScaleWidth = 13950
TabIndex = 1
Top = 0
Width = 13950
End
Begin MSComctlLib.StatusBar stsStatusBar
Align = 2 'Align Bottom
Height = 300
Left = 0
TabIndex = 0
Top = 10305
Width = 13950
_ExtentX = 24606
_ExtentY = 529
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
Object.Width = 21511
Text = "待命"
TextSave = "待命"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 2
EndProperty
EndProperty
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 MSComctlLib.ImageList imlToolbarPics
Left = 495
Top = 705
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483634
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 10
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VDMDI.frx":030A
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VDMDI.frx":041C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VDMDI.frx":052E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VDMDI.frx":0640
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VDMDI.frx":0752
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VDMDI.frx":0864
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VDMDI.frx":0976
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VDMDI.frx":0A88
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VDMDI.frx":0B9A
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "VDMDI.frx":0CAC
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuDatabase
Caption = "文件(&F)"
HelpContextID = 2096095
Begin VB.Menu mnuDBOpen
Caption = "连接数据库(&O)"
HelpContextID = 2016062
End
Begin VB.Menu mnuDBClose
Caption = "关闭(&C)"
Enabled = 0 'False
HelpContextID = 2016079
End
Begin VB.Menu mnuBar0
Caption = "-"
End
Begin VB.Menu mnuDBImpExp
Caption = "导出表结构(&I)..."
Enabled = 0 'False
HelpContextID = 2016092
End
Begin VB.Menu mnuBackup
Caption = "备份/还原"
End
Begin VB.Menu mnuDBErrors
Caption = "错误(&E)..."
HelpContextID = 2016081
End
Begin VB.Menu mnuBar2
Caption = "-"
End
Begin VB.Menu mnuDBMRU
Caption = "&1"
HelpContextID = 2016095
Index = 1
Visible = 0 'False
End
Begin VB.Menu mnuDBMRU
Caption = "&2"
HelpContextID = 2016095
Index = 2
Visible = 0 'False
End
Begin VB.Menu mnuDBMRU
Caption = "&3"
HelpContextID = 2016095
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuDBMRU
Caption = "&4"
HelpContextID = 2016095
Index = 4
Visible = 0 'False
End
Begin VB.Menu mnuDBMRU
Caption = "&5"
HelpContextID = 2016095
Index = 5
Visible = 0 'False
End
Begin VB.Menu mnuDBMRU
Caption = "&6"
HelpContextID = 2016095
Index = 6
Visible = 0 'False
End
Begin VB.Menu mnuDBMRU
Caption = "&7"
HelpContextID = 2016095
Index = 7
Visible = 0 'False
End
Begin VB.Menu mnuDBMRU
Caption = "&8"
HelpContextID = 2016095
Index = 8
Visible = 0 'False
End
Begin VB.Menu mnuBarMRU
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu mnuDBExit
Caption = "退出(&X)"
HelpContextID = 2016095
End
Begin VB.Menu mnuUBar1
Caption = "-"
Visible = 0 'False
End
End
Begin VB.Menu option
Caption = "选项"
Begin VB.Menu mnuPOpenOnStartup
Caption = "启动时打开上一次使用的连接(&O)"
End
Begin VB.Menu mnuPQueryTimeout
Caption = "查询超时值(&Q)..."
End
Begin VB.Menu mnuPLoginTimeout
Caption = "登录超时值(&L)..."
End
End
Begin VB.Menu mnuWindow
Caption = "窗口(&W)"
HelpContextID = 2016100
WindowList = -1 'True
Begin VB.Menu mnuWTile
Caption = "平铺(&T)"
End
Begin VB.Menu mnuWCascade
Caption = "层叠(&C)"
End
Begin VB.Menu mnuWArrange
Caption = "排列图标(&A)"
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
HelpContextID = 2093307
Begin VB.Menu mnuHAbout
Caption = "关于(&A)..."
End
End
Begin VB.Menu mnuDBPopUp
Caption = ""
Visible = 0 'False
Begin VB.Menu mnuDBPUOpen
Caption = "打开(&O)"
End
Begin VB.Menu mnuDBPUEdit
Caption = "编辑(&E)"
End
Begin VB.Menu mnuDBPUDelete
Caption = "删除(&L)"
End
Begin VB.Menu mnuDBPUBar1
Caption = "-"
End
Begin VB.Menu mnuDBPURemoveAll
Caption = "删除所有记录"
Visible = 0 'False
End
Begin VB.Menu mnuDBPURefresh
Caption = "刷新列表"
End
Begin VB.Menu mnuDBPUBar2
Caption = "-"
End
End
End
Attribute VB_Name = "frmMDI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Compare Binary
'misc strings
Const MSG3 = "按任意键关闭关于对话框"
Const MSG4 = "输入新数据库参数"
Const MSG5 = "输入驱动名称:"
Const MSG6 = "驱动名称"
Const MSG7 = "必须首先关闭！"
Const MSG8 = "打开失败！"
Const MSG15 = " 用户: "
Const MSG16 = "因为错误，必须关闭当前数据库！"
Const MSG18 = "登录超时（秒）："
Const MSG19 = "没有打开的数据库"
Const MSG20 = "查询超时（秒）："
Const MSG21 = "删除表吗？"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -