【文章內(nèi)容簡(jiǎn)介】 t = 添加新書(shū) (1) (1).Text = SFlag Case 編輯 (1).Text = 編輯圖書(shū) (1) (1).Text = 編輯圖書(shū) 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 沒(méi)有此圖書(shū)編號(hào)，請(qǐng)重新填寫(xiě), 0 + 48, 填寫(xiě)錯(cuò)誤 = False = True Exit Sub End If = True = False = = (書(shū)名) amp。 vbNullString = (出版社) amp。 vbNullString = (價(jià)格) amp。 Empty Rem txtLentDate = (借出日期) amp。 vbNullString txtLentDate = Date = (類(lèi)別) amp。 vbNullString End IfEnd SubPrivate Sub DataRef() Dim i As Integer Dim SeaStr As String SeaStr = select * from Bookff where 借書(shū)證號(hào)= SeaStr = SeaStr amp。 39。 amp。 BookId amp。 39。 = SeaStr Set rst = () If = 0 Then = 可以借 amp。 BookNum amp。 本書(shū) Exit Sub End If RecNumBookFf = For i = 1 To RecNumBookFf i, , (借書(shū)證號(hào)) amp。 vbNullString With (i) .SubItems(1) = (姓名) amp。 vbNullString .SubItems(2) = (圖書(shū)編號(hào)) amp。 vbNullString .SubItems(3) = (書(shū)名) amp。 vbNullString .SubItems(4) = (價(jià)格) amp。 Empty .SubItems(5) = (類(lèi)別) amp。 vbNullString .SubItems(6) = (出版社) amp。 vbNullString .SubItems(7) = (借出日期) amp。 vbNullString End With If Then Exit For Next i If RecNumBookFf = BookNum Then MsgBox 已經(jīng)借了 amp。 BookNum amp。 本書(shū),不能再借了,請(qǐng)登錄其它借書(shū)證號(hào), 0 + 48, 提示 = = = = txtZhiCheng = = = 已經(jīng)借的書(shū) Exit Sub End If = 已經(jīng)借出 amp。 RecNumBookFf amp。 本，還可以再借 _ amp。 BookNum RecNumBookFf amp。 本End SubPrivate Sub txtBookId_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then BookId = txtBookId =, BookId 39。查找借書(shū)證號(hào)碼 If Then MsgBox 沒(méi)有此借書(shū)證號(hào)碼！, 0 + 48, 錯(cuò)誤 = = = Exit Sub End If = = = = = = = BookId = (姓名) amp。 vbNullString = (班級(jí)) amp。 vbNullString = (部門(mén)) amp。 vbNullString txtZhiCheng = (職稱(chēng)) amp。 vbNullString = (罰款) amp。 Empty DataRef 39。輸出所借圖書(shū) End IfEnd Sub圖書(shū)分類(lèi)代碼： Dim db As DatabaseDim rst As RecordsetDim Rec As IntegerDim StrFlag As StringDim Se As IntegerPrivate Sub AddMnu_Click()cmdAdd_ClickEnd SubPrivate Sub cmdAdd_Click()StrFlag = 添加 = 添加狀態(tài)txtTypeName = Time = = False = TruecmdFlag (False)End SubPrivate Sub cmdDelete_Click()Dim St As String =, St = 確實(shí)要?jiǎng)h除 amp。 amp。 類(lèi)嗎？If MsgBox(St, 4 + 32, 刪除類(lèi)別) = vbYes Then DispElse Exit SubEnd IfEnd SubPrivate Sub cmdEdit_Click()StrFlag = 編輯 = 修改狀態(tài)Se = =, = (類(lèi)別) = (借出天數(shù)) = True = FalsecmdFlag (False)End SubPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdSaveCancel_Click(Index As Integer)Select Case Index Case 0 If StrFlag = 添加 Then If = Or = Then MsgBox 請(qǐng)?zhí)顚?xiě)完整！, 0 + 48, 提示 Exit Sub End If =, txtTypeName If = False Then MsgBox txtTypeName amp。 類(lèi)別已經(jīng)存在，請(qǐng)?zhí)顚?xiě)其它類(lèi)！, 0 + 48, 類(lèi)別重復(fù) Exit Sub End If (類(lèi)別) = amp。 vbNullString (借出天數(shù)) = amp。 vbNullString = False = True Disp cmdFlag (True) ElseIf StrFlag = 編輯 Then If = Or = Then MsgBox 請(qǐng)?zhí)顚?xiě)完整！, 0 + 48, 提示 Exit Sub End If (類(lèi)別) = amp。 vbNullString (借出天數(shù)) = = False = True Disp cmdFlag (True) End If Case 1 = False = True cmdFlag (True)End SelectEnd SubPrivate Sub DeleteMnu_Click()cmdDelete_ClickEnd SubPrivate Sub EditMnu_Click()cmdEdit_ClickEnd SubPrivate Sub ExitMnu_Click()cmdExit_ClickEnd SubPrivate Sub Form_Load() = True = FalseSet db = Workspaces(0).OpenDatabase( amp。 \DataBase\, False)Set rst = (Type, dbOpenTable) = 類(lèi)別DispEnd SubPrivate Sub Disp()Dim i As IntegerRec = For i = 1 To Rec i, , (類(lèi)別) (i).SubItems(1) = (借出天數(shù)) If Then Exit ForNextEnd SubPrivate Sub cmdFlag(Bool As Boolean) = Bool = Bool = Bool = BoolEnd Sub添加新書(shū)代碼： 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。Dim time As IntegerDim re As New Select Case Index Case 0 If txtBookNum = Or txtBookName = Or = _ Or txtCost = Or txtBookChu = Then MsgBox 請(qǐng)將所有信息填寫(xiě)完整！, 0 + 48, 提示 Exit Sub End If 39。 =, Trim() Provider=。Persist Security Info=False。User ID=Admin。Data Source= amp。 amp。 \DataBase\。Mode=Share Deny None。Extended Properties=39。COUNTRY=0。CP=1252。LANGID=0x040939。Jet OLEDB:System database=39。39。Jet OLED