www.pudn.com > source.rar > frmSet.frm

VERSION 5.00 
Begin VB.Form frmSet  
   Caption         =   "Unix主机信息设置" 
   ClientHeight    =   2295 
   ClientLeft      =   4965 
   ClientTop       =   2535 
   ClientWidth     =   2880 
   ControlBox      =   0   'False 
   LinkTopic       =   "Form2" 
   ScaleHeight     =   2295 
   ScaleWidth      =   2880 
   Begin VB.Frame Frame1  
      Height          =   2175 
      Left            =   120 
      TabIndex        =   0 
      Top             =   0 
      Width           =   2655 
      Begin VB.CommandButton cmdCancel  
         Caption         =   "取消" 
         Height          =   375 
         Left            =   1560 
         TabIndex        =   8 
         Top             =   1680 
         Width           =   855 
      End 
      Begin VB.CommandButton cmdYes  
         Caption         =   "确定" 
         Height          =   375 
         Left            =   600 
         TabIndex        =   7 
         Top             =   1680 
         Width           =   855 
      End 
      Begin VB.TextBox txtPassword  
         Alignment       =   2  'Center 
         Height          =   270 
         IMEMode         =   3  'DISABLE 
         Left            =   960 
         PasswordChar    =   "*" 
         TabIndex        =   6 
         Text            =   "Text3" 
         Top             =   1080 
         Width           =   1455 
      End 
      Begin VB.TextBox txtUserName  
         Alignment       =   2  'Center 
         Height          =   270 
         Left            =   960 
         TabIndex        =   5 
         Text            =   "Text2" 
         Top             =   720 
         Width           =   1455 
      End 
      Begin VB.TextBox txtIP  
         Alignment       =   2  'Center 
         Height          =   270 
         Left            =   960 
         TabIndex        =   4 
         Text            =   "21.30.2.8" 
         Top             =   360 
         Width           =   1455 
      End 
      Begin VB.Label Label3  
         Caption         =   "登录密码" 
         Height          =   255 
         Left            =   240 
         TabIndex        =   3 
         Top             =   1080 
         Width           =   855 
      End 
      Begin VB.Label Label2  
         Caption         =   "登录用户" 
         Height          =   255 
         Left            =   240 
         TabIndex        =   2 
         Top             =   720 
         Width           =   735 
      End 
      Begin VB.Label Label1  
         Caption         =   "IP地址" 
         Height          =   255 
         Left            =   240 
         TabIndex        =   1 
         Top             =   360 
         Width           =   615 
      End 
   End 
End 
Attribute VB_Name = "frmSet" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
'======|  取消信息设置 |====== 
Private Sub cmdCancel_Click() 
Unload Me 
End Sub 
 
'======| 设置信息 |====== 
Private Sub cmdYes_Click() 
strIP = txtIP.Text 
strUserName = txtUserName.Text 
strPassword = txtPassword.Text 
Call SetUnixInfo 
Unload Me 
End Sub 
'========| 载入窗体 |======== 
Private Sub Form_Load() 
If Not GetUnixInfo Then 
    Call InitUnixInfo 
    txtIP.Text = "" 
    txtUserName.Text = "" 
    txtPassword.Text = "" 
Else 
    txtIP.Text = strIP 
    txtUserName.Text = strUserName 
    txtPassword.Text = strPassword 
End If 
End Sub 
 
 
Private Sub txtIP_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
    If Trim(txtIP.Text) = "" Then 
        MsgBox "IP地址不允许为空！", 16 
        txtIP.SetFocus 
    Else 
        txtUserName.SetFocus 
    End If 
ElseIf (KeyAscii < 48 Or KeyAscii > 57) _ 
       And KeyAscii <> Asc(".") _ 
       And KeyAscii <> 8 Then 
            MsgBox "非法的字符：" + Chr(KeyAscii) 
            KeyAscii = 0 
End If 
End Sub 
Private Sub txtUserName_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then 
    If Trim(txtUserName.Text) = "" Then 
        MsgBox "登录用户名不允许为空！", 16 
        txtUserName.SetFocus 
    Else 
        txtPassword.SetFocus 
    End If 
End If 
End Sub 
Private Sub txtPassword_KeyPress(KeyAscii As Integer) 
If KeyAscii = 13 Then cmdYes.SetFocus 
End Sub