Private Sub Form_Load()
Dim i As Integer
Adodc2.RecordSource = "select * from 书籍信息 where 书籍编号='" & book_num & "'"
Adodc2.Refresh
Label8.Caption = Adodc2.Recordset.Fields(0)
Label9.Caption = Adodc2.Recordset.Fields(1)
Label10.Caption = Adodc2.Recordset.Fields(2)
Label11.Caption = Adodc2.Recordset.Fields(3)
Label12.Caption = Adodc2.Recordset.Fields(4)
Label13.Caption = Adodc2.Recordset.Fields(5)
Label14.Caption = Adodc2.Recordset.Fields(6)
Combo1.Clear
Combo2.Clear
Adodc1.RecordSource = "select * from 读者信息"
Adodc1.Refresh
Adodc1.Recordset.MoveFirst
For i = 0 To Adodc1.Recordset.RecordCount - 1
Combo1.AddItem Adodc1.Recordset.Fields(1).Value
Combo2.AddItem Adodc1.Recordset.Fields(0).Value
Adodc1.Recordset.MoveNext
Next
Combo1.ListIndex = 0
Combo2.ListIndex = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Me
End Sub
窗体名:form9
代码：
Private Sub Command1_Click()
Dim sql As String
If Option1.Value = True Then
sql = "是否被借出='是'"
End If
If Option2.Value = True Then
sql = "是否被借出='否'"
End If
Adodc1.RecordSource = "select * from sjxx where " & sql
Adodc1.Refresh
DataGrid1.ReBind
DataGrid1.AllowAddNew = False
DataGrid1.AllowDelete = False
DataGrid1.AllowUpdate = False
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
模块名：Module1
代码：
Option Explicit
Public conn As New ADODB.Connection
Public select_menu As String
Public userID As String
Public userpow As String
Public book_num As String
