【正文】 Session(curuserid) amp。 閣下，歡迎你來(lái)到影片論壇！ = ?id= amp。 (\電影票售票 \App_Data\售票 .mdb) Dim myconnection As New OleDbConnection(myconnectionstring) Dim product As New DataSet() () Dim adapter1 As OleDbDataAdapter adapter1 = New OleDbDataAdapter(select * from 信息表 where productid = amp。 amp。 script) Else 電影票售票管理系統(tǒng) 23 Session(username) = Session(password) = End If Else () End If If = 管理員 Then If = Then (script language=39。data source= amp。 Dim cmd As New OleDbCommand = sqlcmd1 = con () Dim dr As OleDbDataReader dr = () If () Then = 很抱歉，已經(jīng)有人注冊(cè)了這個(gè)名字！請(qǐng)更換用戶名 技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文） 20 = True Else () Dim sqlcmd2 = insert into userinfo(username,pw,) values(39。 請(qǐng)輸入用戶名39。登錄模塊是 電影票售票 管理系統(tǒng)的第一道安全屏障，登錄模塊運(yùn)行結(jié)果如圖 41 所示 ： 圖 41登錄的界面 登錄模塊實(shí)現(xiàn)過(guò)程 輸入賬號(hào)和密碼等信息無(wú)誤后，單擊“登錄”按鈕，進(jìn)行登錄。 39。 數(shù) 據(jù)庫(kù)概念設(shè)計(jì) 在開(kāi)發(fā) 本 系統(tǒng)時(shí)，為了靈活的維護(hù)系統(tǒng)，設(shè)計(jì)了管理員管理模塊，通過(guò)管理員模塊可以方便的對(duì)整個(gè)系統(tǒng)進(jìn)行維護(hù)。 電影信息表 信息表 xinxi，用來(lái)存儲(chǔ)電影信息的資料 價(jià)格數(shù)量等 的表 。 調(diào)度可行性 所以開(kāi)發(fā)期限的選定也是非常重要的因素，根據(jù)電影售票 管理的日常的正常的 售票 運(yùn) 作規(guī)律和工作性質(zhì)，可以看出這些內(nèi)容是我們平時(shí)常見(jiàn)的工作， 所以開(kāi)發(fā)人員在開(kāi)發(fā)起來(lái)比較容易入手，所以可以判斷開(kāi)發(fā)本系統(tǒng)的周。 電影票售票管理系統(tǒng)的開(kāi)發(fā) ，是為了規(guī)范網(wǎng)絡(luò)化的影票購(gòu)買管理，為電影票管理提供一套高效、快捷的應(yīng)用軟件，電影售票管理質(zhì)量的好壞不僅關(guān)系到工作和客戶的需求，也關(guān)系到影視行業(yè)的發(fā)展。 電影票售票 系統(tǒng) 現(xiàn)在雖然還處于發(fā)展階段，但是隨著互聯(lián)網(wǎng)經(jīng)濟(jì)的發(fā)展，越來(lái)越多的人投入倒 電影票售票系統(tǒng) 維護(hù) 這個(gè)領(lǐng)域中來(lái)。 編號(hào) 畢業(yè)設(shè)計(jì) （ 論文 ） 題目 : 電影票售票 管理 系統(tǒng) 學(xué)生姓名 學(xué) 號(hào) 090302241144 系 部 軟件與服務(wù)外包學(xué)院 專 業(yè) 軟件技術(shù) 班 級(jí) 軟件 0913 指導(dǎo)教師 評(píng)閱 教師 2020 年 5 月摘 要 I 摘 要 隨著 Inter 的迅猛發(fā)展，當(dāng)今社會(huì)已進(jìn)入網(wǎng)絡(luò)時(shí)代，計(jì)算機(jī)網(wǎng)絡(luò)已經(jīng)成為社會(huì)和經(jīng)濟(jì)發(fā)展的強(qiáng)大動(dòng)力。網(wǎng)上 維護(hù) 最大程度的方便了顧客。所以電影票售票管理系統(tǒng)的開(kāi)發(fā)一定會(huì)得到影視影院的支持。因?yàn)檎{(diào)度可行性指的是建議的計(jì)算機(jī)系統(tǒng)能否在規(guī)定的期限內(nèi)交付給用戶，所以 ，應(yīng)該可以在規(guī)定時(shí)間內(nèi)，快速的、完整的交付給 客 戶使用。 如下表 xinxi 表 所示 ： 技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文） 6 xinxi表 categoryid productid name price image detail 編號(hào) 電影序號(hào) 影片名稱 價(jià)格 圖片 影片內(nèi)容 回復(fù)信息表 newpost，用來(lái)存儲(chǔ) 客戶對(duì)電影評(píng)論的回復(fù) 。這是需要建立一個(gè)數(shù)據(jù)表用來(lái)存儲(chǔ)所有管理員的信息。 Dim cmd As New OleDbCommand = sqlcmd = con Dim dr As OleDbDataReader dr = () If () = True Then If (1) = Then Session(curuserid) = (0) Session(curname) = If = 用戶 Then If = Then 電影票售票管理系統(tǒng) 17 (script language=39。程序首先會(huì)判斷輸入登錄身份調(diào)用公共類中相應(yīng)的方法驗(yàn)證賬號(hào)和密碼是否正確，如果登錄的賬號(hào)和密碼正確，則會(huì)轉(zhuǎn)向與登錄身份相符合的頁(yè)面。)。 amp。 (~\App_Data\) () Dim sqlcmd = select id,pw from userinfo where username=39。Javascript39。 39。 productid, myconnection) (product, 信息表 ) getproduct = (0).Rows(0) () End Function Protected Sub categorylist_SelectedIndexChanged(ByVal sender As Object, ByVal e As ) Handles Dim i As ListItem i = = = False End Sub Protected Sub DataList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As ) Handles = True End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles If (Not IsPostBack) Then = ().Text End If End Sub Protected Sub addcart_Click(ByVal sender As Object, ByVal e As ) Handles Dim productid As Integer Dim orderlist As ArrayList Dim qtylist As ArrayList 電影票售票管理系統(tǒng) 33 orderlist = Session(orderlist) qtylist = Session(qtylist) productid = () If (productid) = 1 Then (productid) (1) Else Dim num As Integer = (productid) qtylist(num) = CInt(qtylist(num)) + 1 End If Session(orderlist) = orderlist Session(qtylist) = qtylist updateshoppingcart() End Sub Protected Sub recalculate_Click(ByVal sender As Object, ByVal e As ) Handles Dim qty As TextBox Dim item As DataGridItem Dim i As Integer For i = 0 To Session(orderlist).count 1 qty = CType((i).FindControl(textbox2), TextBox) Session(qtylist)(i) = Next updateshoppingcart() End Sub Protected Sub clearcart_Click(ByVal sender As Object, ByVal e As ) Handles Session(orderlist) = New ArrayList() Session(qtylist) = New ArrayList() updateshoppingcart() End Sub End Class (4)提交信息點(diǎn)擊結(jié)賬 ，提交效果 如圖 413 所示： 技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文） 34 圖 413提交點(diǎn)擊結(jié)賬 其提交購(gòu)物單的運(yùn)行代碼如下： Imports Imports Imports Partial Class check Inherits Function GetProduct(ByVal productID As Integer) As DataRow Dim myconnectionstring As String = provider=。 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=。 ,39。, amp。 ({0:c}, ftotal * dec)) () () (提交定單成功 !) End Sub (5)對(duì)影片的評(píng)價(jià)以及回復(fù)的效果圖如 41 415 所示： 技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文） 36 圖 414發(fā)表評(píng)論 發(fā)表評(píng)論的代碼運(yùn)行如下： Imports Imports Partial Class forum Inherits Protected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles = Session(curname) amp。data source= amp。 amp。/ amp。以 用戶 信息管理為例，介紹具體的實(shí)現(xiàn)步驟： （ 1）管理用戶基本信息登錄網(wǎng)頁(yè)如圖 43 所示： 技術(shù)學(xué)院畢業(yè)設(shè)計(jì)（論文） 22 圖 43管理員登錄 界面圖 代碼運(yùn)行如下： Protected Sub logo_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = Provider=。 39。 amp。 script)