vb圖書管理系統(tǒng)數(shù)據(jù)庫(kù)論文源代碼-課程設(shè)計(jì)-資料下載頁(yè)
2025-08-07 03:12本頁(yè)面
【正文】 北京工業(yè)大學(xué)出版社,: 6790[3] 于鳳霞. Visual Basic程序設(shè)計(jì)實(shí)訓(xùn)教材[M] . 北京:科學(xué)出版社, :88104[4] 劉瑞新. 計(jì)算機(jī)基礎(chǔ)及應(yīng)用[M] . 北京:機(jī)械工業(yè)出版社,: 112130[5] 嚴(yán)暉. 數(shù)據(jù)庫(kù)技術(shù)與應(yīng)用實(shí)踐[M]. 北京:清華大學(xué)出版社,: 278290[6] 劉天惠. Visual Basic程序設(shè)計(jì)教程[M]. 北京:清華大學(xué)出版社,:1361856附錄Private Sub Command1_Click()m = MsgBox(請(qǐng)輸入, vbOKCancel)If m = vbCancel ThenEndEnd If(bno) = Val()(bname) = (bw) = (bchu) = c = = End SubPrivate Sub Command2_Click()End Sub沈 陽(yáng) 大 學(xué)課程設(shè)計(jì)說(shuō)明書 NO。17Private Sub Command1_Click()x = If x = 12345 ThenElseMsgBox (對(duì)不起，口令錯(cuò))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ù)庫(kù)+論文+源代碼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(請(qǐng)輸入, vbOKCancel)課程設(shè)計(jì)說(shuō)明書 NO。19If m = vbCancel ThenEndEnd If(sno) = Val()(sname) = (ssex) = (bno) = Val()End SubPrivate Sub Command3_Click()End Sub
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1