www.pudn.com > vb625557712344.rar > FrmUserEdit.frm, change:2005-06-03,size:5793b

VERSION 5.00 
Begin VB.Form FrmUserEdit  
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "编辑用户信息" 
   ClientHeight    =   2775 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   4860 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   Picture         =   "FrmUserEdit.frx":0000 
   ScaleHeight     =   2775 
   ScaleWidth      =   4860 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.CommandButton Cmd_Ok  
      Caption         =   "确 定" 
      Height          =   400 
      Left            =   720 
      MouseIcon       =   "FrmUserEdit.frx":E2C4 
      MousePointer    =   99  'Custom 
      Style           =   1  'Graphical 
      TabIndex        =   3 
      Top             =   2160 
      Width           =   945 
   End 
   Begin VB.CommandButton Cmd_Cancel  
      Cancel          =   -1  'True 
      Caption         =   "取 消" 
      Height          =   400 
      Left            =   2520 
      MouseIcon       =   "FrmUserEdit.frx":E5CE 
      MousePointer    =   99  'Custom 
      Style           =   1  'Graphical 
      TabIndex        =   4 
      Top             =   2160 
      Width           =   945 
   End 
   Begin VB.Frame Frame1  
      Height          =   1335 
      Left            =   480 
      TabIndex        =   5 
      Top             =   360 
      Width           =   3495 
      Begin VB.TextBox txtPass2  
         Height          =   270 
         IMEMode         =   3  'DISABLE 
         Left            =   1200 
         MaxLength       =   20 
         PasswordChar    =   "*" 
         TabIndex        =   2 
         Top             =   915 
         Width           =   2175 
      End 
      Begin VB.TextBox txtPass  
         Height          =   270 
         IMEMode         =   3  'DISABLE 
         Left            =   1200 
         MaxLength       =   20 
         PasswordChar    =   "*" 
         TabIndex        =   1 
         Top             =   555 
         Width           =   2175 
      End 
      Begin VB.TextBox txtUserName  
         Height          =   270 
         Left            =   1200 
         MaxLength       =   20 
         TabIndex        =   0 
         Top             =   240 
         Width           =   2175 
      End 
      Begin VB.Label Label4  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "用户名" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   0 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00000000& 
         Height          =   180 
         Left            =   240 
         TabIndex        =   8 
         Top             =   240 
         Width           =   540 
      End 
      Begin VB.Label Label6  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "确认密码" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   0 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00000000& 
         Height          =   180 
         Left            =   240 
         TabIndex        =   7 
         Top             =   960 
         Width           =   720 
      End 
      Begin VB.Label Label1  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "密  码" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   9 
            Charset         =   0 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00000000& 
         Height          =   180 
         Left            =   240 
         TabIndex        =   6 
         Top             =   600 
         Width           =   540 
      End 
   End 
End 
Attribute VB_Name = "FrmUserEdit" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Public Modify As Boolean 
Public OriUser As String 
 
Private Sub Cmd_Cancel_Click() 
  Unload Me 
End Sub 
 
Private Sub Cmd_OK_Click() 
  If Trim(txtUserName) = "" Then 
    MsgBox "请输入用户名" 
    txtUserName.SetFocus 
    Exit Sub 
  End If 
  If Len(txtPass)  6 Then 
    MsgBox "密码长度不能小于6" 
    txtPass.SetFocus 
    txtPass.SelStart = 0 
    txtPass.SelLength = Len(txtPass2) 
    Exit Sub 
  End If 
  If txtPass <> txtPass2 Then 
    MsgBox "密码和确认密码不相同，请重新确认" 
    txtPass2.SetFocus 
    txtPass2.SelStart = 0 
    txtPass2.SelLength = Len(txtPass2) 
    Exit Sub 
  End If 
   
  With MyUser 
  If Modify = False Or OriUser <> Trim(txtUserName) Then 
    If .In_DB(MakeStr(txtUserName)) = True Then 
      MsgBox "用户名已经存在，请重新输入" 
      txtUserName.SetFocus 
      txtUserName.SelStart = 0 
      txtUserName.SelLength = Len(txtUserName) 
      Exit Sub 
    End If 
  End If 
  .UserName = MakeStr(txtUserName) 
  .UserPwd = MakeStr(txtPass) 
   
   
  If Modify = False Then 
    .Insert 
    MsgBox "添加完成" 
  Else 
    .Update (OriUser) 
    MsgBox "修改完成" 
  End If 
  End With 
  Unload Me 
End Sub