VB課設(shè)報(bào)告樣例

1、沈陽(yáng)航空航天大學(xué)課程設(shè)計(jì)學(xué) 號(hào)班 級(jí)姓 名指導(dǎo)教師 沈陽(yáng)航空工業(yè)學(xué)院課程設(shè)計(jì)任務(wù)書學(xué)院：航宇專業(yè)：工程力學(xué)班級(jí)：6403401學(xué)號(hào)：200604034020 題目：書店圖書銷售系統(tǒng)一、課程設(shè)計(jì)時(shí)間2007-08第2學(xué)期第12周，共計(jì)2周，40學(xué)時(shí)。二、課程設(shè)計(jì)內(nèi)容模擬書店經(jīng)營(yíng)業(yè)務(wù)，主要指“購(gòu)進(jìn)圖書”和“出售圖書” 2種業(yè)務(wù)。由于圖書 的出售價(jià)格高于圖書的購(gòu)進(jìn)價(jià)格，所以系統(tǒng)能夠計(jì)算累計(jì)利潤(rùn)。要求： 能夠隨時(shí)顯示庫(kù)存情況和銷售情況。 能夠隨時(shí)計(jì)算書店累汁利潤(rùn)。 能夠隨時(shí)購(gòu)進(jìn)新書和出售圖書，冊(cè)數(shù)不限。提示：在access中分別創(chuàng)建book_in和book_out表，用以分別存儲(chǔ)購(gòu)進(jìn)圖書 和出售圖書2

2、方面信息。三、課程設(shè)計(jì)要求程序質(zhì)量：貫徹事件驅(qū)動(dòng)的程序設(shè)計(jì)思想。用戶界面友好，功能明確，操作方便；可以加以其它功能或修飾。用戶界面中的菜單至少應(yīng)包括“進(jìn)書”、“售書”、“計(jì)算利潤(rùn)”、“書庫(kù)現(xiàn)狀”、 "出售現(xiàn)狀”、“退出” 6項(xiàng)。代碼應(yīng)適當(dāng)縮進(jìn)，并給出必要的注釋，以增強(qiáng)程序的可讀性。課程設(shè)計(jì)說(shuō)明書：課程結(jié)束后，上交課程設(shè)計(jì)說(shuō)明書和源程序。課程設(shè)計(jì)說(shuō)明書的內(nèi)容參見提 供的模板。四、指導(dǎo)教師和學(xué)生簽字指導(dǎo)教師： 學(xué)生簽名：五、成績(jī)六、教師評(píng)語(yǔ)需求分析4設(shè)計(jì)分析4關(guān)鍵技術(shù)6總結(jié)10完整的源程序11參考文獻(xiàn)13需求分析模擬書店經(jīng)營(yíng)業(yè)務(wù)，主要指"購(gòu)進(jìn)圖書”和“出售圖 書”2種業(yè)務(wù)。由于

3、圖書的出售價(jià)格高于圖書的購(gòu)進(jìn)價(jià)格, 所以系統(tǒng)能夠計(jì)算累計(jì)利潤(rùn)。要求： 在access中創(chuàng)建books表，以“購(gòu)進(jìn)圖書”和“岀 售圖書”2方面信息。此表的結(jié)構(gòu)應(yīng)如下定義：圖書 編號(hào)，圖書名稱，出版社，購(gòu)進(jìn)冊(cè)數(shù)，購(gòu)進(jìn)價(jià)格， 出售冊(cè)數(shù)，出售價(jià)格。 能夠隨時(shí)顯示庫(kù)存情況和銷售情況。 能夠隨時(shí)計(jì)算書店累計(jì)利潤(rùn)。 能夠隨時(shí)購(gòu)進(jìn)新書和出售圖書，冊(cè)數(shù)不限。設(shè)計(jì)分析(1) 基本原理：建立程序設(shè)計(jì)與數(shù)據(jù)庫(kù)的連接，用 sql語(yǔ)句在數(shù)據(jù)庫(kù)中查找，添加和更改數(shù)據(jù)。(2) 總體設(shè)計(jì)：(3)詳細(xì)設(shè)計(jì):關(guān)鍵技術(shù)1建立與數(shù)據(jù)庫(kù)的連接代碼如下option explicitoption base 1dim cnn as adodb

4、.connection "聲明變量作為連接對(duì)象dim tempset as adodb.recordset "聲明變量作為記錄對(duì)象dim a as single, b as string, c as string, d as single, e as single, f as single, g as single, m as single, n as string '聲明變量屬性private sub form_load()set cnn = new adodb.connectioncnn>connectionstring = nprovider=micro

5、sofljeloledb>4>0;h & _ ndata source=2031.mdbn /連接數(shù)據(jù)源cniieconnectiontimeout = 30cnn.openend sub2查詢經(jīng)營(yíng)情況是slq語(yǔ)句在數(shù)據(jù)庫(kù)中查找圖書銷售信息select字段名表fromv表名 where v條件程序段如下：private sub command l_click()dim sqlstr$厶聲明變量m = val(textltext)set tempset = new adodb.recordset tempsetcursortjpe = adopenkeyset tempset

6、.locktype = adlockoptimistic '定義記錄集屬性，包括名，光 標(biāo)屬性，鎖類型sqlstr = "select圖書名稱，出版社， 購(gòu)進(jìn)冊(cè)數(shù)，購(gòu)進(jìn)單價(jià),出售價(jià) 格，出售冊(cè)數(shù)from圖書 where圖書編號(hào)=” & m '進(jìn)入數(shù)據(jù)表的途 徑tempselopen sqlstr, cnn, adcmdunknownif not tempset.eof then b = tempset!圖書名稱 c = tempset!出版社 d = tempset!出售價(jià)格 e = tempset!出售冊(cè)數(shù) a = tempset!購(gòu)進(jìn)冊(cè)數(shù) f = temp

