【正文】 Then (script language=39。 39。data source= amp。 amp。alert(39。 Trim() amp。表 userinfo 表 用來保存所有系統(tǒng)管理員信息 和用戶信息 ， 如下 表 31 所示 ： Userinfo 表 字段名稱 數(shù)據(jù)類型 id 自動編號 username 文本 pw 文本 文本 gllb 文本 表 31 管理員信息和用戶信息 userinfo 表 表 newpost 用來儲存用戶對影片評論的發(fā)表 ， 如 下表 32 所示： Newpost 表 字段名稱 數(shù)據(jù)類型 postid 自動編號 帖子序號 subject 文本 發(fā)帖標(biāo)題 message 備注 帖子內(nèi)容 postdate 日期 /時間 userid 數(shù)字 回帖 用戶序號 ip 文本 發(fā)帖用戶地址 replies 數(shù)字 回帖數(shù)量 views 數(shù)字 被瀏覽次數(shù) 技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 14 表 32評論表 Newpost表 表 reply 儲存用戶對影片的評論回復(fù) ，如表 33 所示： reply表 字段名稱 數(shù)據(jù)類型 replyid 自動編號 回復(fù) 帖子序號 subject 文本 回復(fù) 帖 子 標(biāo)題 ip 文本 回復(fù)用戶的 ip地址 userid 數(shù)字 回帖用戶序號 message 備注 回復(fù)帖子內(nèi)容 postid 數(shù)字 原帖序號 postdate 日期 /時間 回帖 日期 表 33回復(fù)表 reply表 表 xinxi 表 信息表用來儲存電影的資源信息價格以及放映時間如 表 34 所示： Xinxi表 字段名稱 數(shù)據(jù)類型 categoryid 數(shù)字 productid 數(shù)字 name 文本 price 數(shù)字 image 文本 detail 備注 表 34 信息表 xinxi 表 文本 list 用來儲存用戶訂購的名單 ，如果用戶通過登錄進(jìn)入電影商城，點擊購買，會出現(xiàn)訂單界面，需要用戶填 寫姓名、地址、影票數(shù)量、價格以及聯(lián)系電話，填寫完成后，我們系統(tǒng)會在文本中生成訂單形式以便查詢和保存。本系統(tǒng)主要實現(xiàn) 以 下目標(biāo)： 1. 本系統(tǒng)采用人機交互的方式，界面美觀友好，信息查詢靈活、方便數(shù)據(jù)存儲安全可靠。 如下 表 replay 所示 : reply表 replyid subject ip message postid postdate 編號 主題 評論地址 評論內(nèi)容 評論次數(shù) 評論日期 管理員用戶信息表 userinfo,用來存儲管理員信息。 在 開發(fā) 設(shè)計過程中，首先要對系統(tǒng)進(jìn)行分析，確定系統(tǒng)角色，即各類用戶在系統(tǒng)中所承擔(dān)的 角色。 客戶需求往往是不完善的、不明確的，因此 電影票 管理系統(tǒng)的開發(fā)目標(biāo)必須以滿足客 戶需求為前提，而在系統(tǒng)開發(fā)的第一階段中， 需要開發(fā)者調(diào)查客 戶對需電影票售票管理系統(tǒng) 5 求 的內(nèi)容以及想法，并分析其可行性，從而滿足客戶需求 。 用戶使用可行性 目前，電腦已經(jīng)普及到各家各戶，無論是家庭還是辦公室均已介入 Inter，上網(wǎng)十分方便。 技術(shù)可行性 （ 1） 運用的 技術(shù) 可行性 根據(jù)系統(tǒng)的的運行，主要用到了 VB 語言， Microsoft Office Access 數(shù)據(jù)庫管理技術(shù) 。 經(jīng)濟可行性 隨著我國國民經(jīng)濟的飛速發(fā)展，網(wǎng)店管理已經(jīng)作為一個新興的服務(wù)行業(yè)，經(jīng)過 這幾 年的發(fā)展，已經(jīng)逐步形成企業(yè)化經(jīng)營、專業(yè)化管理和社會 服務(wù)化的管理機構(gòu) 。本次設(shè)計的 電影票售票系統(tǒng) 是一種具有交互功能的商業(yè) 網(wǎng)站 ， 可以方便服務(wù)于每一個客戶。以往我們 企業(yè)系統(tǒng)維護要上門服務(wù) ，現(xiàn)在隨著 Inter 的飛速發(fā)展，我們已經(jīng) 實現(xiàn)了網(wǎng)上宣傳和系統(tǒng)維護 。 本次設(shè)計以 Microsoft Office Studio 2020 為前臺主要開發(fā)工具，以 作為開發(fā)技術(shù)，后臺數(shù)據(jù)庫采用微軟的數(shù)據(jù) Microsoft Office Office Access,并結(jié)合 技術(shù)開發(fā)出一個全面支持廣域網(wǎng)絡(luò)辦公模式的應(yīng)用系統(tǒng)，該系統(tǒng)具有頁面友好、操作便捷等優(yōu)勢，它為使用者 提供一個全新的平臺，有較好的應(yīng)用前景。又緊接著分析了系統(tǒng)的 運用的代碼實現(xiàn)的效果。 網(wǎng)絡(luò) 發(fā)展到今天，是必然的結(jié)果。 本課題研究內(nèi)容 本系統(tǒng)使用 .NET 平臺中的 開發(fā)基于 B/S 體系結(jié)構(gòu)的 web 應(yīng)用系統(tǒng)， 運用 VB 語言實現(xiàn)系統(tǒng)功能的實現(xiàn)，結(jié)合 Microsoft Office Access 應(yīng)用程序 數(shù)據(jù)庫設(shè)計和搭建數(shù)據(jù)庫等等。目前，幾乎所有的影院影視公司都建立了針對售票職能工作的管理信息系統(tǒng)，如網(wǎng)上購物管理系統(tǒng)，電影票售票管理系統(tǒng) 、淘寶網(wǎng) 等等。 Microsoft Visual Studio 2020 具有 Web 開發(fā)的強大優(yōu)勢， Microsoft Office Access 應(yīng)用程序 是性能穩(wěn)定的服務(wù)器平臺。培訓(xùn) 主要包括 熟練掌握系統(tǒng)的各個功能和簡單的系統(tǒng)維護， 總樣操縱系統(tǒng)等。 在 電影售票管理的要求 中， 對新電影資料的錄入和增、刪、改和查詢等功能，運用 這些新電影的資源 來 對電影票進(jìn)行管理。 系統(tǒng)數(shù)據(jù)需求分析 本系統(tǒng)是電影售票管理系統(tǒng)，所以在這個過程中需要電影資源的信息、影院信息、電影價格的信息及日常管理過程中需要的信息表。 客戶操作模塊，如圖 22 所示 ： 圖 22 客戶操作模塊 客戶 操作模塊總共分為 五 個子模塊：個人基本信息，根據(jù)登錄者的 類型 顯示相對應(yīng)的 客戶 基本信息等； 評論信息管理，對影片的評價；票的價格 查詢 ，方便客戶了解票的價格；放映時間查詢，影院的放映時間，讓 客戶 了解；影片信息查技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 8 詢，方便了解影片的信息，找自己喜歡的影片。 4. 系統(tǒng)最大限度的實現(xiàn)了易維護性和易操作性。本系統(tǒng)中創(chuàng)建了一個公共類 設(shè)計，用 vb 語言綁定 Access 數(shù)據(jù)庫管理員和用戶的身份判定， 判斷業(yè)主登錄和管理員登錄。 amp。)。/ amp。 Trim() amp。alert(39。 amp。 amp。 amp。 管理員模塊實現(xiàn)過程 管理員管理模塊實現(xiàn)的具體功能有管理用戶信息、電影票資源信息、評論信息、回復(fù)信息 ， 管理員密碼等。 amp。)。/ amp。 (App_Data\) Dim sqlcmd1 = select * from userinfo where username=39。,39。) = sqlcmd2 () = 恭喜你注冊成功 ! = True End If () End Sub Protected Sub Reset_Click(ByVal sender As Object, ByVal e As ) Handles = = = = End Sub End Class (2)注冊信息后 登錄界面，跳轉(zhuǎn)到電影票的購買界面如圖 48 所示： 技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 28 圖 48電影票的購買界面 點擊圖片購買自己喜歡的 電影類型國外 、 國內(nèi) 、 動漫 效果如圖 4 4411 所示： 電影票售票管理系統(tǒng) 29 圖 49國外電影 圖 410國內(nèi) 電影 技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 30 圖 411動漫電影 (3)點擊購買，選擇你需要的票數(shù)如圖 412 所示 ： 圖 412購買界面 電影票售票管理系統(tǒng) 31 然后按照需要對自己喜歡的影片購買，購買以及以上運行代碼如下： 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è)計（論文） 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=。 ) (聯(lián)系電話 : amp。 ) (支付 : amp。 39。 39。data source= amp。 amp。 39。data source= amp。 qty amp。data source= amp。,39。 Dim cmd As New OleDbCommand