www.pudn.com > textmanager.rar > frmServerSet.frm, change:2005-04-12,size:7792b


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