📄 frmdsn.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"
Begin VB.Form FrmDsn
Caption = "ODBC 设置"
ClientHeight = 3780
ClientLeft = 60
ClientTop = 345
ClientWidth = 6900
Icon = "FrmDsn.frx":0000
LinkTopic = "Form2"
ScaleHeight = 3780
ScaleWidth = 6900
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog CommonDialog1
Left = 510
Top = 3930
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin TabDlg.SSTab SSTab1
Height = 2895
Left = 75
TabIndex = 0
Top = 75
Width = 6735
_ExtentX = 11880
_ExtentY = 5106
_Version = 393216
Tabs = 2
Tab = 1
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "DSN for Access"
TabPicture(0) = "FrmDsn.frx":0ECA
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame2"
Tab(0).ControlCount= 1
TabCaption(1) = "DSN for SQL"
TabPicture(1) = "FrmDsn.frx":0EE6
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "Frame3"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
Begin VB.Frame Frame3
Height = 2415
Left = 120
TabIndex = 17
Top = 360
Width = 6495
Begin VB.CommandButton CmdCka
Caption = "…"
Height = 285
Left = 5430
TabIndex = 37
Top = 960
Width = 360
End
Begin VB.OptionButton Option1
Caption = "文件 DSN"
Height = 255
Index = 2
Left = 4395
TabIndex = 34
Top = 2085
Width = 1470
End
Begin VB.TextBox Text2
Height = 285
Index = 5
Left = 4455
TabIndex = 31
Text = "sa"
Top = 585
Width = 1335
End
Begin VB.ComboBox CobDatabase
Height = 300
Left = 1560
TabIndex = 29
Top = 1305
Width = 4245
End
Begin VB.OptionButton Option1
Caption = "系统 DSN"
Height = 255
Index = 1
Left = 2985
TabIndex = 23
Top = 2085
Width = 1470
End
Begin VB.OptionButton Option1
Caption = "用户 DSN"
Height = 285
Index = 0
Left = 1575
TabIndex = 22
Top = 2070
Value = -1 'True
Width = 1080
End
Begin VB.TextBox Text2
Height = 285
Index = 0
Left = 1560
TabIndex = 21
Text = "SQL Server"
Top = 240
Width = 4245
End
Begin VB.TextBox Text2
Height = 285
Index = 1
Left = 1560
TabIndex = 20
Top = 960
Width = 3870
End
Begin VB.TextBox Text2
Height = 285
Index = 4
Left = 1560
TabIndex = 19
Top = 1680
Width = 4245
End
Begin VB.TextBox Text2
Height = 285
Index = 2
Left = 1560
TabIndex = 18
Text = "(local)"
Top = 600
Width = 2040
End
Begin VB.Label Label3
Caption = "用户名:"
Height = 225
Left = 3720
TabIndex = 30
Top = 615
Width = 690
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "驱动程序:"
Height = 180
Index = 0
Left = 615
TabIndex = 28
Top = 285
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "DSN 名称:"
Height = 180
Index = 4
Left = 615
TabIndex = 27
Top = 960
Width = 810
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "数据库:"
Height = 180
Index = 5
Left = 795
TabIndex = 26
Top = 1335
Width = 630
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "描述:"
Height = 180
Index = 6
Left = 975
TabIndex = 25
Top = 1695
Width = 450
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "服务器: "
Height = 180
Index = 7
Left = 795
TabIndex = 24
Top = 645
Width = 705
End
End
Begin VB.Frame Frame2
Height = 2415
Left = -74880
TabIndex = 5
Top = 360
Width = 6495
Begin VB.CommandButton CmdCk
Caption = "…"
Height = 285
Left = 5430
TabIndex = 36
Top = 645
Width = 390
End
Begin VB.OptionButton Option0
Caption = "文件 DSN"
Height = 285
Index = 2
Left = 4395
TabIndex = 35
Top = 2070
Width = 1110
End
Begin VB.TextBox Text1
Height = 285
Index = 0
Left = 1560
TabIndex = 12
Text = "Microsoft Access Driver (*.mdb)"
Top = 240
Width = 4245
End
Begin VB.TextBox Text1
Height = 285
Index = 1
Left = 1560
TabIndex = 11
Top = 645
Width = 3870
End
Begin VB.OptionButton Option0
Caption = "用户 DSN"
Height = 285
Index = 0
Left = 1575
TabIndex = 10
Top = 2070
Value = -1 'True
Width = 1110
End
Begin VB.OptionButton Option0
Caption = "系统 DSN"
Height = 285
Index = 1
Left = 2985
TabIndex = 9
Top = 2070
Width = 1110
End
Begin VB.TextBox Text1
Height = 285
Index = 2
Left = 1560
TabIndex = 8
Top = 1080
Width = 3870
End
Begin VB.TextBox Text1
Height = 285
Index = 3
Left = 1560
TabIndex = 7
Top = 1515
Width = 4245
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -