frmdel.frm

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

VERSION 5.00
Begin VB.Form frmdel 
   Caption         =   "系统用户删除"
   ClientHeight    =   2970
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4485
   ForeColor       =   &H80000009&
   LinkTopic       =   "Form2"
   Picture         =   "frmdel.frx":0000
   ScaleHeight     =   2970
   ScaleWidth      =   4485
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox Cmbtype 
      Height          =   300
      Left            =   1320
      TabIndex        =   12
      Top             =   1800
      Width           =   1335
   End
   Begin VB.TextBox txtname 
      Height          =   270
      Left            =   1320
      TabIndex        =   10
      Top             =   1425
      Width           =   1335
   End
   Begin VB.CommandButton cmdfind 
      BackColor       =   &H80000009&
      Caption         =   "查询"
      Height          =   375
      Left            =   3120
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   1200
      Width           =   975
   End
   Begin VB.CommandButton cmdout 
      BackColor       =   &H80000009&
      Caption         =   "退出"
      Height          =   375
      Left            =   3120
      MaskColor       =   &H00FFFFFF&
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   2280
      Width           =   975
   End
   Begin VB.CommandButton cmdok 
      BackColor       =   &H80000009&
      Caption         =   "提交"
      Height          =   375
      Left            =   3120
      MaskColor       =   &H00FFFFFF&
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   1740
      Width           =   975
   End
   Begin VB.TextBox txtrepwd 
      Height          =   270
      Left            =   1320
      TabIndex        =   5
      Top             =   2520
      Width           =   1335
   End
   Begin VB.TextBox txtpwd 
      Height          =   270
      Left            =   1320
      TabIndex        =   4
      Top             =   2160
      Width           =   1335
   End
   Begin VB.TextBox txtid 
      Height          =   270
      Left            =   1320
      TabIndex        =   3
      Top             =   1080
      Width           =   1335
   End
   Begin VB.Label lbltype 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "用户类别"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   480
      TabIndex        =   11
      Top             =   1800
      Width           =   855
   End
   Begin VB.Label lblid 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "用户ID"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   600
      TabIndex        =   9
      Top             =   1080
      Width           =   855
   End
   Begin VB.Label lblrepwd 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "重复密码"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   480
      TabIndex        =   2
      Top             =   2520
      Width           =   855
   End
   Begin VB.Label lblpwd 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "用户密码"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   480
      TabIndex        =   1
      Top             =   2160
      Width           =   855
   End
   Begin VB.Label lblname 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "用户名"
      ForeColor       =   &H80000008&
      Height          =   375
      Left            =   600
      TabIndex        =   0
      Top             =   1440
      Width           =   855
   End
End
Attribute VB_Name = "frmdel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'查找用户ID
Private Sub cmdfind_Click()


If txtid.Text = "" Then

  MsgBox "请输入用户ID", vbInformation + vbOKOnly, "用户注意"
Else

 admin_rs.MoveFirst

On Error GoTo errfind

admin_rs.Find ("admin_id=" & Trim(txtid.Text))



txtname.Text = admin_rs.Fields("a_name").Value

Cmbtype.Text = admin_rs.Fields("a_type").Value

txtpwd.Text = admin_rs.Fields("a_pwd").Value

txtrepwd.Text = txtpwd.Text


End If

Exit Sub


errfind:


MsgBox "用户ID不能找到,请重新输入!", vbInformation + vbOKOnly, "用户注意"


End Sub

'修改提交

Private Sub cmdok_Click()


Call admindel
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 = "*"
End Sub