brrt.frm

如果相当好的话 我再提个问题告诉你 你去随便回答下

VERSION 5.00
Begin VB.Form Form7 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "借还书"
   ClientHeight    =   1050
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3210
   Icon            =   "BrRt.frx":0000
   LinkTopic       =   "Form7"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1050
   ScaleWidth      =   3210
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command3 
      Caption         =   "退  出"
      Height          =   375
      Left            =   2280
      TabIndex        =   6
      Top             =   600
      Width           =   855
   End
   Begin VB.Data Data2 
      Caption         =   "Data2"
      Connect         =   "Access"
      DatabaseName    =   "D:\My Documents\ZQH\VB\mis\mis.mdb"
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   120
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "STUDBR"
      Top             =   960
      Visible         =   0   'False
      Width           =   1140
   End
   Begin VB.CommandButton Command1 
      Caption         =   "借  书"
      Height          =   375
      Left            =   2280
      TabIndex        =   4
      Top             =   120
      Width           =   855
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   720
      TabIndex        =   3
      Top             =   600
      Width           =   1455
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   720
      TabIndex        =   2
      Top             =   120
      Width           =   1455
   End
   Begin VB.CommandButton Command2 
      Caption         =   "还  书"
      Height          =   375
      Left            =   2280
      TabIndex        =   5
      Top             =   120
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "学 号"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "书 号"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   975
   End
End
Attribute VB_Name = "Form7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private DbStr1, DbStr2, DbStr3 As String '分别指示STUDENT表、BOOK表和STUDBR表
Private sign As Boolean     '作为标记

Private Sub Command1_Click()    '借书操作
Dim count As Integer    '用于计算借阅量
Dim i As Integer
Dim text As String  '传送书名
sign = False
'文本框不能为空
If Text1.text = "" Then
   MsgBox "请输入书号！", 48, "提示"
   Exit Sub
End If
If Text2.text = "" Then
   MsgBox "请输入学号！", 48, "提示"
   Exit Sub
End If

'搜索图书库中是否有该书，是否可借及确定是否输入书号有错
Data2.RecordSource = DbStr2
'更新数据库
Data2.Refresh
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
For i = 1 To Data2.Recordset.RecordCount
    If Data2.Recordset.Fields("书号") = Text1.text Then
       sign = True  '表示图书库中有该书
       If Data2.Recordset.Fields("标志") = "不可借" Then
          MsgBox "此书已借出，不可借！检查是否书号错误！", 48, "提示"
          Exit Sub
       Else
          text = Data2.Recordset.Fields("书名")
       End If
    End If
    Data2.Recordset.MoveNext
Next i
If sign = False Then
    MsgBox "图书库中没有该书，检查是否书号错误！", 48, "提示"
    Exit Sub
End If

'学生库中搜索学号
sign = False
Data2.RecordSource = DbStr1
'更新数据库
Data2.Refresh
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
For i = 1 To Data2.Recordset.RecordCount
    If Data2.Recordset.Fields("学号") = Text2.text Then
       sign = True     '表示STUDENT库中有该学生
       If Data2.Recordset.Fields("借阅量") = 4 Then '书已借满，不可借
          MsgBox "该生已借满四本书，不可再借！", 48, "提示"
          Exit Sub
       End If
    End If
    Data2.Recordset.MoveNext
Next i
If sign = False Then       '表示STUDENT库中没有该学生
   MsgBox "没有该学生！检查是否学号错误！", 48, "提示"
   Exit Sub
End If

'修改STUDENT数据表
Data2.RecordSource = DbStr1
'更新数据库
Data2.Refresh
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
For i = 1 To Data2.Recordset.RecordCount
    If Data2.Recordset.Fields("学号") = Text2.text Then
       Data2.Recordset.Edit
       count = Data2.Recordset.Fields("借阅量")
       Data2.Recordset.Fields("借阅量") = count + 1
       Data2.Recordset.Update       '更新记录
       Data2.Refresh  '更新数据库
       GoTo BOOKDB
    End If
    Data2.Recordset.MoveNext
Next i

