frmserverset.frm

自己用vb开发的局域网考试系统

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