7、set!購(gòu)進(jìn)單價(jià)"將變量賦予數(shù)據(jù)庫(kù)相應(yīng)值tempset.movenexttext2.text = btext3.text = ctext4.text = atext5.text = ftext6.text = etext7.text = dtext8text 二 a etext9.text = (a - e) * (d - 0 '將變量值和公式值寫入文本框中 end iftempset.close "關(guān)閉記錄集end sub窗體查詢：iil forml-inlxi利潤(rùn)查詢購(gòu)進(jìn)閣書3銷售圖書是更改數(shù)據(jù)庫(kù)中圖書信息update表名setv字段：=v表達(dá)式，v字段=v表達(dá)

8、式where v條件程序段如下：private sub command3_click()dim cheshu as integer, sqlstr as stringdim i as single，聲明變量屬性m = val(textl.text)n = vai(text2.text)cheshu = val(text6.text)for i = 1 to cheshuset tempset = new adodb.recordsettempsetxursortype = adopenkeyset tempsetalocktype = adlockoptimisticsqlstr = mupd

9、ate圖書set 出售冊(cè)數(shù)二出售冊(cè)數(shù)+ 1 where圖書編號(hào)=” & m cnn.execute sqlstrnext i '運(yùn)用“fornext”語(yǔ)句完成對(duì)數(shù)據(jù)庫(kù)中出售冊(cè)數(shù)的更改msgbox ”完成”end sub窗體銷售圖書:4購(gòu)進(jìn)圖書是向數(shù)據(jù)庫(kù)中添加新書信息insert into <目標(biāo)表名> v字段1> ,v字段2>values v值1> ：v值2>程序段如下：private sub command2_click()dim sqlstr$m = val(textl.text)n = text2.textc = text3.textd

10、 = text4.texte = text5.textf = text6.textg = text7.text，確定變量值set tempset = new adodb.recordset tempset.cursortype = adopenkeyset tempset.locktype = adlockoptimisticsqlstr = "insert into 圖書 values ( " & m & n ,h & n & ,m ,h & c & ” '& e && d & h,n

11、 & g && f & h) h '輸入新的數(shù)據(jù)信息cnii<execute sqlstrmsgbox ”完成”end sub窗體購(gòu)進(jìn)圖書：總結(jié)這次課設(shè)我的題目是書店圖書銷售系統(tǒng)，通過這次課設(shè)讓我了解了 vb與數(shù)據(jù)庫(kù)之間的聯(lián)系，可以應(yīng)用ado技術(shù)使vb與數(shù)據(jù)庫(kù)進(jìn)行聯(lián)系，還可以應(yīng)用sql語(yǔ)言查詢和更改數(shù)據(jù)庫(kù)中的信息，并能向其中添加新的信息。在課設(shè)過程中，我遇到了重重困難，例如：vb與數(shù)據(jù)庫(kù)的連接技術(shù)，通過老師的指點(diǎn)和自己查閱資料，我克 服了困難，順利的完成了任務(wù)。同時(shí)我也了解了 vb的出現(xiàn)是一場(chǎng)技術(shù)革命，它在生活中各個(gè)方面都能發(fā)揮巨大的作用，所以，學(xué)

12、好vb是社會(huì)發(fā)展的需要。完整的源程序option explicitoption base 1dim cnn as adodb.connectiondim tempset as adodb.recordsetdim a as single, b as string, c as string, d as single, e as single, f as single, g as single, m as single, n as stringprivate sub command l_click()dim sqlstr$m = val(textl.text)set tempset = new a

13、dodb.recordset tempselcursortype = adopenkeyset tempset.locktype = adlockoptimisticsqlstr = "select圖書名稱，出版社，購(gòu)進(jìn)冊(cè)數(shù)，購(gòu)進(jìn)單價(jià)，出售價(jià)格，出售冊(cè) 數(shù)from圖書 where圖書編號(hào)二”& mtempset.open sqlstr, cnn, adcmdunknownif not tempset.eof then b = tempset!圖書名稱 c = tempset!岀版社 d = tempset!出售價(jià)格 e = tempset!出售冊(cè)數(shù) a = tempset!購(gòu)

14、進(jìn)冊(cè)數(shù) f = tempset!購(gòu)進(jìn)單價(jià) tempset.movenext text2.text = b text3.text = c text4.text = a texts.text = f text6.text = e text7.text = d texts.text = a e text9.text = (a e) * (d f)end iftempset.closeend subprivate sub command2_click()dim sqlstr$m = val(textl.text)n = text2.textc = text3.textd = text4.texte =

15、 text5.textf = text6.textg = text7.textset tempset = new adodb.recordsettempset.cursortype = adopenkeysettempset.locktype = adlockoptimisticsqlstr = "insert into 圖書 values ( " & m & m & n && c & ” '& e &cnn.execute sqlstrmsgbox ”完成”end subprivate sub com

16、mand3_click()dim cheshu as integer，sqlstr as stringdim i as singlem = val(textl.text)n = val(text2.text)cheshu = val(text6.text)for i = 1 to cheshuset tempset = new adodb>recordsettempset>cursortype = adopenkeyset tempset.locktype = adlockoptimisticsqlstr =hupdate圖書set 出售冊(cè)數(shù)二出售冊(cè)數(shù)+ 1 where圖書編號(hào)二” & m cnn.execute sqlstrnext imsgbox ”完成”end subprivate sub form_load()set cnn = new adodikconnectioncnn.connectionstring = hp