【正文】 = (姓名) amp。 vbNullString .SubItems(2) = (班級) amp。 vbNullString .SubItems(3) = (部門) amp。 vbNullString .SubItems(4) = (職稱) amp。 vbNullString End With If Then Exit ForNextEnd Sub借書設置模塊代碼： Private Type MSet BookNum As Integer BookCost As SingleEnd TypeDim SetFlag As MSetPrivate Sub cmdOkCancel_Click(Index As Integer)Select Case Index Case 0 BookNum = Val(txtLentNum) FaCost = Val(txtCost) = Val() = Val() Put 1, 1, SetFlag Unload Me Case 1 Unload MeEnd SelectEnd SubPrivate Sub Form_Load()Open amp。 \Database\ For Random As 2 Len = Len(SetFlag)Get 1, 1, SetFlagtxtLentNum = txtCost = End SubPrivate Sub Form_Resize()MsgBox 請確認圖書歸還以后在修改這些設置, 0 + 48, 警告End Sub登錄學生信息代碼： Dim db As DatabaseDim rst As RecordsetPrivate Sub cmdOkCancel_Click(Index As Integer)Select Case Index Case 0 If = Then MsgBox 請輸入借書證號碼！, 0 + 48, 錯誤 Exit Sub Else BookId = LoginFlag = True Unload Me End If Case 1 LoginFlag = False Unload MeEnd SelectEnd SubPrivate Sub Form_Load() = Set db = Workspaces(0).OpenDatabase( amp。 \DataBase\, False)End Sub查找所需圖書代碼： Dim rst2 As Recordset 39。打開表BookFfDim rst As RecordsetDim db1 As DatabaseDim db2 As DatabaseDim qry1 As QueryDefDim qry2 As QueryDefDim RecNum As Integer 39。查找符合條件總記錄數(shù)Dim i As IntegerDim FindStr As String 39。查找SQL語句Private Sub cmdBeginFind_Click()If txtBookBian = And txtBookName = Then MsgBox 請?zhí)顚懴嚓P查找信息！, 0 + 48, 提示 Exit SubEnd If = 11If txtBookBian And txtBookName = Then =, txtBookBian If Then MsgBox 沒有找到匹配記錄！, 0 + 48, 查找失敗 = 0 Exit Sub End If If (是否借出) = True Then =, txtBookBian , , (圖書編號) amp。 vbNullString With (1) .SubItems(1) = (書名) amp。 vbNullString .SubItems(2) = (類別) amp。 vbNullString .SubItems(3) = (價格) amp。 Empty .SubItems(4) = (出版社) amp。 vbNullString .SubItems(5) = (是否借出) .SubItems(6) = (借書證號) amp。 vbNullString .SubItems(7) = (姓名) amp。 vbNullString .SubItems(8) = (借出日期) End With Else , , (圖書編號) amp。 vbNullString With (1) .SubItems(1) = (書名) amp。 vbNullString .SubItems(2) = (類別) amp。 vbNullString .SubItems(3) = (價格) amp。 Empty .SubItems(4) = (出版社) amp。 vbNullString .SubItems(5) = (是否借出) End With End IfElseIf txtBookBian = And txtBookName Then FindStr = select * from Book where 書名 like FindStr = FindStr amp。 39。 amp。 txtBookName amp。 39。 = FindStr Set rst = If = 0 Then MsgBox 沒有找到匹配記錄！, 0 + 48, 查找失敗 = 0 Exit Sub End If RecNum = For i = 1 To RecNum If (是否借出) = True Then =, (圖書編號) i, , (圖書編號) amp。 vbNullString With (i) .SubItems(1) = (書名) amp。 vbNullString .SubItems(2) = (類別) amp。 vbNullString .SubItems(3) = (價格) amp。 Empty .SubItems(4) = (出版社) amp。 vbNullString .SubItems(5) = (是否借出) .SubItems(6) = (借書證號) amp。 vbNullString .SubItems(7) = (姓名) amp。 vbNullString .SubItems(8) = (借出日期) End With Else i, , (圖書編號) amp。 vbNullString With (i) .SubItems(1) = (書名) amp。 vbNullString .SubItems(2) = (類別) amp。 vbNullString .SubItems(3) = (價格) amp。 Empty .SubItems(4) = (出版社) amp。 vbNullString .SubItems(5) = (是否借出) End With End If If Then Exit For NextElse MsgBox 請選擇一項進行查找, 0 + 48, 提示 txtBookBian = txtBookName = = 0 Exit SubEnd If = 0End SubPrivate Sub cmdKong_Click()txtBookBian = txtBookName = End SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()Set db1 = Workspaces(0).OpenDatabase( amp。 \DataBase\, False)Set rst1 = (Book, dbOpenTable)Set qry1 = () = 圖書編號Set db2 = Workspaces(0).OpenDatabase( amp。 \DataBase\, False)Set rst2 = (BookFf, dbOpenTable)Set qry2 = () = 圖書編號txtBookBian = txtBookName = = lvwReport = False , , 圖書編號 , , 書名 , , 類別 , , 價格 , , 出版社 , , 是否借出 , , 借書證號 , , 借書人姓名 , , 借書日期End SubPrivate Sub txtBookBian_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then = cmdBeginFind_ClickEnd IfEnd SubPrivate Sub txtBookName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then = cmdBeginFind_ClickEnd IfEnd Sub還書代碼： Dim rst2 As Recordset 39。打開表BookFlagDim rst3 As Recordset 39。打開表BookDim rst1 As Recordset 39。打開表personalDim db2 As DatabaseDim db3 As DatabaseDim db1 As DatabaseDim db As DatabaseDim rst As RecordsetPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdOkCancel_Click(Index As Integer)Select Case Index Case 1 =, If Then MsgBox 沒有借過這本書！是不是編號錯了？, 0 + 48, 提示 = = False cmdOkCancel(1).Visible = False Exit Sub End If If (是否借出) = False Then MsgBox 此書還沒有借出, 0 + 48, 提示 Exit Sub End If =, (借書證號) 39。將罰款金額寫入數(shù)據(jù)庫 (罰款) = Val() + (罰款) If 0 Then MsgBox 罰款金額已經(jīng)寫入數(shù)據(jù)庫！, 0 + 48, 提示 End If (是否借出) = False (借出日期) = Empty = = False cmdOkCancel(1).Visible = False