vb圖書管理系統(tǒng)數(shù)據(jù)庫(kù)論文源代碼-課程設(shè)計(jì)(編輯修改稿)
2024-09-03 03:12 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 0。 之后我們選擇單擊“借書/續(xù)借”之后，在form8中執(zhí)行以下程序：Private Sub Command3_Click()End Sub（3）在form2中同樣添加adodc和text控件，將它們和數(shù)據(jù)庫(kù)相連，將adodc的visible設(shè)置為false,當(dāng)單擊“上一條“和“下一條”時(shí)，分別執(zhí)行以下程序: Private Sub Command3_Click()If ThenMsgBox (已經(jīng)是第一條記錄了！)End IfEnd SubPrivate Sub Command4_Click()If ThenMsgBox (已經(jīng)是最后一條記錄了！)End IfEnd Sub當(dāng)單擊“借出“按鈕的時(shí)候，會(huì)觸發(fā)以下過程：Private Sub Command1_Click()If Then沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說明書 End IfEnd Sub單擊查找后，在對(duì)話框里輸入書號(hào)如圖7所示。會(huì)觸發(fā)以下過程：Private Sub Command5_Click()msg = InputBox(請(qǐng)輸入準(zhǔn)確書號(hào), 查找記錄) hno = amp。 msg amp。 If ThenMsgBox (沒有符合條件的記錄！)ElseMsgBox 符合條件的記錄為 amp。 (1)End IfEnd Sub單擊返回時(shí)：Private Sub Command2_Click()End Sub 圖7 查找書目當(dāng)輸入的書號(hào)為2時(shí)，運(yùn)行后的界面如圖8所示。可以查出書名、作者和出版社的信息。沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說明書圖8 查找到相應(yīng)的書目信息你可以根據(jù)單擊“上一條”“下一條”來選擇你要借的圖書的基本信息，當(dāng)你確定你要借的書的時(shí)候就單擊“借出”，之后這個(gè)圖書信息將會(huì)被刪除。之后單擊“返回”就回到了第一個(gè)開始界面。當(dāng)單擊“還書“中的“刪除讀者信息”時(shí)，會(huì)顯示圖9的界面。同時(shí)就會(huì)觸發(fā)下面的事件：Private Sub shanchuduozhe_Click()End SubVB圖書管理系統(tǒng)數(shù)據(jù)庫(kù)+論文+源代碼圖9 刪除讀者信息界面（4）此界面的具體設(shè)置如下：在form7中添加了4個(gè)text控件和4個(gè)label控件以及一個(gè)adodc控件,將adodc的visible設(shè)置為false，首先將adodc控件與數(shù)據(jù)庫(kù)相連然后將文本框與表的屬性相連，標(biāo)簽控件的caption屬性分別設(shè)置為“讀者號(hào)”、“讀者姓名”、“性別”、“書號(hào)”。然后在各事件中編寫相應(yīng)的程序代碼。Private Sub Command3_Click()If ThenEnd IfEnd Sub單擊“上一條“”下一條“的時(shí)候會(huì)觸發(fā)下面的事件：課程設(shè)計(jì)說明書 Private Sub Command1_Click()If ThenMsgBox (已經(jīng)是第一條記錄了！)End IfEnd SubPrivate Sub Command2_Click()If ThenMsgBox (已經(jīng)是最后一條記錄了！)End IfEnd Sub當(dāng)單擊“返回首頁(yè)“時(shí)，會(huì)施行：Private Sub Command4_Click()End Sub可以根據(jù)“上一條”和“下一條”選擇讀者信息，選擇后單擊“刪除”那么這條記錄將會(huì)從讀者信息表中刪除，這后再單擊“還書”，就會(huì)來到圖10這個(gè)界
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1