frmdelreader.frm

图书管理系统New08-05-28.rar（包含文档）

VERSION 5.00
Begin VB.Form frmDelReader 
   BackColor       =   &H80000013&
   Caption         =   "Form1"
   ClientHeight    =   3015
   ClientLeft      =   5565
   ClientTop       =   4710
   ClientWidth     =   4275
   LinkTopic       =   "Form1"
   ScaleHeight     =   3015
   ScaleWidth      =   4275
   Begin VB.CommandButton cmdCancel 
      Appearance      =   0  'Flat
      Caption         =   "取  消"
      Height          =   495
      Left            =   2280
      TabIndex        =   4
      Top             =   1920
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Appearance      =   0  'Flat
      Caption         =   "删  除"
      Height          =   495
      Left            =   480
      TabIndex        =   3
      Top             =   1920
      Width           =   1215
   End
   Begin VB.TextBox dzbh 
      Height          =   375
      Left            =   1800
      TabIndex        =   2
      Top             =   1080
      Width           =   1935
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "读 者 编 号 :"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   360
      TabIndex        =   1
      Top             =   1200
      Width           =   1365
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "删除借阅者"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   21.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   1080
      TabIndex        =   0
      Top             =   120
      Width           =   2250
   End
End
Attribute VB_Name = "frmDelReader"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'       作者：叶和平
'       名称：frmDelReader
'       功能：删除借阅者
'****************************************************************************

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
Dim rs_del As New ADODB.Recordset
Dim sql_del As String

sql_del = "select * from readers where dzbh='" & dzbh.Text & "'"
Set rs_del = ADOSQL(sql_del)

If dzbh.Text = "" Then
MsgBox "请输入要删除的读者编号！"
dzbh.SetFocus
Exit Sub
End If

If rs_del.EOF Then
  MsgBox "要删除的读者编号不存在！"
  Exit Sub
Else
  sql_del = "delete from readers where dzbh='" & dzbh.Text & "'"
  Set rs_del = ADOSQL(sql_del)
  MsgBox "删除成功！"
  Unload Me
  Exit Sub
End If
rs_del.Close
Unload Me

End Sub