📄 frmdbset.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{0A45DB48-BD0D-11D2-8D14-00104B9E072A}#2.0#0"; "sstabs2.ocx"
Begin VB.Form frmDBSet
BorderStyle = 3 'Fixed Dialog
Caption = "数据库连接"
ClientHeight = 5520
ClientLeft = 45
ClientTop = 330
ClientWidth = 6570
Icon = "frmDBSet.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5520
ScaleWidth = 6570
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.OptionButton optDBType
Caption = "系统缺省值"
Height = 375
Index = 2
Left = 4200
TabIndex = 27
Tag = "MASQL"
Top = 1440
Width = 1815
End
Begin VB.Frame Frame1
Height = 120
Index = 1
Left = 240
TabIndex = 24
Top = 4680
Width = 5895
End
Begin ActiveTabs.SSActiveTabs tabDBInfo
Height = 2535
Left = 1440
TabIndex = 9
Top = 2280
Width = 4695
_ExtentX = 8281
_ExtentY = 4471
_Version = 131082
TabCount = 3
TabStyle = 3
Tabs = "frmDBSet.frx":000C
Begin ActiveTabs.SSActiveTabPanel SSActiveTabPanel3
Height = 2535
Left = -99999
TabIndex = 25
Top = 0
Width = 4695
_ExtentX = 8281
_ExtentY = 4471
_Version = 131082
TabGuid = "frmDBSet.frx":00B5
Begin VB.TextBox txtDefaultACCESSDBDir
Height = 330
Left = 0
Locked = -1 'True
TabIndex = 28
Tag = "DataBase,ACCESS_DB_DIR, "
Top = 480
Visible = 0 'False
Width = 4635
End
Begin VB.Label Label5
Caption = "系统缺省的数据库目录:"
Height = 270
Left = 0
TabIndex = 29
Top = 120
Width = 3975
End
End
Begin VB.CommandButton cmdDBTest
Caption = "测试连接"
Height = 390
Left = 3360
TabIndex = 15
Tag = "确定"
Top = 1800
Width = 1275
End
Begin ActiveTabs.SSActiveTabPanel SSActiveTabPanel2
Height = 2535
Left = -99999
TabIndex = 11
Top = 0
Width = 4695
_ExtentX = 8281
_ExtentY = 4471
_Version = 131082
TabGuid = "frmDBSet.frx":00DD
Begin VB.CommandButton cmdRefresh
Caption = "刷新"
Height = 330
Left = 3960
TabIndex = 32
Tag = "确定"
Top = 1200
Width = 675
End
Begin MSComctlLib.ImageCombo cboSQLDBName
Height = 315
Left = 1020
TabIndex = 31
Tag = "DataBase,MSSQL_DATABASE_NAME,"
Top = 1200
Width = 2895
_ExtentX = 5106
_ExtentY = 556
_Version = 393216
ForeColor = -2147483640
BackColor = -2147483643
End
Begin VB.TextBox txtMSSQLPassword
Height = 330
IMEMode = 3 'DISABLE
Left = 3360
PasswordChar = "*"
TabIndex = 21
Top = 660
Width = 1275
End
Begin VB.TextBox txtMSSQLUserName
Height = 330
Left = 1020
TabIndex = 19
Tag = "DataBase,MSSQL_USER_NAME, "
Top = 660
Width = 1155
End
Begin VB.TextBox txtMSSQLServerName
Height = 330
Left = 1020
TabIndex = 17
Tag = "DataBase,MSSQL_SERVER_NAME,"
Top = 120
Width = 3615
End
Begin VB.Label Label8
Caption = "数据库名:"
Height = 270
Left = 0
TabIndex = 30
Top = 1260
Width = 1095
End
Begin VB.Label Label6
Caption = "口令:"
Height = 390
Left = 2640
TabIndex = 20
Top = 720
Width = 855
End
Begin VB.Label lblMSSQLUserName
Caption = "用户名:"
Height = 390
Left = 0
TabIndex = 18
Top = 720
Width = 855
End
Begin VB.Label Label4
Caption = "服务器名:"
Height = 270
Left = 0
TabIndex = 16
Top = 180
Width = 1095
End
End
Begin ActiveTabs.SSActiveTabPanel SSActiveTabPanel1
Height = 2535
Left = 0
TabIndex = 10
Top = 0
Width = 4695
_ExtentX = 8281
_ExtentY = 4471
_Version = 131082
TabGuid = "frmDBSet.frx":0105
Begin VB.TextBox txtACCESSDBDir
Height = 330
Left = 0
TabIndex = 13
Tag = "DataBase,ACCESS_DB_DIR, "
Top = 480
Width = 4155
End
Begin VB.CommandButton cmdACCESSDir
Height = 315
Left = 4200
Picture = "frmDBSet.frx":012D
Style = 1 'Graphical
TabIndex = 12
Top = 480
Width = 315
End
Begin VB.Label Label3
Caption = "数据库目录:"
Height = 270
Left = 0
TabIndex = 14
Top = 120
Width = 3975
End
End
End
Begin VB.Frame Frame2
Height = 120
Left = 1320
TabIndex = 7
Top = 1920
Width = 4815
End
Begin VB.OptionButton optDBType
Caption = "SQL Server"
Height = 375
Index = 1
Left = 2760
TabIndex = 5
Tag = "MASQL"
Top = 1440
Width = 1815
End
Begin VB.OptionButton optDBType
Caption = "ACCESS"
Height = 375
Index = 0
Left = 1560
TabIndex = 4
Tag = "ACCESS"
Top = 1440
Width = 1815
End
Begin VB.Frame Frame1
Height = 120
Index = 0
Left = 1320
TabIndex = 3
Top = 1080
Width = 4815
End
Begin VB.PictureBox Picture1
Align = 2 'Align Bottom
BorderStyle = 0 'None
Height = 615
Left = 0
ScaleHeight = 615
ScaleWidth = 6570
TabIndex = 0
Top = 4905
Width = 6570
Begin VB.CommandButton cmdApplicate
Caption = "保存 [&S]"
Default = -1 'True
Height = 390
Left = 2040
TabIndex = 26
Tag = "确定"
Top = 0
Visible = 0 'False
Width = 1275
End
Begin VB.CommandButton CmdHelp
Cancel = -1 'True
Caption = "帮助 [F1]"
Height = 390
Left = 240
TabIndex = 22
Tag = "取消"
Top = 0
Visible = 0 'False
Width = 1275
End
Begin VB.CommandButton cmdOK
Caption = "确定 [ENTER]"
Height = 390
Left = 3420
TabIndex = 2
Tag = "确定"
Top = 0
Width = 1275
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -