VB图书管理系统毕业论文 第15页

VB图书管理系统毕业论文 第15页
Private Sub Form_Unload(Cancel As Integer)
Set DataGrid1.DataSource = Nothing
rs_reader.Close
End Sub
11、文件名 frmfindreader（frmfindreader.frm）
功能说明：查询读者信息，可以选择性的输入读者姓名、读者编号、读者种类来查询读者的详细信息。
源代码：
Option Explicit
Private Sub Command1_Click()
Dim rs_findreader As New ADODB.Recordset
Dim sql As String
If Check1.Value = vbChecked Then
   sql = "读者编号='" & Trim(Text1.Text & " ") & "'"
End If
If Check2.Value = vbChecked Then
   If Trim(sql) = "" Then
      sql = "读者姓名='" & Trim(Text2.Text & " ") & "'"
   Else
      sql = sql & "and 读者姓名='" & Trim(Text2.Text & " ") & "'"
   End If
End If
If Check3.Value = vbChecked Then
   If Trim(sql) = "" Then
      sql = "读者类别='" & Trim(Combo1.Text & " ") & "'"
   Else
      sql = sql & "and  读者类别='" & Trim(Combo1.Text & " ") & "'"
   End If
End If
sql = "select * from 读者信息 where " & sql
rs_findreader.CursorLocation = adUseClient
rs_findreader.Open sql, conn, adOpenKeyset, adLockPessimistic
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
Set DataGrid1.DataSource = rs_findreader
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim rs_find As New ADODB.Recordset
Dim sql As String
sql = "select * from 读者类别"
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not rs_find.EOF Then
   Do While Not rs_find.EOF
      Combo1.AddItem rs_find.Fields(0)
      rs_find.MoveNext
   Loop
   Combo1.ListIndex = 0
End If
rs_find.Close
End Sub
12、文件名 frmfindborrowinfo（frmfindborrowinfo.frm）
功能说明：查询借书信息，可以查询到已借出的书、未借出的图书。
源代码：
Option Explicit
Private Sub Command1_Click()
Dim sql As String
Dim rs_find As New ADODB.Recordset
If Option1.Value = True Then
   sql = "select * from 书籍信息 where 是否被借出='是'"
End If
If Option2.Value = True Then
   sql = "select * from 书籍信息 where 是否被借出='否'"
End If
If Option3.Value = True Then
   sql = "select * from 借阅信息 where 读者姓名='" & Text1.Text & "'"
End If
   rs_find.CursorLocation = adUseClient
   rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic
   DataGrid1.AllowAddNew = False
   DataGrid1.AllowDelete = False
   DataGrid1.AllowUpdate = False
   Set DataGrid1.DataSource = rs_find
End Sub
13、文件名  frmbackbookinfo（frmbackbookinfo.frm）
功能说明：添加还书信息，可以通过读者编号、读者姓名、图书编号、图书名称等查询到已借出的书。
源代码：
Option Explicit
Dim findform As Boolean
Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End Sub

 << 上一页  [11] [12] [13] [14] [15] [16] 下一页

VB图书管理系统毕业论文 第15页下载如图片无法显示或论文不完整，请联系qq752018766