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

　　

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