📄 frmtool.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmTool
BorderStyle = 3 'Fixed Dialog
ClientHeight = 3930
ClientLeft = 45
ClientTop = 330
ClientWidth = 6030
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmTool.frx":0000
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3930
ScaleWidth = 6030
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin TabDlg.SSTab stbTool
Height = 3375
Left = 60
TabIndex = 2
Top = 60
Width = 5895
_ExtentX = 10398
_ExtentY = 5953
_Version = 393216
Style = 1
Tabs = 1
TabsPerRow = 1
TabHeight = 520
TabCaption(0) = "网络属性"
TabPicture(0) = "frmTool.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "fraLink(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "fraLink(2)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
Begin VB.Frame fraLink
Height = 540
Index = 2
Left = 240
TabIndex = 19
Top = 360
Width = 5400
Begin VB.ComboBox cboSort
Enabled = 0 'False
Height = 300
ItemData = "frmTool.frx":0028
Left = 1320
List = "frmTool.frx":0035
Style = 2 'Dropdown List
TabIndex = 20
Top = 150
Width = 3975
End
Begin VB.Label lblSort
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "数据库类型"
Height = 180
Left = 240
TabIndex = 21
Top = 225
Width = 900
End
End
Begin VB.Frame fraLink
Caption = "编辑"
Height = 2240
Index = 0
Left = 240
TabIndex = 3
Top = 960
Width = 5415
Begin VB.CheckBox chkOpen
Caption = "默认登录方式"
Height = 210
Left = 240
TabIndex = 14
Top = 1860
Width = 1455
End
Begin VB.CommandButton cmdNew
BackColor = &H00C0FFFF&
Caption = "添加(&A)"
Height = 350
Left = 1800
TabIndex = 13
Top = 1800
Width = 1095
End
Begin VB.TextBox txtName
Height = 285
Left = 1080
TabIndex = 12
Top = 960
Width = 2775
End
Begin VB.TextBox txtPassword
Height = 285
IMEMode = 3 'DISABLE
Left = 1080
PasswordChar = "*"
TabIndex = 11
Top = 1320
Width = 2775
End
Begin VB.TextBox txtServerName
Height = 285
Left = 1080
TabIndex = 10
Top = 240
Width = 2775
End
Begin VB.ComboBox CboDatabase
Height = 300
ItemData = "frmTool.frx":0096
Left = 1080
List = "frmTool.frx":0098
TabIndex = 9
Top = 600
Width = 2775
End
Begin VB.CommandButton CmdDel
BackColor = &H00C0FFFF&
Caption = "删除(&D)"
Height = 350
Left = 4200
TabIndex = 8
Top = 1800
Width = 1095
End
Begin VB.CommandButton cmdSave
BackColor = &H00C0FFFF&
Caption = "保存(&S)"
Height = 350
Left = 3000
TabIndex = 7
Top = 1800
Width = 1095
End
Begin VB.Frame fraLink
BackColor = &H80000004&
Caption = "测试"
Height = 1455
Index = 1
Left = 3960
TabIndex = 4
Top = 180
Width = 1335
Begin VB.CommandButton cmdTest
BackColor = &H00C0FFFF&
Caption = "测试(&T)"
Default = -1 'True
Height = 350
Left = 120
TabIndex = 5
Top = 1020
Width = 1095
End
Begin VB.Label lblText
AutoSize = -1 'True
BackStyle = 0 'Transparent
Height = 180
Left = 120
TabIndex = 6
Top = 480
Width = 90
End
End
Begin VB.Label lblName
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "登录用户"
Height = 180
Left = 240
TabIndex = 18
Top = 960
Width = 720
End
Begin VB.Label lblPassword
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "登录密码"
Height = 180
Left = 240
TabIndex = 17
Top = 1320
Width = 720
End
Begin VB.Label lblServerName
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 服务器"
Height = 180
Left = 240
TabIndex = 16
Top = 240
Width = 720
End
Begin VB.Label lblDatabase
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = " 数据库"
Height = 180
Left = 240
TabIndex = 15
Top = 600
Width = 720
End
End
End
Begin VB.CommandButton cmdReStats
BackColor = &H00C0FFFF&
Caption = "登录(&U)"
Height = 350
Left = 3660
MaskColor = &H8000000F&
TabIndex = 1
Top = 3540
Width = 1095
End
Begin VB.CommandButton cmdExit
BackColor = &H00C0FFFF&
Height = 350
Left = 4860
TabIndex = 0
Top = 3540
Width = 1095
End
End
Attribute VB_Name = "frmTool"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' 数据库连接方式编辑器 V0.89 测试版
'1.采用锁定记录方式，最多支持记录10个数据库连接方式
'2.采用遍历查找方式和最近空项目写入技术对列表项目进行更改
'3.测试连接方法采用简单连接数据库进行测试
'4.采用写注册表形式对内容进行保存
'
Option Explicit
Dim lngArithmometer As Long '普通循环变量,或普通传递变量
Dim lngCboListCount As Long '记录下拉列表框的列数
Dim intSave(9) As Integer '记录注册表中项目名称
Dim blnErr As Boolean '错误判断（F为无错误，T为有错误)
Dim intNumber As Integer '记录被选择的项目列名
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -