vb圖書管理系統(tǒng)數(shù)據(jù)庫論文源代碼-課程設計(存儲版)
【正文】 )x = If x = 12345 ThenElseMsgBox (對不起，口令錯)End IfEnd SubPrivate Sub Form_Load() = = 5 = *End SubPrivate Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command1_Click()VB圖書管理系統(tǒng)數(shù)據(jù)庫+論文+源代碼If ThenMsgBox (已經(jīng)是第一條記錄了！)End Ifa = Val(CDate() CDate()) = aEnd SubPrivate Sub Command2_Click()If ThenMsgBox (已經(jīng)是最后一條記錄了！)End Ifa = Val(CDate() CDate()) = aEnd SubPrivate Sub Command3_Click()If 31 ThenMsgBox (已經(jīng)過了最后期限！)End IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command1_Click()If ThenMsgBox (已經(jīng)是第一條記錄了！)End IfEnd SubPrivate Sub Command2_Click()If ThenMsgBox (已經(jīng)是最后一條記錄了！)End IfEnd SubPrivate Sub Command3_Click()If ThenEnd IfEnd SubPrivate Sub Command4_Click()End SubPrivate Sub Command5_Click()End SubPrivate Sub Command1_Click()m = MsgBox(請輸入, vbOKCancel)課程設計說明書 陽在單擊“返回主頁”后，執(zhí)行的程序代碼如下：Private Sub Command5_Click()End SubVB圖書管理系統(tǒng)數(shù)據(jù)庫論文源代碼|課程設計 圖15 圖12當你單擊“歸還”的時候就會彈出輸出對話框，單擊“確定”后，就會看到所有的文本框?qū)榭?，根?jù)數(shù)據(jù)庫中的數(shù)據(jù)向文本框中添加數(shù)據(jù)，那么這一條數(shù)據(jù)就會在添加到圖書信息中。同時就會觸發(fā)下面的事件：Private Sub shanchuduozhe_Click()End SubVB圖書管理系統(tǒng)數(shù)據(jù)庫+論文+源代碼 陽 陽圖6 圖4作者書號 課程設計說明書書號還書日期字段說明NoNoSsex主鍵Sno 圖1下圖
教學教案相關推薦
鄂ICP備17016276號-1