【正文】 表示由衷的感謝。希望本系統(tǒng)能給大家?guī)?lái)方便。在對(duì)本課題的研究過(guò)程中，我學(xué)會(huì)了在編程過(guò)程中如何規(guī)范代碼和如何有效的調(diào)試代碼等等，為我日后工作積累了不少的實(shí)踐經(jīng)驗(yàn)。但由于時(shí)間比較緊張，可能在系統(tǒng)需求分析和可行性分析上做了還不夠好，加上自己本身在編程方面的能力有限，該系統(tǒng)肯定還存在這樣或那樣的不足，全面性方面肯定還有不少的欠缺。運(yùn)行的背景是 Microsoft Visual Studio 2022，再起中遇到不少不懂的問(wèn)題，但都一一解決。故而本系統(tǒng)的實(shí)現(xiàn)是來(lái)之不易的，其中付出的汗水只有自己知道。 Request(id)) End SubEnd Class電影票售票管理系統(tǒng)39第五章 結(jié)論電影票售票管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)順利完成，雖然中間經(jīng)歷了幾次較大的改動(dòng)，但是與最初的設(shè)想差別不大，此系統(tǒng)可以按著設(shè)計(jì)思想和需求功能正常運(yùn)行。) Dim sqlcmd2 = update newpost set replies=replies+1 where postid= amp。 Now() amp。 ,39。, amp。 amp。 ,39。, amp。 (REMOTE_ADDR) amp。,39。 amp。 (~\App_Data\) Dim sqlcmd1 = insert into reply(subject,ip,userid,message,postid,postdate) values(39。 ,請(qǐng)發(fā)表你的觀點(diǎn)！技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文）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=。 postid Dim cmd As New OleDbCommand = sqlcmd = con () Dim dr As OleDbDataReader dr = () () = 關(guān)于 amp。data source= amp。 39。 amp。 Session(curuserid) amp。 39。 amp。 39。 amp。 39。 amp。data source= amp。 閣下，歡迎你來(lái)到影片論壇！ = ?id= amp。 ) (支付: amp。 total) Next (***************************************************) (總計(jì): amp。 qty amp。 Now) (訂票要求: amp。 ) (聯(lián)系電話: 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。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。) = sqlcmd2 () = 恭喜你注冊(cè)成功! = True End If () End Sub Protected Sub Reset_Click(ByVal sender As Object, ByVal e As ) Handles = = = = End SubEnd Class(2)注冊(cè)信息后登錄界面，跳轉(zhuǎn)到電影票的購(gòu)買界面如圖 48 所示：技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文）28圖 48 電影票的購(gòu)買界面點(diǎn)擊圖片購(gòu)買自己喜歡的電影類型國(guó)外、國(guó)內(nèi)、動(dòng)漫效果如圖 44411 所示：電影票售票管理系統(tǒng)29圖 49 國(guó)外電影圖 410 國(guó)內(nèi)電影技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文）30圖 411 動(dòng)漫電影(3)點(diǎn)擊購(gòu)買，選擇你需要的票數(shù)如圖 412 所示：圖 412 購(gòu)買界面電影票售票管理系統(tǒng)31然后按照需要對(duì)自己喜歡的影片購(gòu)買，購(gòu)買以及以上運(yùn)行代碼如下：Imports Imports Imports Partial Class _Default Inherits Sub updateshoppingcart() Dim dt As New DataTable() Dim orderlist As ArrayList Dim qtylist As ArrayList Dim i As Integer Dim product As DataRow Dim productid As Integer Dim mydatatable As DataTable = New DataTable(mydatatable) Dim mydatacolumn As DataColumn Dim mydatarow As DataRow mydatacolumn = New DataColumn() = () = qty (mydatacolumn) mydatacolumn = New DataColumn() = () = name (mydatacolumn) mydatacolumn = New DataColumn() = () = price (mydatacolumn) mydatacolumn = New DataColumn = () = total (mydatacolumn) orderlist = Session(orderlist) qtylist = Session(qtylist) For i = 0 To 1 productid = orderlist(i) product = GetProduct(productid) mydatarow = () mydatarow(qty) = qtylist(i) mydatarow(name) = product(name) mydatarow(price) = product(price) mydatarow(total) = mydatarow(qty) * product(price) (mydatarow) Next = () updateshopchart() End Sub Sub updateshopchart() Dim orderlist As ArrayList Dim qtylist As ArrayList Dim productid As Integer Dim product As DataRow Dim i As Integer技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文）32 Dim subt, tal As Double Dim de As Double = orderlist = Session(orderlist) qtylist = Session(qtylist) subt = 0 For i = 0 To 1 productid = orderlist(i) product = getproduct(productid) subt += product(price) * qtylist(i) Next tal = subt * de = ({0:c}, subt) = de = ({0:c}, tal) End Sub Function getproduct(ByVal productid As Integer) As DataRow Dim myconnectionstring As String = provider=。 amp。,39。 amp。,39。 amp。 Dim cmd As New OleDbCommand = sqlcmd1 = con () Dim dr As OleDbDataReader dr = () If () Then = 很抱歉，已經(jīng)有人注冊(cè)了這個(gè)名字！請(qǐng)更換用戶名 = True Else () Dim sqlcmd2 = insert into userinfo(username,pw,) values(39。 amp。 (App_Data\) Dim sqlcmd1 = select * from userinfo where username=39。介紹其具體實(shí)現(xiàn)步驟：（1）注冊(cè)重置信息，如圖 47 所示：圖 47 注冊(cè)重置信息電影票售票管理系統(tǒng)27具體實(shí)現(xiàn)注冊(cè)重置代碼如下： Protected Sub ok_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = provider=?？蛻舻卿浗缑嫒鐖D 45 所示：電影票售票管理系統(tǒng)25圖 45 客戶登錄界面如需評(píng)論影片點(diǎn)擊左下行鏈接影片論壇，效果如圖 46 所示：技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文）26圖 46 評(píng)論回復(fù)影片的評(píng)論界面 客戶操作模塊技術(shù)分析在開發(fā)客戶操作模塊過(guò)程中，使用了比較頻繁的（）方法綁定數(shù)據(jù)。 客戶操作模塊 客戶操作模塊設(shè)計(jì)概述在電影信息管理系統(tǒng)中，客戶的操作極為重要，因?yàn)橐粋€(gè)售票系統(tǒng)的操作主要是以客戶為主，它是網(wǎng)上的一個(gè)店鋪，必須要客戶自己來(lái)挑選自己喜歡的產(chǎn)品。/ amp。 請(qǐng)輸入用戶名39。alert(39。 script) Else電影票售票管理系統(tǒng)23