【正文】
)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下圖