【文章內(nèi)容簡介】 id 數(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ù) 帖 子 標題 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 用來儲存用戶訂購的名單 ，如果用戶通過登錄進入電影商城，點擊購買，會出現(xiàn)訂單界面，需要用戶填 寫姓名、地址、影票數(shù)量、價格以及聯(lián)系電話，填寫完成后，我們系統(tǒng)會在文本中生成訂單形式以便查詢和保存。 如圖 38所示： 電影票售票管理系統(tǒng) 15 圖 38文本結(jié)構(gòu)圖 文件夾組織結(jié)構(gòu) 每個網(wǎng)站都會有相應(yīng)的文件夾組織結(jié)構(gòu)， 因為 網(wǎng)頁不是很多，可以將圖片、公共類或者 程序資源文件放在相應(yīng)的文件夾中，而網(wǎng)頁可以直接放在網(wǎng)站的根目錄下。電影票售票管理系統(tǒng)就是按照 此 的文件夾組織結(jié)構(gòu)排列的，如圖 39 所示： 技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 16 圖 39電影票售票管理系統(tǒng)文件夾的組織結(jié)構(gòu)圖 公共類設(shè)計 在開發(fā)項目過程中以類的形式來組織、封裝一些 常用的方法和事件，不僅可以提高代碼的重用率，也大大方便了代碼的管理。本系統(tǒng)中創(chuàng)建了一個公共類 設(shè)計，用 vb 語言綁定 Access 數(shù)據(jù)庫管理員和用戶的身份判定， 判斷業(yè)主登錄和管理員登錄。具體代碼如下： Protected Sub logo_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = Provider=。data source= amp。 (~\App_Data\) () Dim sqlcmd = select id,pw from userinfo where username=39。 amp。 Trim() amp。 39。 and gllb=39。 amp。 amp。 39。 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。Javascript39。alert(39。 amp。 請輸入用戶名39。)。/ amp。 script) Else Session(username) = Session(password) = End If Else () End If If = 管理員 Then If = Then (script language=39。Javascript39。alert(39。 amp。 請輸入用戶名39。)。/ amp。 script) Else Session(username) = Session(password) = End If Else () End If Else = 密碼不正確 = True = End If Else = 沒有這個用戶！或者用戶類型不正確！ = True End If () () End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles End Sub End Class 技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 18 第 四 章 電影票售票 管理系統(tǒng)部 分功能詳細設(shè)計 登錄模塊概述 并不是任何人都可以登錄 電影售票 管理系統(tǒng)，默認是不允許匿名登錄的，只有輸入正確的用戶名和密碼才能登錄 電影票售票 管理系統(tǒng)進行相關(guān)操作，這是需要通過登錄模塊驗證登錄用戶的合法性。登錄模塊是 電影票售票 管理系統(tǒng)的第一道安全屏障，登錄模塊運行結(jié)果如圖 41 所示 ： 圖 41登錄的界面 登錄模塊實現(xiàn)過程 輸入賬號和密碼等信息無誤后，單擊“登錄”按鈕，進行登錄。程序首先會判斷輸入登錄身份調(diào)用公共類中相應(yīng)的方法驗證賬號和密碼是否正確，如果登錄的賬號和密碼正確，則會轉(zhuǎn)向與登錄身份相符合的頁面。關(guān)鍵代碼如下： Protected Sub logo_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = Provider=。data source= amp。 (~\App_Data\) () Dim sqlcmd = select id,pw from userinfo where username=39。 amp。 Trim() amp。 39。 and gllb=39。 amp。 amp。 39。 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。Javascript39。alert(39。 amp。 請輸入用戶名39。)。/ amp。 script) Else Session(username) = Session(password) = End If Else () End If If = 管理員 Then If = Then (script language=39。Javascript39。alert(39。 amp。 請輸入用戶名39。)。/ amp。 script) Else Session(username) = Session(password) = End If Else () End If Else = 密碼不正確 = True = End If Else = 沒有這個用戶！或者用戶類型不正確！ = True End If () () 注冊模塊實現(xiàn)過程 如沒有您的信息和用戶名密碼，可以通過注冊來實現(xiàn)你的權(quán)限，注冊代碼如下： Imports Imports Partial Class reg Inherits Protected Sub ok_Click(ByVal sender As Object, ByVal e As ) Handles Dim con As New OleDbConnection = provider=。data source= amp。 (App_Data\) Dim sqlcmd1 = select * from userinfo where username=39。 amp。 amp。 39。 Dim cmd As New OleDbCommand = sqlcmd1 = con () Dim dr As OleDbDataReader dr = () If () Then = 很抱歉，已經(jīng)有人注冊了這個名字！請更換用戶名 技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 20 = True Else () Dim sqlcmd2 = insert into userinfo(username,pw,) values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) = sqlcmd2 () = 恭喜你注冊成功 ! = True End If () End Sub Protected Sub Reset_Click(ByVal sender As Object, ByVal e As ) Handles = = = = End Sub End Class 管理員模塊設(shè)計概述 在電影售票 管理系統(tǒng)中，管理員模塊具有最高權(quán)限，管理員通過登錄模塊成功登錄之后可以對 用戶信息 、 電影資源的 信息、評選 回復(fù) 信息、 發(fā)表評論 信息 和管理員密碼等進行管理，使系統(tǒng)維護起來