BOOKDB:
'修改BOOK数据表
Data2.RecordSource = DbStr2
'更新数据库
Data2.Refresh
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
For i = 1 To Data2.Recordset.RecordCount
    If Data2.Recordset.Fields("书号") = Text1.text Then
       Data2.Recordset.Edit
       Data2.Recordset.Fields("标志") = "不可借"
       Data2.Recordset.Update       '更新记录
       Data2.Refresh  '更新数据库
       GoTo STUDBRDB
    End If
    Data2.Recordset.MoveNext
Next i

STUDBRDB:
'修改STUDBR数据表
Data2.RecordSource = DbStr3
'更新数据库
Data2.Refresh
Data2.Recordset.AddNew
Data2.Recordset.Fields("书号") = Text1.text
Data2.Recordset.Fields("学号") = Text2.text
Data2.Recordset.Fields("书名") = text
Data2.Recordset.Fields("借阅日期") = Date
Data2.Recordset.Fields("应还日期") = Date + CDate("30")

Data2.Recordset.Update       '更新记录
Data2.Refresh  '更新数据库

MsgBox "借书成功！", 48, "提示"
Unload Me
End Sub

Private Sub Command2_Click()       '还书操作
Dim text As String   '传送学号
Dim sign As Boolean
If Text1.text = "" Then     '必须填写书号
   MsgBox "请输入书号！", 48, "提示"
   Exit Sub
End If

'搜索图书库中是否有该书，该书是否借出及确定是否输入书号有错
Data2.RecordSource = DbStr2
'更新数据库
Data2.Refresh
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
For i = 1 To Data2.Recordset.RecordCount
    If Data2.Recordset.Fields("书号") = Text1.text Then
       sign = True  '表示BOOK中有该书
       If Data2.Recordset.Fields("标志") = "可借" Then
          MsgBox "此书未借出！检查是否书号错误！", 48, "提示"
          Exit Sub
       End If
    End If
    Data2.Recordset.MoveNext
Next i
If sign = False Then     '表示BOOK中没有该书
    MsgBox "图书库中没有该书，检查是否书号错误！", 48, "提示"
    Exit Sub
End If

'修改STUDBR数据表
Data2.RecordSource = DbStr3
'更新数据库
Data2.Refresh
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
For i = 1 To Data2.Recordset.RecordCount
    If Data2.Recordset.Fields("书号") = Text1.text Then
       sign = True  '表示STUDBR库中有该书
       If Date - CDate(Data2.Recordset.Fields("借阅日期")) > 30 Then
          MsgBox "超出期限，罚款处理！", 48, "提示"
       End If
       text = Data2.Recordset.Fields("学号")    '带回学号，以便修改STUDENT库
       Data2.Recordset.Delete   '从STUDBR库中删除该记录
       Data2.Refresh
       GoTo DBSTUDENT
    End If
    Data2.Recordset.MoveNext
Next i
If sign = False Then     '表示STUDBR库中没有该书
    MsgBox "借还书库中没有该书，检查是否书号错误！", 48, "提示"
    Exit Sub
End If

DBSTUDENT:
'修改STUDENT数据表
Data2.RecordSource = DbStr1
'更新数据库
Data2.Refresh
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
For i = 1 To Data2.Recordset.RecordCount
    If Data2.Recordset.Fields("学号") = text Then
       Data2.Recordset.Edit
       Data2.Recordset.Fields("借阅量") = Data2.Recordset.Fields("借阅量") - 1
       Data2.Recordset.Update       '更新记录
       Data2.Refresh  '更新数据库
       GoTo DBBOOK
    End If
    Data2.Recordset.MoveNext
Next i

DBBOOK:
'修改BOOK数据表
Data2.RecordSource = DbStr2
'更新数据库
Data2.Refresh
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
For i = 1 To Data2.Recordset.RecordCount
    If Data2.Recordset.Fields("书号") = Text1.text Then
       Data2.Recordset.Edit
       Data2.Recordset.Fields("标志") = "可借"
       Data2.Recordset.Update       '更新记录
       Data2.Refresh  '更新数据库
    End If
    Data2.Recordset.MoveNext
Next i

MsgBox "书已还", 48, "提示"
Unload Me
End Sub

Private Sub Command3_Click()       '退出

Unload Me
End Sub

Private Sub Form_Load()       '装载窗体
DbStr1 = "STUDENT"    '学生库
DbStr2 = "BOOK"      '图书库
DbStr3 = "STUDBR"      '学生借书档案
Data2.DatabaseName = App.Path + "\mis.mdb"
End Sub