📄 local.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form frmmain
AutoRedraw = -1 'True
BackColor = &H80000000&
BorderStyle = 1 'Fixed Single
Caption = " Local Database"
ClientHeight = 7170
ClientLeft = 45
ClientTop = 615
ClientWidth = 10155
Icon = "local.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8438.766
ScaleMode = 0 'User
ScaleWidth = 10155
StartUpPosition = 2 '屏幕中心
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 300
Left = 0
TabIndex = 15
Top = 6870
Width = 10155
_ExtentX = 17912
_ExtentY = 529
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 3
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 7056
MinWidth = 7056
Picture = "local.frx":038A
Text = "完毕 "
TextSave = "完毕 "
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5292
MinWidth = 5292
Picture = "local.frx":0724
Text = "总计记录 : 0"
TextSave = "总计记录 : 0"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5292
MinWidth = 5292
Picture = "local.frx":0ABE
Text = "总计字段 : 0"
TextSave = "总计字段 : 0"
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 TabDlg.SSTab SSTab1
Height = 6735
Left = 50
TabIndex = 2
Top = 120
Width = 10050
_ExtentX = 17727
_ExtentY = 11880
_Version = 393216
TabOrientation = 1
Tabs = 2
TabsPerRow = 2
TabHeight = 520
ForeColor = 128
TabCaption(0) = "记录"
TabPicture(0) = "local.frx":0E58
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lbltables"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Image1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "cmddescriptions"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "lblcolumnheads"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "lblctrlkeys"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "cbotables"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label1"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Image2"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Image3"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "ctrl"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "lstfields"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Timer1"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Check1"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "Command1"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "ImageList1"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "cd"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "chkmulti"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "MenuImg"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).ControlCount= 18
TabCaption(1) = "查询"
TabPicture(1) = "local.frx":0E74
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "txtquery"
Tab(1).Control(1)= "cmdjoins"
Tab(1).Control(2)= "Frame1"
Tab(1).Control(3)= "cmdstructure"
Tab(1).Control(4)= "cmdformatvb"
Tab(1).Control(5)= "cmdzoom"
Tab(1).Control(6)= "cmdbatch"
Tab(1).Control(7)= "cmdnew"
Tab(1).Control(8)= "cmdrun"
Tab(1).Control(9)= "cmdbrowse"
Tab(1).Control(10)= "txterrors"
Tab(1).Control(11)= "lstresult"
Tab(1).Control(12)= "Label5"
Tab(1).Control(13)= "Label3"
Tab(1).Control(14)= "Label2"
Tab(1).ControlCount= 15
Begin MSComctlLib.ImageList MenuImg
Left = 5400
Top = 2160
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 15
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "local.frx":0E90
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "local.frx":11E2
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "local.frx":1534
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "local.frx":1846
Key = ""
EndProperty
EndProperty
End
Begin RichTextLib.RichTextBox txtquery
Height = 3255
Left = -74880
TabIndex = 13
Top = 840
Width = 9795
_ExtentX = 17277
_ExtentY = 5741
_Version = 393217
Enabled = -1 'True
ScrollBars = 2
BulletIndent = 200
Appearance = 0
AutoVerbMenu = -1 'True
TextRTF = $"local.frx":1CD0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.CommandButton cmdjoins
BackColor = &H00E0E0E0&
Caption = "删除/Drop"
Height = 615
Left = -67200
Picture = "local.frx":1D62
Style = 1 'Graphical
TabIndex = 30
Top = 120
Width = 1095
End
Begin VB.Frame Frame1
BackColor = &H00000000&
BorderStyle = 0 'None
Height = 735
Left = -74880
TabIndex = 25
Top = 50
Width = 1935
Begin VB.Shape Shape1
BorderColor = &H000000FF&
Height = 735
Left = 0
Top = 0
Width = 1935
End
Begin VB.Label lbltotalrecords
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
ForeColor = &H000080FF&
Height = 195
Left = 1440
TabIndex = 29
Top = 480
Width = 90
End
Begin VB.Label lbltotalfields
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "0"
ForeColor = &H000080FF&
Height = 195
Left = 1440
TabIndex = 28
Top = 120
Width = 90
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "总计字段："
ForeColor = &H0080FF80&
Height = 180
Left = 120
TabIndex = 27
Top = 120
Width = 900
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "总计记录："
ForeColor = &H0080FF80&
Height = 180
Left = 120
TabIndex = 26
Top = 480
Width = 900
End
End
Begin VB.CommandButton cmdstructure
BackColor = &H00E0E0E0&
Caption = "结构"
Height = 615
Left = -66000
Picture = "local.frx":22EC
Style = 1 'Graphical
TabIndex = 24
Top = 120
Width = 975
End
Begin VB.CommandButton cmdformatvb
BackColor = &H00E0E0E0&
Caption = "格式化(VB)"
Height = 615
Left = -68400
Picture = "local.frx":2436
Style = 1 'Graphical
TabIndex = 23
Top = 120
Width = 1095
End
Begin VB.CommandButton cmdzoom
BackColor = &H00E0E0E0&
Caption = "缩放"
Height = 615
Left = -70260
Picture = "local.frx":27C0
Style = 1 'Graphical
TabIndex = 22
Top = 120
Width = 735
End
Begin VB.CommandButton cmdbatch
BackColor = &H00E0E0E0&
Caption = "批处理"
Height = 615
Left = -69420
Picture = "local.frx":2B4A
Style = 1 'Graphical
TabIndex = 21
Top = 120
Width = 915
End
Begin VB.CheckBox chkmulti
Caption = "复选框"
ForeColor = &H00800000&
Height = 375
Left = 120
TabIndex = 18
Top = 520
Width = 1575
End
Begin VB.CommandButton cmdnew
BackColor = &H00E0E0E0&
Caption = "清除"
Height = 615
Left = -71880
Picture = "local.frx":2ED4
Style = 1 'Graphical
TabIndex = 14
Top = 120
Width = 735
End
Begin MSComDlg.CommonDialog cd
Left = 1800
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton cmdrun
BackColor = &H00E0E0E0&
Caption = "运行(F5)"
Height = 615
Left = -72900
Picture = "local.frx":325E
Style = 1 'Graphical
TabIndex = 11
Top = 120
Width = 930
End
Begin VB.CommandButton cmdbrowse
BackColor = &H00E0E0E0&
Caption = "浏览"
Height = 615
Left = -71070
Picture = "local.frx":35E8
Style = 1 'Graphical
TabIndex = 10
Top = 120
Width = 735
End
Begin MSComctlLib.ImageList ImageList1
Left = 3000
Top = 2040
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 4
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "local.frx":3B72
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "local.frx":3E8C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "local.frx":42DE
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "local.frx":4730
Key = ""
EndProperty
EndProperty
End
Begin VB.CommandButton Command1
BackColor = &H00E0E0E0&
Caption = "刷新(&R)"
Height = 615
Left = 7030
Picture = "local.frx":4B82
Style = 1 'Graphical
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -