【正文】 For i = 1 To Rec i, , (類別) (i).SubItems(1) = (借出天數(shù)) If Then Exit ForNextEnd SubPrivate Sub cmdFlag(Bool As Boolean) = Bool = Bool = Bool = BoolEnd Sub添加新書代碼： Dim db As DatabaseDim rst As RecordsetDim db1 As DatabaseDim rst1 As RecordsetPrivate Sub cmdOkCancel_Click(Index As Integer)Dim con As New Set con = New 39。 vbNullString = False = True Disp cmdFlag (True) ElseIf StrFlag = 編輯 Then If = Or = Then MsgBox 請(qǐng)?zhí)顚懲暾? 0 + 48, 提示 Exit Sub End If (類別) = amp。 類別已經(jīng)存在，請(qǐng)?zhí)顚懫渌悾? 0 + 48, 類別重復(fù) Exit Sub End If (類別) = amp。 amp。 Empty DataRef 39。 vbNullString txtZhiCheng = (職稱) amp。 vbNullString = (班級(jí)) amp。 本End SubPrivate Sub txtBookId_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then BookId = txtBookId =, BookId 39。 本，還可以再借 _ amp。 本書,不能再借了,請(qǐng)登錄其它借書證號(hào), 0 + 48, 提示 = = = = txtZhiCheng = = = 已經(jīng)借的書 Exit Sub End If = 已經(jīng)借出 amp。 vbNullString End With If Then Exit For Next i If RecNumBookFf = BookNum Then MsgBox 已經(jīng)借了 amp。 vbNullString .SubItems(6) = (出版社) amp。 vbNullString .SubItems(4) = (價(jià)格) amp。 vbNullString .SubItems(2) = (圖書編號(hào)) amp。 本書 Exit Sub End If RecNumBookFf = For i = 1 To RecNumBookFf i, , (借書證號(hào)) amp。 = SeaStr Set rst = () If = 0 Then = 可以借 amp。 BookId amp。 39。 vbNullString txtLentDate = Date = (類別) amp。 vbNullString = (價(jià)格) amp。設(shè)置 Case 12 End End SelectEnd SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal buttonmenu As ) Select Case Case 添加 (1).Text = 添加新書 (1) (1).Text = SFlag Case 編輯 (1).Text = 編輯圖書 (1) (1).Text = 編輯圖書 Case 新借 MsgBox Add BookCard Case 編借 MsgBox Edit BookCard End SelectEnd SubPrivate Sub Toolbar2_ButtonClick(ByVal Button As ) Select Case Case 1 CmdLogin_Click Case 3 cmdKong_Click Case 7 cmdBackBook_Click Case 5 End SelectEnd SubPrivate Sub tsbb_Click() = 2End SubPrivate Sub txtBookBian_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If = Then MsgBox 請(qǐng)先登錄！, 0 + 48, 提示 = Exit Sub End If =, If Then MsgBox 沒有此圖書編號(hào)，請(qǐng)重新填寫, 0 + 48, 填寫錯(cuò)誤 = False = True Exit Sub End If = True = False = = (書名) amp。管理員設(shè)置 Case 7 39。查找菜單顯示查找圖書窗體 End SubPrivate Sub SetMnu_Click() 39。管理員菜單 39。 LibadminEnd SubPrivate Sub Form_Unload(Cancel As Integer) Close 1End SubPrivate Sub LoginMnu_Click() 39。打開圖書信息表 = 圖書編號(hào) Open amp。打開借出圖書信息表 Set qry2 = () = 圖書編號(hào) Set db3 = Workspaces(0).OpenDatabase( amp。打開讀者信息表 = 借書證號(hào) Set db2 = Workspaces(0).OpenDatabase( amp。把罰款復(fù)制為0 (罰款) = 0 End If End IfEnd SubPrivate Sub dc_Click() = 2End SubPrivate Sub dzbb_Click() = 2End SubPrivate Sub EditIdMnu_Click() (1).Text = 編輯借書證 (1) (1).Text = 編輯借書證End SubPrivate Sub EditMnu_Click() (1).Text = 編輯圖書 (1) (1).Text = 編輯圖書End SubPrivate Sub ExitMnu_Click() EndEnd SubPrivate Sub FenMnu_Click() (1)End SubPrivate Sub Form_Load() Set db1 = Workspaces(0).OpenDatabase( amp。從數(shù)據(jù)庫(kù)中刪除欠費(fèi)記錄 (罰款) = 0 = (罰款) amp。 (罰款) amp。 txtName amp。輸出所借圖書 LoginFlag = False If (罰款) 0 Then If MsgBox(txtBookId amp。 vbNullString = (罰款) amp。 vbNullString = (部門) amp。返回loop1 End If = BookId = (姓名) amp。如果沒有此證，返回 (1) If LoginFlag Then =, BookId 39。借書文本框不可見 = True End SubPrivate Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 1 If (是否借出) = True Then MsgBox 此書已經(jīng)借出！, 0 + 48, 提示 = = False = True Exit Sub End If (圖書編號(hào)) = (圖書編號(hào)) (書名) = (書名) (價(jià)格) = (價(jià)格) (出版社) = (出版社) Rem (借出日期) = (借出日期) (借出日期) = Date (借書證號(hào)) = BookId (姓名) = (類別) = (類別) (是否借出) = True (借出日期) = Date DataRef = 39。顯示模式窗體 cmdKong_ClickEnd SubPrivate Sub cmdKong_Click() 39。顯示模式窗體 (1).Text = SFlagEnd SubPrivate Sub BackMnu_Click() cmdBackBook_ClickEnd SubPrivate Sub cmdBackBook_Click() 39。表BookFf的記錄個(gè)數(shù)Dim SFlag As StringPrivate Type MSet BookNum As Integer BookCost As SingleEnd TypeDim SetFlag As MSetPrivate Sub AboutMnu_Click() (1) 39。打開表BookFlagDim rst3 As Recordset 39。參考文獻(xiàn)[1] 亓萊濱. 《Visual Basic 程序設(shè)計(jì)》 [M]. 北京：清華大學(xué)出版社.[2] 李雁翎. 《Visual Basic 程序設(shè)計(jì)》 [M]. 北京：清華大學(xué)出版社.[3] Craig Eddy, Timothy Buchanan. 《中文Access 2000 24 學(xué)時(shí)教程》[M]. 北京：機(jī)械工業(yè)出版社.[4] 白曉勇，余健.《Visual Basic 程序設(shè)計(jì)案例精編》[M]. 北京：清華大學(xué)出版社.[5] 蔡敏，劉海英，汪杰.《Visual Basic 數(shù)據(jù)庫(kù)開發(fā)工程案例》[M]. 北京：人民郵電出版社.[6] 安劍，孫秀梅.