【正文】 = (姓名) amp。 vbNullString .SubItems(2) = (班級(jí)) amp。 vbNullString .SubItems(3) = (部門) amp。 vbNullString .SubItems(4) = (職稱) amp。 vbNullString End With If Then Exit ForNextEnd Sub借書(shū)設(shè)置模塊代碼： 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 請(qǐng)確認(rèn)圖書(shū)歸還以后在修改這些設(shè)置, 0 + 48, 警告End Sub登錄學(xué)生信息代碼： Dim db As DatabaseDim rst As RecordsetPrivate Sub cmdOkCancel_Click(Index As Integer)Select Case Index Case 0 If = Then MsgBox 請(qǐng)輸入借書(shū)證號(hào)碼！, 0 + 48, 錯(cuò)誤 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查找所需圖書(shū)代碼： Dim rst2 As Recordset 39。打開(kāi)表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語(yǔ)句Private Sub cmdBeginFind_Click()If txtBookBian = And txtBookName = Then MsgBox 請(qǐng)?zhí)顚懴嚓P(guān)查找信息！, 0 + 48, 提示 Exit SubEnd If = 11If txtBookBian And txtBookName = Then =, txtBookBian If Then MsgBox 沒(méi)有找到匹配記錄！, 0 + 48, 查找失敗 = 0 Exit Sub End If If (是否借出) = True Then =, txtBookBian , , (圖書(shū)編號(hào)) amp。 vbNullString With (1) .SubItems(1) = (書(shū)名) amp。 vbNullString .SubItems(2) = (類別) amp。 vbNullString .SubItems(3) = (價(jià)格) amp。 Empty .SubItems(4) = (出版社) amp。 vbNullString .SubItems(5) = (是否借出) .SubItems(6) = (借書(shū)證號(hào)) amp。 vbNullString .SubItems(7) = (姓名) amp。 vbNullString .SubItems(8) = (借出日期) End With Else , , (圖書(shū)編號(hào)) amp。 vbNullString With (1) .SubItems(1) = (書(shū)名) amp。 vbNullString .SubItems(2) = (類別) amp。 vbNullString .SubItems(3) = (價(jià)格) amp。 Empty .SubItems(4) = (出版社) amp。 vbNullString .SubItems(5) = (是否借出) End With End IfElseIf txtBookBian = And txtBookName Then FindStr = select * from Book where 書(shū)名 like FindStr = FindStr amp。 39。 amp。 txtBookName amp。 39。 = FindStr Set rst = If = 0 Then MsgBox 沒(méi)有找到匹配記錄！, 0 + 48, 查找失敗 = 0 Exit Sub End If RecNum = For i = 1 To RecNum If (是否借出) = True Then =, (圖書(shū)編號(hào)) i, , (圖書(shū)編號(hào)) amp。 vbNullString With (i) .SubItems(1) = (書(shū)名) amp。 vbNullString .SubItems(2) = (類別) amp。 vbNullString .SubItems(3) = (價(jià)格) amp。 Empty .SubItems(4) = (出版社) amp。 vbNullString .SubItems(5) = (是否借出) .SubItems(6) = (借書(shū)證號(hào)) amp。 vbNullString .SubItems(7) = (姓名) amp。 vbNullString .SubItems(8) = (借出日期) End With Else i, , (圖書(shū)編號(hào)) amp。 vbNullString With (i) .SubItems(1) = (書(shū)名) amp。 vbNullString .SubItems(2) = (類別) amp。 vbNullString .SubItems(3) = (價(jià)格) amp。 Empty .SubItems(4) = (出版社) amp。 vbNullString .SubItems(5) = (是否借出) End With End If If Then Exit For NextElse MsgBox 請(qǐng)選擇一項(xiàng)進(jìn)行查找, 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 = () = 圖書(shū)編號(hào)Set db2 = Workspaces(0).OpenDatabase( amp。 \DataBase\, False)Set rst2 = (BookFf, dbOpenTable)Set qry2 = () = 圖書(shū)編號(hào)txtBookBian = txtBookName = = lvwReport = False , , 圖書(shū)編號(hào) , , 書(shū)名 , , 類別 , , 價(jià)格 , , 出版社 , , 是否借出 , , 借書(shū)證號(hào) , , 借書(shū)人姓名 , , 借書(shū)日期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還書(shū)代碼： Dim rst2 As Recordset 39。打開(kāi)表BookFlagDim rst3 As Recordset 39。打開(kāi)表BookDim rst1 As Recordset 39。打開(kāi)表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 沒(méi)有借過(guò)這本書(shū)！是不是編號(hào)錯(cuò)了？, 0 + 48, 提示 = = False cmdOkCancel(1).Visible = False Exit Sub End If If (是否借出) = False Then MsgBox 此書(shū)還沒(méi)有借出, 0 + 48, 提示 Exit Sub End If =, (借書(shū)證號(hào)) 39。將罰款金額寫入數(shù)據(jù)庫(kù) (罰款) = Val() + (罰款) If 0 Then MsgBox 罰款金額已經(jīng)寫入數(shù)據(jù)庫(kù)！, 0 + 48, 提示 End If (是否借出) = False (借出日期) = Empty = = False cmdOkCancel(1).Visible = False