【導(dǎo)讀】計(jì)算機(jī)學(xué)院綜合設(shè)計(jì)報(bào)告

　　

【正文】 【圖 67】 代碼： Private Sub add_Click() End Sub Private Sub back_Click() Unload Me End Sub Private Sub count_Click() End Sub Private Sub delete_Click() 計(jì)算機(jī)學(xué)院綜合設(shè)計(jì)報(bào)告 32 End Sub 該界面是商品添加界面，如圖 68: 【圖 68】 代碼： Private Sub Command1_Click() str1 = select * from CD where CD_NO =39。 amp。 amp。 39。 If = 1 Then End If str1, conn, 1, 3 If = Then MsgBox 請(qǐng)輸入菜單編號(hào) !, 64, 提示 Exit Sub End If If = Then MsgBox 請(qǐng)輸入菜單名稱 !, 64, 提示 Exit Sub End If If = Then MsgBox 請(qǐng)輸入菜單種類 !, 64, 提示 Exit Sub End If If = Then MsgBox 請(qǐng)輸入菜單單價(jià) !, 64, 提示 Exit Sub End If If Then (insert into CD values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。)) MsgBox 新添加菜單成功！ , 64, 信息 End If 計(jì)算機(jī)學(xué)院綜合設(shè)計(jì)報(bào)告 33 End Sub Private Sub Command2_Click() = = = = = = End Sub Private Sub Command3_Click() Unload Me End Sub 該界面是商品查詢界面，如圖 69： 【圖 69】 Dim conn As New Dim rs As New Dim rs1 As New Private Sub Check1_Click(Index As Integer) If Check1(Index).Value = 0 Or IsBusy Then Exit Sub Dim i As Integer IsBusy = True For i = 0 To If i Index Then Check1(i).Value = 0 Next IsBusy = False End If 計(jì)算機(jī)學(xué)院綜合設(shè)計(jì)報(bào)告 34 End Sub Private Sub Command1_Click() If Check1(0).Value Then If Trim() = Then MsgBox 菜單編號(hào)不能為空！ , 48, 警告 Else str1 = select * from CD where CD_NO like 39。 amp。 amp。 %39。 End If End If If Check1(1).Value Then If Trim() = Then MsgBox 菜單名字不能為空！ , 48, 警告 Else str1 = select * from CD where CD_NAME like 39。 amp。 amp。 %39。 End If End If If Check1(2).Value Then If Trim() = Then MsgBox 請(qǐng)輸入菜單價(jià)格 , 48, 警告 Else str1 = select * from CD where CD_PRICE like 39。 amp。 amp。 %39。 End If End If DC, conn, 2, 3 (DC_NUM) = (DC_DESK) = (DC_COUNT) = If Check1(0).Value Then str1, conn, 1, 3 (CD_NO) = (CD_NAME) = rs1(CD_NAME) (CD_PRICE) = rs1(CD_PRICE) End If If Check1(1).Value Then str1, conn, 1, 3 (CD_NAME) = (CD_NO) = rs1(CD_NO) 計(jì)算機(jī)學(xué)院綜合設(shè)計(jì)報(bào)告 35 (CD_PRICE) = rs1(CD_PRICE) End If = str1 Set = Adodc1 = adCmdText End Sub Private Sub Command2_Click() = End Sub Private Sub Command3_Click() Unload Me End Sub 該界面是商品刪除界面，如圖 610： 【圖 610】 代碼： Private Sub Command1_Click() str1 = select * from CD where CD_NO=39。 amp。 amp。 39。 If = 1 Then End If str1, conn, 1, 3 If = Then MsgBox 請(qǐng)輸入菜單編號(hào) !, 64, 提示 Exit Sub End If If Then MsgBox 不存在該 菜單，請(qǐng)重新輸入！ , 48, 警告 Else 計(jì)算機(jī)學(xué)院綜合設(shè)計(jì)報(bào)告 36 (delete from CD where CD_NO=39。 amp。 amp。 39。) MsgBox 刪除成功！ , 64, 信息 End If End Sub Private Sub Command2_Click() = End Sub Private Sub Command3_Click() Unload Me End Sub 總結(jié) 通過此次數(shù)據(jù)庫(kù)的課程設(shè)計(jì)，真正達(dá)到了學(xué)與用的結(jié)合，增強(qiáng)了對(duì)數(shù)據(jù)庫(kù)方面應(yīng)用的理解，對(duì)自己今后參與開發(fā)數(shù)據(jù)庫(kù)系統(tǒng)積累了不少經(jīng)驗(yàn)，在實(shí)驗(yàn)過程中，從建立數(shù)據(jù)開始，對(duì)數(shù)據(jù)庫(kù)設(shè)計(jì)理念及思想上有更高的認(rèn)識(shí)，從需求分析，到概念設(shè)計(jì)、邏輯設(shè)計(jì)和前后臺(tái)結(jié)合， ER圖的表示，數(shù)據(jù)字典的創(chuàng)建，懂得了不少有關(guān)數(shù)據(jù)庫(kù)開發(fā)過程中的知識(shí)，在實(shí)驗(yàn)中建表，及其關(guān)系模式，關(guān)系代數(shù)的建立及理解，將 SQL 語(yǔ)的查詢語(yǔ)句用得淋漓盡致，增強(qiáng)了自己在數(shù)據(jù)庫(kù)中應(yīng)用SQL 語(yǔ)言的靈活性，其中包括，插入、刪除、 修改、查詢 ,牽涉表和表之間的聯(lián)系，主建與外主鍵的定義，約束項(xiàng)的設(shè)置，使邏輯更嚴(yán)密。其中，前后臺(tái)連接時(shí)難點(diǎn)，我在此花了大半部分時(shí)間。在學(xué)習(xí)過程中，我也能過上網(wǎng)查了不少資料，也看了一些別人設(shè)計(jì)的圖書館管理信息系統(tǒng)的設(shè)計(jì)報(bào)告，學(xué)以致用，自我創(chuàng)新，獨(dú)立完成了這份自己的報(bào)告，從中在學(xué)到用，從用又到學(xué)，不斷修改，系統(tǒng)更新。雖然不能達(dá)到完善系統(tǒng)，但也做到了盡善盡美，加強(qiáng)理論學(xué)習(xí)對(duì)完善系統(tǒng)會(huì)有很多幫助，不管怎么說，對(duì)這次做的課程設(shè)計(jì)自己覺得還算滿意 計(jì)算機(jī)學(xué)院綜合設(shè)計(jì)報(bào)告 37 參考文獻(xiàn) 1. 杜秋華 , 康慧芳 .可視化編程應(yīng)用 —— Visual Basic . 北京 :人民郵電出版社 , 2020 2. 曹青 ,邱李華 ,郭志強(qiáng) . Visual Basic 程序設(shè)計(jì)教程 .機(jī)械工業(yè)出版社 ,2020 3. 劉韜 駱娟 . 數(shù)據(jù)庫(kù)通用模塊及典型系統(tǒng)開發(fā) . 人民郵電出版社 4. 陳艷峰 高文姬 .數(shù)據(jù)庫(kù)項(xiàng)目案例導(dǎo)航 . 清華大學(xué)出版社 5. 王傳華 姜虹 . visual basic 程序設(shè)計(jì)教程 . 中國(guó)農(nóng)業(yè)大學(xué)出版 .《數(shù)據(jù)庫(kù)原理及應(yīng)用》 .電子工業(yè)出版社 7. 劉炳文等， VISUAL BASIC 程序設(shè)計(jì) —— 數(shù)據(jù)庫(kù)篇， 1999 .《 Visual Basic 編程實(shí)例大制作》 .冶金工業(yè)出版社 ，管理信息系統(tǒng)開發(fā)與應(yīng)用，電子工業(yè)出版社， 2020 ，人民郵電出版社， 2020 年 3月第一版 11. 康博工作室，張紅軍，王紅等縞著《 Visual Basic 中文版高級(jí)應(yīng)用與開發(fā)指南》，人民郵電出版社， 2020 年 4 月第一版