?? frmserverset.frm
字號:
VERSION 5.00
Begin VB.Form frmServerSet
BorderStyle = 3 'Fixed Dialog
Caption = "服務器配置"
ClientHeight = 3150
ClientLeft = 2835
ClientTop = 3480
ClientWidth = 4230
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1861.124
ScaleMode = 0 'User
ScaleWidth = 3971.741
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.TextBox TXTDB
Appearance = 0 'Flat
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
IMEMode = 3 'DISABLE
Left = 1350
TabIndex = 8
Top = 1770
Width = 2325
End
Begin VB.TextBox TXTPass
Appearance = 0 'Flat
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
IMEMode = 3 'DISABLE
Left = 1350
TabIndex = 6
Top = 1245
Width = 2325
End
Begin VB.TextBox txtServer
Appearance = 0 'Flat
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1350
TabIndex = 1
Top = 150
Width = 2325
End
Begin VB.CommandButton cmdOK
Caption = "確 定"
Default = -1 'True
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 510
TabIndex = 4
Top = 2505
Width = 1095
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取 消"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 2250
TabIndex = 5
Top = 2505
Width = 1095
End
Begin VB.TextBox txtName
Appearance = 0 'Flat
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
IMEMode = 3 'DISABLE
Left = 1350
TabIndex = 3
Top = 720
Width = 2325
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "數據庫名： "
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 3
Left = 150
TabIndex = 9
Top = 1800
Width = 1425
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "登錄密碼： "
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 2
Left = 165
TabIndex = 7
Top = 1275
Width = 1425
End
Begin VB.Label lblLabels
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "服務器名："
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 0
Left = 150
TabIndex = 0
Top = 210
Width = 1290
End
Begin VB.Label lblLabels
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "登錄名："
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Index = 1
Left = 450
TabIndex = 2
Top = 750
Width = 975
End
End
Attribute VB_Name = "frmServerSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
End
End Sub
Private Sub cmdOK_Click()
CreateInI txtServer.Text, txtName.Text, TXTPass.Text, TXTDB.Text
FrmClient.Show
FrmClient.Visible = False
Unload Me
End Sub
Function ReadInI() As Boolean
'讀INI
Dim ServerName As String * 20
Dim LoginName As String * 20
Dim Pass As String * 20
Dim DbName As String * 20
Dim Result As Long
Result = GetPrivateProfileString("Server", "ServerName", "NO", ServerName, Len(ServerName), InIpath)
txtServer.Text = ServerName
Result = GetPrivateProfileString("Server", "LoginName", "NO", LoginName, Len(LoginName), InIpath)
txtName.Text = LoginName
Result = GetPrivateProfileString("Server", "Password", "NO", Pass, Len(Pass), InIpath)
TXTPass.Text = Pass
Result = GetPrivateProfileString("Server", "Database", "NO", DbName, Len(DbName), InIpath)
TXTDB.Text = DbName
End Function
Private Sub Form_Load()
InIpath = App.Path + "\data\Server.ini"
ReadInI
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -