【導(dǎo)讀】為社會和經(jīng)濟發(fā)展的強大動力。與此同時，國內(nèi)娛樂行業(yè)特別是電影行業(yè)也發(fā)展。系統(tǒng)已經(jīng)成為各個電影院的心的追求目標。隨著計算機的革新，程序的編程也隨之簡便化，為的是方便設(shè)計系統(tǒng)的。人滿意的界面效果等。的詳細設(shè)計與實現(xiàn)過程，以及對系統(tǒng)實行的效果圖和結(jié)果。又緊接著分析了系統(tǒng)。最后對本次做了總結(jié)，總結(jié)這一開發(fā)的感受與經(jīng)驗教

　　

【正文】 m myconnectionstring As String = provider=。data source= 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。 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)提交信息點擊結(jié)賬 ，提交效果 如圖 413 所示： 技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 34 圖 413提交點擊結(jié)賬 其提交購物單的運行代碼如下： Imports Imports Imports Partial Class check Inherits Function GetProduct(ByVal productID As Integer) As DataRow Dim myconnectionstring As String = provider=。data source= 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。 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。 ) (聯(lián)系地址 : amp。 ) (聯(lián)系電話 : amp。 ) (訂票日期 : amp。 Now) (訂票要求 : amp。 ) (***************************************************) (商品名稱 數(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。 qty amp。 price amp。 total) Next (***************************************************) (總計 : amp。 ({0:c}, ftotal)) (打折 : amp。 ) (支付 : amp。 ({0:c}, ftotal * dec)) () () (提交定單成功 !) End Sub (5)對影片的評價以及回復(fù)的效果圖如 41 415 所示： 技術(shù)學(xué)院畢業(yè)設(shè)計（論文） 36 圖 414發(fā)表評論 發(fā)表評論的代碼運行如下： Imports Imports Partial Class forum Inherits Protected Sub Page_Load(ByVal sender As Object, ByVal e As ) Handles = Session(curname) amp。 閣下，歡迎你來到影片論壇！ = ?id= amp。 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=。data source= amp。 (~\App_Data\) Dim sqlcmd = insert into newpost(subject,message,postdate,userid,ip,replies,views) values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 Now() amp。 39。, amp。 Session(curuserid) amp。 ,39。 amp。 (REMOTE_ADDR) amp。 39。,0,0) Dim cmd As New OleDbCommand = sqlcmd 電影票售票管理系統(tǒng) 37 = con () () = 新帖發(fā)表成功！ () () End Sub End Class 圖 415回復(fù)評論 回復(fù)評論運行代碼如下： 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=。data source= amp。 (~\App_Data\)（） Dim sqlcmd = select subject from newpost where postid= amp。 postid Dim cmd As New OleDbCommand = sqlcmd = con