VB課設報告樣例

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

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

3、圖書的出售價格高于圖書的購進價格, 所以系統(tǒng)能夠計算累計利潤。要求： 在access中創(chuàng)建books表，以“購進圖書”和“岀 售圖書”2方面信息。此表的結構應如下定義：圖書 編號，圖書名稱，出版社，購進冊數，購進價格， 出售冊數，出售價格。 能夠隨時顯示庫存情況和銷售情況。 能夠隨時計算書店累計利潤。 能夠隨時購進新書和出售圖書，冊數不限。設計分析(1) 基本原理：建立程序設計與數據庫的連接，用 sql語句在數據庫中查找，添加和更改數據。(2) 總體設計：(3)詳細設計:關鍵技術1建立與數據庫的連接代碼如下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 /連接數據源cniieconnectiontimeout = 30cnn.openend sub2查詢經營情況是slq語句在數據庫中查找圖書銷售信息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 '定義記錄集屬性，包括名，光 標屬性，鎖類型sqlstr = "select圖書名稱，出版社， 購進冊數，購進單價,出售價 格，出售冊數from圖書 where圖書編號=” & m '進入數據表的途 徑tempselopen sqlstr, cnn, adcmdunknownif not tempset.eof then b = tempset!圖書名稱 c = tempset!出版社 d = tempset!出售價格 e = tempset!出售冊數 a = tempset!購進冊數 f = temp

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

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

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圖書名稱，出版社，購進冊數，購進單價，出售價格，出售冊 數from圖書 where圖書編號二”& mtempset.open sqlstr, cnn, adcmdunknownif not tempset.eof then b = tempset!圖書名稱 c = tempset!岀版社 d = tempset!出售價格 e = tempset!出售冊數 a = tempset!購

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