vb課程設(shè)計(jì)題目設(shè)備管理系統(tǒng)-資料下載頁
【導(dǎo)讀】對(duì)系統(tǒng)要實(shí)現(xiàn)的功能進(jìn)行確切的描述。詳細(xì)說明程序的設(shè)計(jì)思想，所用到的算法、數(shù)據(jù)結(jié)構(gòu)技。說明系統(tǒng)的運(yùn)行效果、存在哪些不足。以及預(yù)期的解決辦法。使學(xué)生在理論課程結(jié)束后，通過課程設(shè)。計(jì)能進(jìn)一步鞏固對(duì)VB編程機(jī)制的理解，真。從而鍛煉學(xué)生開發(fā)能力、程序調(diào)試的能力，及程序錯(cuò)誤處理的能力。的各個(gè)環(huán)節(jié)，達(dá)到以下教學(xué)要求。進(jìn)一步掌握VB語言程序設(shè)計(jì)的基。的基本原理及應(yīng)用；數(shù)量、型號(hào)、規(guī)格等信息；能夠?qū)崿F(xiàn)對(duì)設(shè)備的查詢、修改、利用ADO控件將Access數(shù)據(jù)源連接到程序中。打開Access，建立名為“設(shè)備”的數(shù)據(jù)庫。擇“使用設(shè)計(jì)器創(chuàng)建表”輸入名稱、型號(hào)、單價(jià)、數(shù)量、規(guī)。保存命名為“設(shè)備管理”。MsgBox"已經(jīng)是第一條". ’刪除正顯示的記錄。MsgBox"該設(shè)備已添加". EndIf值是否等于數(shù)據(jù)庫中相應(yīng)。=True’顯示查詢結(jié)果后，文本框內(nèi)容不可更改。不能將添加的設(shè)備馬上顯示出來，功能較為簡單，不夠完善。通過這次實(shí)驗(yàn)周的實(shí)踐，我感受到了VB設(shè)計(jì)的趣味性，了解
【正文】 e If (5) = G Then = (1) = (2) = (3) = (4) = (6) check = check + 1 End If Wend R = Trim(Text6) While True If (6) = R Then = (1) = (2) = (3) = (4) = (5) check = check + 1 End If Wend If check = 0 Then MsgBox (無此設(shè)備 !) End If = True ’ 顯示查詢結(jié)果后，文本框內(nèi)容不可更改 = True = True = True = True = True End Sub Private Sub Command2_Click() = = = = = = = False ’ 按清除鍵后，文本框內(nèi)容不可更改 = False = False = False = False = False End Sub 效果及存在問題 不能將添加的設(shè)備馬上顯示出來，功能較為簡單，不夠完善 總結(jié) 通過這次實(shí)驗(yàn)周的實(shí)踐，我感受到了 VB 設(shè)計(jì)的趣味性，了解了VB 的實(shí)用性。 雖然在實(shí)踐時(shí)出現(xiàn)了許多問題，但通過老師和同學(xué)們的幫助，順利的完成了課程設(shè)計(jì)，使我對(duì) VB 有了進(jìn)一步的認(rèn)識(shí)，更漸漸喜歡上VB。
鄂ICP備17016276號(hào)-1