frmchange.frm

一个图书馆的VB做的mis系统

VERSION 5.00
Begin VB.Form frmchange 
   Caption         =   "系统用户修改"
   ClientHeight    =   2970
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4440
   LinkTopic       =   "Form1"
   Picture         =   "frmchange.frx":0000
   ScaleHeight     =   2970
   ScaleWidth      =   4440
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox Cmbtype 
      Height          =   300
      ItemData        =   "frmchange.frx":43B2
      Left            =   1200
      List            =   "frmchange.frx":43B4
      TabIndex        =   12
      Top             =   1920
      Width           =   1095
   End
   Begin VB.TextBox txtname 
      Height          =   270
      Left            =   1200
      TabIndex        =   6
      Top             =   1560
      Width           =   1455
   End
   Begin VB.TextBox txtpwd 
      Height          =   270
      Left            =   1200
      TabIndex        =   5
      Top             =   2280
      Width           =   1455
   End
   Begin VB.TextBox txtrepwd 
      Height          =   270
      Left            =   1200
      TabIndex        =   4
      Top             =   2640
      Width           =   1455
   End
   Begin VB.CommandButton cmdok 
      BackColor       =   &H80000009&
      Caption         =   "提交"
      Height          =   375
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   1800
      Width           =   975
   End
   Begin VB.CommandButton cmdout 
      BackColor       =   &H80000009&
      Caption         =   "退出"
      Height          =   375
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   2400
      Width           =   975
   End
   Begin VB.CommandButton cmdfind 
      BackColor       =   &H80000009&
      Caption         =   "查询"
      Height          =   375
      Left            =   3000
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   1200
      Width           =   975
   End
   Begin VB.TextBox txtid 
      Height          =   270
      Left            =   1200
      TabIndex        =   0
      Top             =   1200
      Width           =   1455
   End
   Begin VB.Label lblname 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "用户名"
      Height          =   375
      Left            =   480
      TabIndex        =   11
      Top             =   1560
      Width           =   855
   End
   Begin VB.Label lblpwd 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "用户密码"
      Height          =   375
      Left            =   360
      TabIndex        =   10
      Top             =   2280
      Width           =   855
   End
   Begin VB.Label lblrepwd 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "重复密码"
      Height          =   375
      Left            =   360
      TabIndex        =   9
      Top             =   2640
      Width           =   855
   End
   Begin VB.Label lblid 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "用户ID"
      Height          =   375
      Left            =   480
      TabIndex        =   8
      Top             =   1200
      Width           =   855
   End
   Begin VB.Label lbltype 
      BackColor       =   &H80000009&
      BackStyle       =   0  'Transparent
      Caption         =   "用户类别"
      Height          =   375
      Left            =   360
      TabIndex        =   7
      Top             =   1920
      Width           =   855
   End
End
Attribute VB_Name = "frmchange"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'查找用户ID
Private Sub cmdfind_Click()

If frmchange.txtid.Text = "" Then
  MsgBox "请输入用户ID", vbInformation + vbOKOnly, "用户注意"
Else

 admin_rs.MoveFirst
 On Error GoTo errfind
 admin_rs.Find ("admin_id=" & Trim(frmchange.txtid.Text))

 frmchange.txtname.Text = admin_rs.Fields("a_name").Value
 frmchange.Cmbtype.Text = admin_rs.Fields("a_type").Value
 frmchange.txtpwd.Text = admin_rs.Fields("a_pwd").Value
 frmchange.txtrepwd.Text = txtpwd.Text
End If

Exit Sub
errfind:
MsgBox "用户ID不能找到,请重新输入!", vbInformation + vbOKOnly, "用户注意"
End Sub
'修改提交
Private Sub cmdok_Click()

If txtname = "" Or Cmbtype = "" Or txtpwd = "" Or txtrepwd = "" Then
    MsgBox "数据不完整", vbInformation + vbOKOnly, "用户注意"

ElseIf txtpwd <> txtrepwd Then
    MsgBox "密码不一致", vbInformation + vbOKOnly, "用户注意"
    txtpwd.SetFocus
Else

'On Error GoTo errfind
admin_rs.Find ("admin_id=" & txtid.Text)

   If MsgBox("你确定要修改用户ID" & txtid.Text & "吗", vbYesNo) = vbYes Then

admin_rs.Fields("a_name").Value = txtname.Text
admin_rs.Fields("a_type").Value = Cmbtype.Text
admin_rs.Fields("a_pwd").Value = txtpwd.Text

MsgBox "用户ID" & txtid.Text & "修改成功"

   End If
'Exit Sub
'errfind:
'MsgBox "id can't find"

'清空
txtid = ""
txtname = ""
Cmbtype = ""
txtpwd = ""
txtrepwd = ""
txtid.SetFocus

End If
End Sub

Private Sub cmdout_Click()
Unload Me
main_form.Show
End Sub


Private Sub Form_Load()
Cmbtype.AddItem "普通用户"
Cmbtype.AddItem "超级用户"
txtpwd.PasswordChar = "*"
txtrepwd.PasswordChar = "*"
'txtid.SetFocus ?怎么无效
End Sub