【正文】 39。 amp。 amp。 total) Next (***************************************************) (總計 : 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。 amp。 amp。介紹 其 具體實現(xiàn)步驟： （ 1）注冊重置信息，如圖 47 所示： 圖 47注冊重置信息 具體實現(xiàn)注冊重置代碼如下： 電影票售票管理系統(tǒng) 27 Protected Sub ok_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = provider=。 請輸入用戶名39。 amp。 39。) = sqlcmd2 () = 恭喜你注冊成功 ! = True End If () End Sub Protected Sub Reset_Click(ByVal sender As Object, ByVal e As ) Handles = = = = End Sub End Class 管理員模塊設計概述 在電影售票 管理系統(tǒng)中，管理員模塊具有最高權限，管理員通過登錄模塊成功登錄之后可以對 用戶信息 、 電影資源的 信息、評選 回復 信息、 發(fā)表評論 信息 和管理員密碼等進行管理，使系統(tǒng)維護起來更 為簡便 。,39。 (App_Data\) Dim sqlcmd1 = select * from userinfo where username=39。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 電影票售票管理系統(tǒng) 19 If = Then (script language=39。 (~\App_Data\) () Dim sqlcmd = select id,pw from userinfo where username=39。 請輸入用戶名39。 amp。 39。 如圖 38所示： 電影票售票管理系統(tǒng) 15 圖 38文本結構圖 文件夾組織結構 每個網站都會有相應的文件夾組織結構， 因為 網頁不是很多，可以將圖片、公共類或者 程序資源文件放在相應的文件夾中，而網頁可以直接放在網站的根目錄下。 2. 對用戶輸入的數(shù)據，進行嚴格的數(shù)據檢驗，盡可能避免人為錯誤。 如下 表 userinfo 所示 ： userinfo id username pw gllb 編號 用戶姓名 密碼 郵箱 用戶類別 系統(tǒng)功能模塊分析 電影票售票管理系統(tǒng)根據需求分析和可行性分析，按系統(tǒng)角色分兩個大的模塊：管理員管理模塊和客戶操作模塊。本系統(tǒng)的角色包括了以下兩個 ： 電影票售票管理員： 對 網絡最新電影資源通知發(fā)布、新聞更新等等，以及對相關數(shù)據進行增、刪、改、查等操作。 可是一個相對完善的客戶操作系統(tǒng)的開 發(fā)雖然有了良好的開端，但也會在開發(fā)中遇到很多問題，走很多彎路，這就需要開發(fā)前備齊自己需要的資料，來讓開發(fā)中盡量減少問題，減少彎路。對于客戶，可以隨時上網搜索自己喜歡的電影各方面信息，而對于管理員，也便于 對電影的信息進行修改、添加和刪除等操作。 當今社會， VB 語言和數(shù)據庫技術的結合在世界上已經成為系統(tǒng)運行的普遍基礎模式，故而 VB 語言和數(shù)據庫技術的結合的可 行性，給系統(tǒng)帶來了技術可行性，從而達到需求效果。使用計算機對 各個企業(yè) 各項信息進行管理， 因為 具有著手工管理所無法比擬的優(yōu)點。 本課題研究的目標 隨著科技的發(fā)展，時代的進步，互聯(lián)網已經成為 了人們生活中不可缺少的東西，網上購物提勁成為了一種時代的象征，人們生活水平日以提高，壓力也越來越大，人們需要放松自己的心情，看電影顯然是個不錯的選擇，但是傳統(tǒng)的窗口售票工作效率低，人們王王需要排很長的隊伍才能買到票，不僅浪費了寶貴的時間，而且可能還會影響購票人的心情，工作人員的工作量也大，因此擁有一套完整的高效的實用的網上售票系統(tǒng)就顯得非常重要了，他可以幫你解決排隊 問題，還可以足不出戶就可以在家網上查詢電影票價和購買情況，節(jié)約了很多寶貴的時間， 故而本次研究的目標就在此。 對于傳統(tǒng) 電影票售票 而言，通過 前臺購買排隊等待 ， 其對顧客 廣泛的宣傳和服務不便利 。 隨著計算機的革新，程序的編程也隨之簡便化，為的是方便設計系統(tǒng)的工作者更好的設計系統(tǒng)，運用熟練的 PS 技術，可以美化我們的網頁排版，更進一步的吸引消費者，也讓系統(tǒng)設計人員把系統(tǒng)的網頁更加美化出來，以便設計讓人滿意的界面效果等。 本文首先介紹了當前電影售票管理系統(tǒng)的背景情況，接著分析了本次設計所涉及到的理論知識，緊接著接受了本系統(tǒng)的數(shù)據庫設計過程、頁面的設計和程序的詳細設計與實現(xiàn)過程， 以及對系統(tǒng)實行的效果圖和結果。 電影票售票系統(tǒng) 的 開發(fā)的 便利 和進入的 網絡時代 ，使得 許多影視公司 擁有了參與 電影票售票系統(tǒng) 網站的開發(fā)和設計 ，從而能夠有效地改善 電影 的 宣傳有限 和市場競爭結構，顯著提高 影視 公司的知名度 。 技術學院畢業(yè)設計（論文） 2 本課題研究意義 和 研究內容 本課題研究意義 本網站的設計與開發(fā)后的主要是 對影視公司宣傳影片，方便客戶購買影票，更好的做好電影票的管理，以及資源的共享，便捷客戶的需求，節(jié)省客戶的時間讓客戶得到優(yōu)厚服務。例如：查詢方便、可靠性高、存儲量大、保密性好和成本低等。 （ 2） 功能強大的信息平臺 技術學院畢業(yè)設計（論文） 4 目前的 電影票售票 系統(tǒng)開發(fā)平臺的功能已經十分強大。 操作可行性 在投入使用 電影票售票管理系統(tǒng) 前 ，會由開發(fā)并熟練操作本系統(tǒng)的工程人員對用戶 人員 進行專業(yè)系統(tǒng)的培訓。 系統(tǒng)需求功能概括 從調研到可行性分析中 ，出于對 客戶、管理員 需求的考慮，設計了這套電影票售票管理系統(tǒng)，本系統(tǒng)主要考慮到電影售票管理 員 和客戶的普遍要求。 普通客戶：對自己的信息 、電影票的價格和 電影資源 的查看，還有對 電影的評價 等等。下面分別介紹兩個大模塊中子模塊： 管理員模塊，如圖 21 所示 ： 電影票售票管理系統(tǒng) 7 圖 21管理員模塊 管理員模塊總共分為 五 個子模塊： 客戶 信息管理，對 客戶相關信息進行操作；票的價格信息管理，刪除或修改票的價格 ，影片信息管理，及時上傳影片的信息，管理員信息管理，更改管理員的密碼等操作； 放映時間管理，主要是通知該影片放映時間。 3. 系統(tǒng)管理員擁有系統(tǒng)維護的所有權限。電影票售票管理系統(tǒng)就是按照 此 的文件夾組織結構排列的，如圖 39 所示： 技術學院畢業(yè)設計（論文） 16 圖 39電影票售票管理系統(tǒng)文件夾的組織結構圖 公共類設計 在開發(fā)項目過程中以類的形式來組織、封裝一些 常用的方法和事件，不僅可以提高代碼的重用率，也大大方便了代碼的管理。 and gllb=39。 請輸入用戶名39。)。 amp。Javascript39。alert(39。 amp。 amp。管理員模塊運行的結果如圖42 所示 ： 電影票售票管理系統(tǒng) 21 圖 42管理員模塊運行的結果圖 管理員模塊技術分析 在開發(fā)后臺管理員模塊過程中，使用了比較頻繁的 （） 方法綁定數(shù)據。 and gllb=39。 請輸入用戶名39。)。data source= amp。 39。 39。 ) (聯(lián)系地址 : amp。 ({0:c}, ftotal)) (打折 : amp。 amp。 Now() amp。,0,0) Dim cmd As New OleDbCommand = sqlcmd 電影票售票管理系統(tǒng) 37 = con () () = 新帖發(fā)表成功！ () () End Sub End Class 圖 415回復評論 回復評論運行代碼如下： 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=。 (REMOTE_ADDR) amp。,39。 (~\App_Data\) Dim sqlcmd = insert into newpost(subject,message,postdate,userid,ip,replies,views) values(39。 price 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。 amp。 客戶 操作模塊實現(xiàn)過程 用戶 操作模塊實現(xiàn)的具體功能有對個人基本信息、 影片的查詢 、 對影片的發(fā)表評論 信息、 回復 信息 、提交資料購物 和 設置 密碼等。 amp。alert(39。 Trim() amp。 39。 39。data source= amp。 script) Else Session(username) = Session(password) = End If Else () End If If = 管理員 Then If =