【正文】 Protected Sub post_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = Provider=。 ) (***************************************************) (商品名稱 數(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。 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)提交信息點擊結賬 ，提交效果 如圖 413 所示： 技術學院畢業(yè)設計（論文） 34 圖 413提交點擊結賬 其提交購物單的運行代碼如下： Imports Imports Imports Partial Class check Inherits Function GetProduct(ByVal productID As Integer) As DataRow Dim myconnectionstring As String = provider=。 39。 39。下面大概說下用戶的操作，下一節(jié)做詳解。Javascript39。 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 (script language=39。 (~\App_Data\) () Dim sqlcmd = select id,pw from userinfo where username=39。 amp。 amp。/ amp。)。 amp。程序首先會判斷輸入登錄身份調用公共類中相應的方法驗證賬號和密碼是否正確，如果登錄的賬號和密碼正確，則會轉向與登錄身份相符合的頁面。Javascript39。 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。 (~\App_Data\) () Dim sqlcmd = select id,pw from userinfo where username=39。這是需要建立一個數(shù)據(jù)表用來存儲所有管理員的信息。 這兩個階段 主要通過 電影售票 管理系統(tǒng)的 設計 開發(fā)方案，利用現(xiàn)有的軟硬件環(huán)境，提高系統(tǒng)的開發(fā)水平，充分 的利用資源，以便完善系統(tǒng)設計。 如下表 xinxi 表 所示 ： 技術學院畢業(yè)設計（論文） 6 xinxi表 categoryid productid name price image detail 編號 電影序號 影片名稱 價格 圖片 影片內容 回復信息表 newpost，用來存儲 客戶對電影評論的回復 。 如此 就可以便于 影院能夠對網(wǎng)絡影票進行全面的管理和了解 。因為調度可行性指的是建議的計算機系統(tǒng)能否在規(guī)定的期限內交付給用戶，所以 ，應該可以在規(guī)定時間內，快速的、完整的交付給 客 戶使用。確認該計算機已經(jīng)安裝 Microsoft Office Access 數(shù)據(jù)庫軟件 . ② 操作系統(tǒng)： Windows XP，分辨率： 1024*768。所以電影票售票管理系統(tǒng)的開發(fā)一定會得到影視影院的支持。具體地說， 就是 確定系統(tǒng)必須具有的功能和性能，系統(tǒng)要求的運行環(huán)境，并且預測系統(tǒng)開發(fā)的前景；必須仔細分析系統(tǒng)中的數(shù)據(jù)，既要分析系統(tǒng)中的數(shù)據(jù)流，又要分析長期使用的數(shù)據(jù)存儲，通過分析 來得出 功能模塊圖、數(shù)據(jù)庫表 以及界面設計的 系統(tǒng)邏輯模型。網(wǎng)上 維護 最大程度的方便了顧客。當今社會已經(jīng)步入了數(shù)字化時代。 編號 畢業(yè)設計 （ 論文 ） 題目 : 電影票售票 管理 系統(tǒng) 學生姓名 學 號 090302241144 系 部 軟件與服務外包學院 專 業(yè) 軟件技術 班 級 軟件 0913 指導教師 評閱 教師 2020 年 5 月摘 要 I 摘 要 隨著 Inter 的迅猛發(fā)展，當今社會已進入網(wǎng)絡時代，計算機網(wǎng)絡已經(jīng)成為社會和經(jīng)濟發(fā)展的強大動力。 關鍵詞 ： 電 影 售 票管理 系統(tǒng) ； ； Microsoft Visual Studio 2020. 目 錄 II 目 錄 摘 要 ............................................... I 第一章 緒論 .......................................... 1 開發(fā)背景 ............................................................................................................... 1 本課題研究的目標 ............................................................................................... 1 本課題研究意義和研究內容 ............................................................................... 2 本課題研究意義 ............................................................................................. 2 本課題研究內容 ............................................................................................. 2 第二章 系統(tǒng)需求分析 ................................... 3 系統(tǒng)可行性分析 ................................................................................................... 3 經(jīng)濟可行性 .....................................................................