VB課設(shè)報告樣例

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

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

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

4、.connection "聲明變量作為連接對象dim tempset as adodb.recordset "聲明變量作為記錄對象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)營情況是slq語句在數(shù)據(jù)庫中查找圖書銷售信息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圖書名稱，出版社， 購進(jìn)冊數(shù)，購進(jìn)單價,出售價 格，出售冊數(shù)from圖書 where圖書編號=” & m '進(jìn)入數(shù)據(jù)表的途 徑tempselopen sqlstr, cnn, adcmdunknownif not tempset.eof then b = tempset!圖書名稱 c = tempset!出版社 d = tempset!出售價格 e = tempset!出售冊數(shù) a = tempset!購進(jìn)冊數(shù) f = temp

7、set!購進(jìn)單價"將變量賦予數(shù)據(jù)庫相應(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利潤查詢購進(jìn)閣書3銷售圖書是更改數(shù)據(jù)庫中圖書信息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 出售冊數(shù)二出售冊數(shù)+ 1 where圖書編號=” & m cnn.execute sqlstrnext i '運用“fornext”語句完成對數(shù)據(jù)庫中出售冊數(shù)的更改msgbox ”完成”end sub窗體銷售圖書:4購進(jìn)圖書是向數(shù)據(jù)庫中添加新書信息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窗體購進(jìn)圖書：總結(jié)這次課設(shè)我的題目是書店圖書銷售系統(tǒng)，通過這次課設(shè)讓我了解了 vb與數(shù)據(jù)庫之間的聯(lián)系，可以應(yīng)用ado技術(shù)使vb與數(shù)據(jù)庫進(jìn)行聯(lián)系，還可以應(yīng)用sql語言查詢和更改數(shù)據(jù)庫中的信息，并能向其中添加新的信息。在課設(shè)過程中，我遇到了重重困難，例如：vb與數(shù)據(jù)庫的連接技術(shù)，通過老師的指點和自己查閱資料，我克 服了困難，順利的完成了任務(wù)。同時我也了解了 vb的出現(xiàn)是一場技術(shù)革命，它在生活中各個方面都能發(fā)揮巨大的作用，所以，學(xué)

12、好vb是社會發(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圖書名稱，出版社，購進(jìn)冊數(shù)，購進(jìn)單價，出售價格，出售冊 數(shù)from圖書 where圖書編號二”& mtempset.open sqlstr, cnn, adcmdunknownif not tempset.eof then b = tempset!圖書名稱 c = tempset!岀版社 d = tempset!出售價格 e = tempset!出售冊數(shù) a = tempset!購

14、進(jìn)冊數(shù) f = tempset!購進(jìn)單價 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 出售冊數(shù)二出售冊數(shù)+ 1 where圖書編號二” & m cnn.execute sqlstrnext imsgbox ”完成”end subprivate sub form_load()set cnn = new adodikconnectioncnn.connectionstring = hp