【正文】 Product(ByVal productID As Integer) As DataRow Dim myconnectionstring As String = provider=。data source= amp。 (\電影票售票\App_Data\) Dim myconnection As New OleDbConnection(myconnectionstring) Dim product As New DataSet() () Dim adapter1 As OleDbDataAdapter adapter1 = New OleDbDataAdapter(select * from 信息表 where productid = amp。 productID, myconnection) (product, 信息表) GetProduct = (0).Rows(0) () End Function Protected Sub Button1_Click(ByVal sender As Object, ByVal e As ) Handles Dim path As String = () Dim strW As StreamWriter Dim OrderList As ArrayList Dim qtyList As ArrayList Dim productId As Integer Dim product As DataRow Dim i As Integer Dim ftotal, dec As Double Dim name, qty, price, total As String電影票售票管理系統(tǒng)35 dec = strW = New StreamWriter(path, True) (訂票人: amp。 ) (聯(lián)系地址: amp。 ) (聯(lián)系電話: amp。 ) (訂票日期: amp。 Now) (訂票要求: amp。 ) (***************************************************) (商品名稱 數(shù) 量 單 價 總 價) OrderList = Session(orderList) qtyList = Session(qtyList) For i = 0 To 1 productId = OrderList(i) product = GetProduct(productId) name = ({0,9:G}, product(name)) qty = ({0,10:G}, qtyList(i)) price = ({0,9:c}, product(price)) total = ({0:c}, qtyList(i) * product(price)) ftotal += qtyList(i) * product(price) (name amp。 qty amp。 price amp。 total) Next (***************************************************) (總計: amp。 ({0:c}, ftotal)) (打折: amp。 ) (支付: amp。 ({0:c}, ftotal * dec)) () () (提交定單成功!)End Sub(5)對影片的評價以及回復(fù)的效果圖如 41415 所示：技術(shù)學(xué)院畢業(yè)設(shè)計（論文）36圖 414 發(fā)表評論發(fā)表評論的代碼運行如下：Imports Imports Partial Class forum Inherits Protected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles = Session(curname) amp。 閣下，歡迎你來到影片論壇！ = ?id= amp。 Session(curuserid) End Sub Protected Sub reset_Click(ByVal sender As Object, ByVal e As ) Handles = = End Sub Protected Sub post_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = Provider=。data source= amp。 (~\App_Data\) Dim sqlcmd = insert into newpost(subject,message,postdate,userid,ip,replies,views) values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 Now() amp。 39。, amp。 Session(curuserid) amp。 ,39。 amp。 (REMOTE_ADDR) amp。 39。,0,0) Dim cmd As New OleDbCommand電影票售票管理系統(tǒng)37 = sqlcmd = con () () = 新帖發(fā)表成功！ () () End SubEnd Class圖 415 回復(fù)評論回復(fù)評論運行代碼如下：Imports Imports Partial Class reply Inherits Protected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles Dim postid As Integer postid = Request(id) Dim con As New OleDbConnection = Provider=。data source= amp。 (~\App_Data\)（） Dim sqlcmd = select subject from newpost where postid= amp。 postid Dim cmd As New OleDbCommand = sqlcmd = con () Dim dr As OleDbDataReader dr = () () = 關(guān)于 amp。 (0) amp。 ,請發(fā)表你的觀點！技術(shù)學(xué)院畢業(yè)設(shè)計（論文）38 () End Sub Protected Sub reset_Click(ByVal sender As Object, ByVal e As ) Handles = = End Sub Protected Sub post_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = Provider=。data source= amp。 (~\App_Data\) Dim sqlcmd1 = insert into reply(subject,ip,userid,message,postid,postdate) values(39。 amp。 amp。 39。,39。 amp。 (REMOTE_ADDR) amp。 39。, amp。 Session(curuserid) amp。 ,39。 amp。 amp。 39。, amp。 Request(id) amp。 ,39。 amp。 Now() amp。 39。) Dim sqlcmd2 = update newpost set replies=replies+1 where postid= amp。 Request(id) Dim cmd As New OleDbCommand = sqlcmd1 = con () () = sqlcmd2 () = 回帖成功！單擊查看繼續(xù)瀏覽信息！ () End Sub Protected Sub back_Click(ByVal sender As Object, ByVal e As ) Handles (?id= amp。 Request(id)) End SubEnd Class電影票售票管理系統(tǒng)39第五章 結(jié)論電影票售票管理系統(tǒng)的設(shè)計與實現(xiàn)順利完成，雖然中間經(jīng)歷了幾次較大的改動，但是與最初的設(shè)想差別不大，此系統(tǒng)可以按著設(shè)計思想和需求功能正常運行。系統(tǒng)的從分析到設(shè)計，其中都是一點一點堆積起來的成果，從設(shè)計又到實行，又歷經(jīng)查詢大量文獻(xiàn)資料等，最后到完善系統(tǒng)的運行效果，也是又老師同學(xué)得到的幫助和好的意見，并加以采納，得到自己想要的設(shè)計運行的效果。故而本系統(tǒng)的實現(xiàn)是來之不易的，其中付出的汗水只有自己知道。本系統(tǒng)制作中參考了以前學(xué)過的 VB 語言技術(shù)應(yīng)用，查詢資料，找到如何使用 Accesss 數(shù)據(jù)綁定，借鑒了以前學(xué)過網(wǎng)上購物系統(tǒng)，并且在研發(fā)過程中遇到問題及時問老師同學(xué)幫忙改正錯誤。運行的背景是 Microsoft Visual Studio 2022，再起中遇到不少不懂的問題，但都一一解決。系統(tǒng)主要運用 vb 語言、Accesss 數(shù)據(jù)和 Microsoft Visual Studio 2022 運行環(huán)境等操作知識來實現(xiàn)系統(tǒng)是運行和完善。但由于時間比較緊張，可能在系統(tǒng)需求分析和可行性分析上做了還不夠好，加上自己本身在編程方面的能力有限，該系統(tǒng)肯定還存在這樣或那樣的不足，全面性方面肯定還有不少的欠缺。希望可以通過在以后的學(xué)習(xí)中能夠不斷的改善和加強(qiáng)本系統(tǒng)。在對本課題的研究過程中，我學(xué)會了在編程過程中如何規(guī)范代碼和如何有效的調(diào)試代碼等等，為我日后工作積累了不少的實踐經(jīng)驗。最后系統(tǒng)雖然完成了，但因為時間精力和知識的限制，在界面設(shè)計上還有少許的不足，但這少許的不足不會影響系統(tǒng)本身的效果，這也給我以后設(shè)計系統(tǒng)提供了很多經(jīng)驗和教訓(xùn)等，為以后的事業(yè)帶來寶貴的經(jīng)驗。希望本系統(tǒng)能給大家?guī)矸奖?。技術(shù)學(xué)院畢業(yè)設(shè)計（論文）40參考文獻(xiàn)[1] 李千目,嚴(yán)哲,石竹,(等). 程序設(shè)計與應(yīng)用開發(fā),清華大學(xué)出版社[2] 程琪,張白燁(等). 動態(tài)網(wǎng)站開發(fā)項目化教程,清華大學(xué)出版社[3] 王淑敏,馬世霞,劉丹(等). 動態(tài)網(wǎng)站設(shè)計,清華大學(xué)出版社[4] C開發(fā)數(shù)據(jù)庫應(yīng)用程序 ,科學(xué)技術(shù)文獻(xiàn)出版社[5] 齊立波(等).C入門經(jīng)典（第四版）,清華大學(xué)出版社[6] 米凱利斯(等).C本質(zhì)論（第三版）,人民郵電出版社[7] 王小克(等).C本質(zhì)論（第三版）,清華大學(xué)出版社[8] Michael Mcmillan(等).數(shù)據(jù)結(jié)構(gòu)與算法：C語言描述,人民郵電出版社[9] C 高級程序設(shè)計：人民郵電出版社[10] 大揭秘：清華出版社[11] 從入門到精通：清華出版社[12] 第一步—基于 C和 ：清華大學(xué)出版社[13] asp 實務(wù)經(jīng)典[14] 編程寶典：任命郵電出版社[15] ASP 網(wǎng)絡(luò)編程基礎(chǔ)：清華大學(xué)出版社[16] 網(wǎng)絡(luò)編程系列叢書ASP 網(wǎng)絡(luò)編程技術(shù)與實踐：清華大學(xué)出版社致謝41致 謝本文是在指導(dǎo)老師的熱情關(guān)心和指導(dǎo)下完成的，他淵博的知識和嚴(yán)謹(jǐn)?shù)闹螌W(xué)作風(fēng)使我受益匪淺，對我順利完成本課題起到了極大地幫助作用。表示由衷的感謝。尤其是代碼設(shè)計界面排版這塊，都提出了寶貴的意見，故而再次向他表示我最由衷的感謝！在論文完成過程中，遇到很多自己難以解決的問題，但幸運的是我有很多人心的朋友和老師，在他們百忙中抽出時間給予我寶貴的意見和經(jīng)驗，為此向他們表示深深的謝意！因為朋友老是的幫助下我完成了分析和設(shè)計，完成了界面排版和界面設(shè)計，完成了數(shù)據(jù)庫的鏈接，完成的