畢業(yè)論文---論計算機在影視業(yè)的應用

1、<p><b>　　畢業(yè)設計任務書</b></p><p>　　【課題需要完成的任務】</p><p>　　基于VB.NET+ADO.NET進行C/S架構的數(shù)據(jù)庫應用程序的開發(fā)，采用visual Basic開發(fā)平臺和SqlServer2005數(shù)據(jù)庫后臺的方法，實現(xiàn)一個易于使用的現(xiàn)代的影院售票管理系統(tǒng)。功能包括系統(tǒng)管理、售票管理、檢票、退票、售票統(tǒng)計等模塊。界

2、面采用winForm技術，推崇美觀、友好的設計理念。在程序中盡量減少代碼的重復，提高代碼的復用率。</p><p><b>　　【課題實踐步驟：】</b></p><p>　　需求分析：問題的提出、問題的解決方案設計。</p><p>　　概要設計：在需求分析的基礎之上進行概要設計，繪制模塊圖。選擇開發(fā)工具和開發(fā)技術。</p>&

3、lt;p>　　詳細設計：包括數(shù)據(jù)庫設計。系統(tǒng)界面設計</p><p>　　系統(tǒng)開發(fā)：進入真正的編碼階段。利用具體的技術實現(xiàn)具體的功能。設計類、界面。</p><p>　　部署運行：最后的測試、部署、調試階段。保證程序可以順利運行。</p><p><b>　　【課題計劃】</b></p><p>　　第一周：主要進

4、行需求分析，抽取業(yè)務所在。并提供一個預訂的解決方案。</p><p>　　第二周：概要設計，選擇合適的開發(fā)工具，開發(fā)模式，并繪制系統(tǒng)的模塊圖。</p><p>　　第三周：詳細設計數(shù)據(jù)庫，表結構。</p><p>　　第四周－第六周：系統(tǒng)功能實現(xiàn)，也就是真正的編碼階段。具體功能的實現(xiàn)。</p><p>　　第七周：寫出各類文檔和畢業(yè)論文<

5、;/p><p>　　對畢業(yè)論文進行修改，并準備答辯。</p><p>　　【答辯時間】： </p><p><b>　　（部、分院）</b></p><p>　　2010年 月 日</p><p>　　論計算機在影視業(yè)的應用</p><p&g

6、t;<b>　　【關鍵字】</b></p><p>　　電影、計算機、應用、票務管理、程序設計、visual Basic、mvc、設計模式。</p><p><b>　　【摘要】</b></p><p>　　電影的產(chǎn)生改變人們的生活和娛樂習慣。去影院看電影也成為人們平時休閑娛樂、交友、學習的重要內容。生活習慣的改變影響著影

7、院的發(fā)展。影院的規(guī)模越來越大，經(jīng)營管理也越來越受到影院經(jīng)營者的關注。計算機的發(fā)展和軟件業(yè)的興起對影院的發(fā)展產(chǎn)生了很大的影響。借助與計算機的軟件的強大功能，影院的經(jīng)營管理模式發(fā)生了中大變化。文章將結合電影業(yè)的發(fā)展和變遷，討論計算機的發(fā)展對電影業(yè)的影響，討論計算機技術在電影業(yè)的應用。以及使用visual basic語言開發(fā)影院售票系統(tǒng)相關問題。論文主要介紹了本課題的開發(fā)背景、系統(tǒng)分析、數(shù)據(jù)庫設計和系統(tǒng)的設計與實現(xiàn)。</p>&

8、lt;p><b>　　【Keyword】</b></p><p>　　movie、computer、application、ticket、program、visual Basic、mvc、Design parttern。</p><p>　　【Abstract】</p><p>　　Filmdom’s development change

9、 the habit of people ,we go to the cinema with our friends,it’s very good,so the size of cinema become bigger and bigger. The business of cinema arouse people’s attention.This article will be tall about the effect to f

10、ilmdom of computer develop ,Through the talk I will notice the history of filmdom. My topic is the application that made by program in filmdom. and also I will spend the most sections to talk about programming in develop

11、 application with visual basic.</p><p><b>　　目錄</b></p><p>　　緒論····················

12、····································

13、3;···5</p><p>　　前言·····························

14、······························5</p><p>　　研究背景··

15、····································

16、3;················5</p><p>　　系統(tǒng)概述及工具介紹···············

17、;·······························6</p><p>　　系統(tǒng)概述·

18、;····································

19、83;·················6</p><p>　　數(shù)據(jù)庫技術··············&#

20、183;····································

21、··6</p><p>　　visual Basic····························

22、3;························6</p><p>　　控件介紹·······

23、3;····································&#

24、183;··········7</p><p>　　ADO.net技術····················

25、83;······························8</p><p>　　需求分析·

26、83;····································&

27、#183;················10</p><p>　　需求分析···············

28、····································

29、3;··10</p><p>　　系統(tǒng)框架圖·····························&#

30、183;······················10</p><p><b>　　系統(tǒng)設計</b></p><p>　　數(shù)據(jù)庫設計·&#

31、183;····································

32、··············11</p><p>　　程序設計··················

33、;····································13&

34、lt;/p><p>　　登錄模塊································&#

35、183;·············13</p><p>　　系統(tǒng)主界面··················

36、··························15</p><p>　　影片管理······

37、;····································

38、83;···17</p><p>　　操作員管理····························&

39、#183;···············20</p><p>　　預訂票管理················

40、;····························22</p><p>　　檢票退票···

41、3;····································&#

42、183;·····25</p><p>　　售票統(tǒng)計··························&

43、#183;···················27</p><p>　　結束語············&

44、#183;····································

45、;········28</p><p>　　參考文獻·······················

46、3;·······························28</p><p><b>

47、　　第一章 緒論</b></p><p><b>　　【前言】</b></p><p>　　計算機軟件作為一門學科得到了迅速發(fā)展，相關技術和方法層出不窮，研究領域不斷深入和發(fā)展，計算機的應用范圍也得到了很大程度的普及。影視業(yè)的蓬勃發(fā)展也對計算機應用產(chǎn)生了極大的需求。不僅在電腦特效、音效合成、電影宣傳，影院的經(jīng)營與完善也要借助與計算機提供的強大支持，如影院的

48、自動播放系統(tǒng)，售票系統(tǒng)等等。這篇文章就主要討論影院的售票系統(tǒng)發(fā)展。</p><p><b>　　【開發(fā)背景】</b></p><p>　　電影的產(chǎn)生改變人們的生活和娛樂習慣。去影院看電影也成為人們平時休閑娛樂、交友、學習的重要內容。生活習慣的改變影響著影院的發(fā)展。影院的規(guī)模越來越大，經(jīng)營管理也越來越受到影院經(jīng)營者的關注。</p><p>　　隨

49、著計算機技術的發(fā)展，特別是計算機軟件技術與數(shù)據(jù)庫技術的發(fā)展，使用人們的生活與工作方式發(fā)生了很大的改觀。數(shù)據(jù)庫始于20世紀60年代，經(jīng)過40多年的發(fā)展，現(xiàn)在已經(jīng)形成了理論體系，成為計算機軟件的一個重要分支。數(shù)據(jù)庫技術體現(xiàn)了當代先進的數(shù)據(jù)管理方法，使計算機的應用真正滲透到國民經(jīng)濟各個部門，在數(shù)據(jù)處理領域發(fā)揮著越來越大的作用。</p><p>　　統(tǒng)的影院售票模式是人工的，一旦影院規(guī)模擴大，多場次、多包間，業(yè)務越來越細

50、化，這種傳統(tǒng)的售票模式就不能適應。必須有一種快捷、方便的經(jīng)營模式出現(xiàn)，利用計算機軟件的強大功能，就可以很容易完成這些任務。并且還能提供更多的更人性化的服務，比如預訂票，更換場次、推遲場次，更換包間、退票，檢票等等，如果是傳統(tǒng)的人工售票模式，將很難完成。接下來我就將介紹我使用微軟.net框架下的visual Basic 語言開發(fā)的售票系統(tǒng)。</p><p><b>　　系統(tǒng)概述及工具介紹</b>

51、;</p><p><b>　　【系統(tǒng)概述】</b></p><p>　　這是一個簡單的影院售票管理系統(tǒng)，提供了影院售票過程中可能遇到的各種操作。如：添加新影片、修改或刪除影片信息、搜索影片、售票、打印影票、檢票、退票、預訂票、統(tǒng)計售票基本情況等。</p><p><b>　　【數(shù)據(jù)庫技術】</b></p>

52、<p>　　數(shù)據(jù)庫引擎是用于存儲、處理和保護數(shù)據(jù)的核心服務。數(shù)據(jù)庫引擎提供了受控訪問和快速事務處理，以滿足企業(yè)內最苛刻的數(shù)據(jù)消費應用程序的要求。數(shù)據(jù)庫引擎還提供了大量的支持以保持高可用性。SQL Server 提供了設計、開發(fā)、部署和管理關系數(shù)據(jù)庫、Analysis Services 多維數(shù)據(jù)集、數(shù)據(jù)轉換包、復制拓撲、報表服務器和通知服務器所需的工具</p><p>　　SQL Server Manag

53、ement Studio：這是微軟的另外一款強大的數(shù)據(jù)庫系統(tǒng)開發(fā)工具，他除了是一個強大的IDE，同時還包含了數(shù)據(jù)庫服務、報表服務等功能。它也是最流行的數(shù)據(jù)庫系統(tǒng)之一?，F(xiàn)在最常見的數(shù)據(jù)庫系統(tǒng)有：oracle（甲骨文）、DB2（IBM公司）、Sysbase等。該工具秉承了微軟的一貫作用，高集成，它可與vsiaul studio進行無縫的集成，使用開發(fā)人員在開發(fā)應用時更加的快速和方便。可以使用Vs提供的數(shù)據(jù)庫訪問工具很輕松的連接到sql se

54、rver服務，同時可以建立數(shù)據(jù)庫、表、存儲過程、視圖等。SQL Server是微軟推出的中小型網(wǎng)絡數(shù)據(jù)庫系統(tǒng)，是目前最常用的數(shù)據(jù)庫系統(tǒng)之一。隨著SQL Server網(wǎng)絡數(shù)據(jù)庫應用程序日益增多，這種Web數(shù)據(jù)庫應用系統(tǒng)的正常運行一般依賴于已存在的用戶數(shù)據(jù)庫。創(chuàng)建維護數(shù)據(jù)庫的工作可用SQL Server提供的SQL Enterprise Manager工具來進行，如能提供一種定制的數(shù)據(jù)庫管理工具，通過管理應用程序來管理數(shù)據(jù)庫及其設備，對用戶

55、來說無疑是最理想的。</p><p>　　SQLServer2005客戶端/服務器數(shù)據(jù)庫系統(tǒng)由以下兩個組件組成： </p><p>　　程序，為基于客戶端的用戶提供界面以訪問數(shù)據(jù)。</p><p>　　數(shù)據(jù)庫結構，管理和存儲服務器上的數(shù)據(jù)。例如，如果使用 Microsoft SQL Server 2005 創(chuàng)建支票帳戶應用程序，則必須設置一個數(shù)據(jù)庫結構來管理帳戶交易

56、數(shù)據(jù)，還要設置一個應用程序充當數(shù)據(jù)庫的用戶界面。這使用戶可以訪問支票帳戶信息。</p><p>　　創(chuàng)建能夠滿足業(yè)務需要的數(shù)據(jù)庫，要求了解如何設計、創(chuàng)建和維護各個組件，這樣才能確保數(shù)據(jù)庫的性能處于最佳狀態(tài)。</p><p>　　【visual Basic】</p><p>　　Microsoft Visual Studio 6.0：這是微軟公司提供的一款集成IDE開

57、發(fā)工具，主要使用對象為.net程序員，即使用.net框架下的語言進行開發(fā)的程序員。該工具為c/s架構下的GUI開發(fā)和B/S架構下的網(wǎng)站開發(fā)都提供了強大的工具支持，如工程建立、代碼聯(lián)想、代碼著色、控件化開發(fā)、調試、測試等。而且該工具不只適合與vb程序員，C++、vf等程序員也可以使用該工具提供的功能。工具的最新版本是vs2010，增加了對C#程序員、基于ajax的網(wǎng)站開發(fā)、linq、silverlight富客戶端開發(fā)等的支持。功能更加強大

58、。</p><p>　　VB訪問SQL Server數(shù)據(jù)的常用方法</p><p>　　使用Visual Basic作為前端開發(fā)語言，與SQL Server接口有幾種常用的方法，即：</p><p>　?、贁?shù)據(jù)訪問對象/Jet</p><p>　?、跒镺DBC API編程</p><p>　?、凼褂肧QL Server

59、的Visual Basic庫(VBSQL)為DB庫的API編程</p><p>　?、躌DO 遠程數(shù)據(jù)對象(RemoteData Objects)</p><p>　?、軦DO 數(shù)據(jù)對象(Active Data Objects)</p><p><b>　　【控件介紹】</b></p><p>　?。?）Windows窗

60、體：</p><p>　　Windows 窗體控件是可重用的組件，它們封裝了用戶界面功能，可以在基于 Windows 的客戶端應用程序中使用?！癢indows 窗體”不僅提供了許多現(xiàn)成控件，還提供了自行開發(fā)控件的基礎結構?？梢越M合現(xiàn)有控件、擴展現(xiàn)有控件或創(chuàng)作自己的自定義控件。</p><p>　?。?）DataGrid控件：</p><p>　　Windows 窗體

61、 DataGrid 控件可為 ADO.NET 數(shù)據(jù)集提供用戶界面，以顯示表格數(shù)據(jù)并允許對數(shù)據(jù)源進行更新。當 DataGrid 控件設置為有效的數(shù)據(jù)源時，該控件將被自動填充，同時根據(jù)數(shù)據(jù)的形狀創(chuàng)建列和行。DataGrid 控件可以用于顯示單個表或顯示一組表之間的分層關系。</p><p>　?。?）DataGridVIew控件：</p><p>　　新版的.net框架中，該控件替換了Data

62、Grid，DataGridView 控件提供一種強大而靈活的以表格形式顯示數(shù)據(jù)的方式?？梢允褂?DataGridView 控件來顯示少量數(shù)據(jù)的只讀視圖，也可以對其進行縮放以顯示特大數(shù)據(jù)集的可編輯視圖。可以用很多方式擴展 DataGridView 控件，以便將自定義行為內置在應用程序中。例如，可以采用編程方式指定自己的排序算法，以及創(chuàng)建自己的單元格類型。通過選擇一些屬性，可以輕松地自定義 DataGridView 控件的外觀?？梢詫⒃S多類

63、型的數(shù)據(jù)存儲區(qū)用作數(shù)據(jù)源，也可以在沒有綁定數(shù)據(jù)源的情況下操作 DataGridView 控件。</p><p>　?。?）ListView控件：</p><p>　　Windows 窗體 ListView 控件顯示了帶圖標的項的列表?？墒褂昧斜硪晥D創(chuàng)建類似于 Windows 資源管理器右窗格的用戶界面。該控件具有四種視圖模式：“LargeIcon”、“SmallIcon”、“List”和“

64、Details”。ListView 控件的主要屬性是 Items，該屬性包含該控件顯示的項。SelectedItems 屬性包含控件中當前選定項的集合。如果將 MultiSelect 屬性設置為 true，則用戶可選擇多項，例如，同時將若干項拖放到另一個控件中。如果將 CheckBoxes 屬性設置為 true，ListView 控件可以顯示這些項旁的復選框。Activation 屬性可以確定用戶激活列表中的某項時必須執(zhí)行的操作類型：選

65、項有 Standard、OneClick 和 TwoClick。執(zhí)行 OneClick 激活時，需要通過一次單擊激活該項。執(zhí)行 TwoClick 激活時，要求用戶通過雙擊激活該項；一次單擊可以更改該項的文本顏色。執(zhí)行 Standard 激活時，要求用戶通過雙擊激活某項，但是該項的外觀不會發(fā)生更改。</p><p>　?。?）imageList控件：</p><p>　　在 Visual B

66、asic 6.0 中，Picture、DownPicture 和 DisabledPicture 屬性用于根據(jù) CheckBox、CommandButton 或 OptionButton 控件的狀態(tài)顯示不同的圖片。例如，如果選中 CheckBox 控件，則顯示 DownPicture 圖像；如果禁用該控件，則顯示 DisabledPicture 圖像。在 Visual Basic 2005 中，使用 ImageList 控件可以獲得同樣

67、的效果，例如：在運行時顯示 DisabledPicture 圖像</p><p>　　If CheckBox1.Enabled = False Then</p><p>　　' Assign the third image (DisabledPicture) to the Image property.</p><p>　　CheckBox1.Image =

68、 ImageList1.Images(2)</p><p>　　ElseIf CheckBox1.Checked = True Then</p><p>　　' Assign the second image (DownPicture) to the Image property</p><p>　　CheckBox1.Image = ImageList1.

69、Images(1)</p><p><b>　　Else</b></p><p>　　' Assign the first image (Picture)to the Image property</p><p>　　CheckBox1.Image = ImageList1.Images(0)</p><p>&

70、lt;b>　　End If</b></p><p>　　以上介紹的控件在本應用中都進行了使用。</p><p>　　【ADO.net技術】</p><p>　　任何數(shù)據(jù)庫應用程序的一項主要功能是連接數(shù)據(jù)源并檢索數(shù)據(jù)源中包含的數(shù)據(jù)。ADO.NET 的 .NET Framework 數(shù)據(jù)提供程序充當應用程序和數(shù)據(jù)源之間的橋梁，使您可以執(zhí)行命令以及使用

71、DataReader 或 DataAdapter 檢索數(shù)據(jù)。例如下面的一個應用：</p><p>　　讀取數(shù)據(jù)庫連接信息：</p><p>　　Dim strTmp As String, strT() As String</p><p>　　Open App.Path & "\sql.inf" For Input As #1</p&

72、gt;<p>　　If EOF(1) = False Then Line Input #1, strTmp</p><p><b>　　Close #1</b></p><p>　　strTmp = Trim(strTmp)</p><p>　　If strTmp <> "" Then</p&

73、gt;<p>　　strT = Split(strTmp, "||")</p><p>　　For i = 0 To 3</p><p>　　strT(i) = strT(i)</p><p><b>　　Next</b></p><p>　　strserver = strT(0)<

74、;/p><p>　　struser = strT(1)</p><p>　　strpwd = strT(2)</p><p>　　strdb = strT(3)</p><p><b>　　End If</b></p><p><b>　　執(zhí)行一個查詢操作：</b></p&

75、gt;<p>　　Dim sql As String</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　sql = "select * from maintain where mtnnum='" & Trim(Me.Combo2.Text) & "' "

76、</p><p>　　rs.Open sql, cn</p><p>　　If rs.EOF = False Then</p><p>　　Me.DTPicker1(0).Value = Trim(rs.Fields("rpttime").Value) & ""</p><p>　　Me.Tex

77、t2.Text = Trim(rs.Fields("consumer").Value) & ""</p><p>　　Me.Text3.Text = Trim(rs.Fields("csmphoto").Value) & ""</p><p>　　Me.Text4.Text = Trim(rs.

78、Fields("csmaddress").Value) & ""</p><p>　　Me.Text5.Text = Trim(rs.Fields("rtpcontent").Value) & ""</p><p>　　idflag = Trim(rs.Fields("mtnid&qu

79、ot;).Value)</p><p><b>　　Else</b></p><p>　　MsgBox "沒有找到該記錄！", vbOKOnly + vbExclamation, "信息提示！"</p><p><b>　　End If</b></p><p>

80、;<b>　　End Sub</b></p><p>　　要編寫安全的 ADO.NET 應用程序，所涉及的問題不僅僅是要避免常見的編碼缺陷。訪問數(shù)據(jù)的應用程序包含許多潛在的故障點，攻擊者可以利用這些故障點來檢索、操縱或破壞敏感的數(shù)據(jù)。一定要了解安全的各個方面，從應用程序設計階段建立威脅模型的過程，到應用程序的最終部署，到對應用程序的不斷的實時維護，都要考慮到。</p><

81、p><b>　　第三章 需求分析</b></p><p><b>　　【需求分析】</b></p><p>　　需求分析是軟件設計當中最重要的步驟之一，它也是決定一個軟件產(chǎn)品好壞的重要因素。通過需求分析可以得知該系統(tǒng)的可行性程度，開發(fā)難度，并決定應該使用的技術和開發(fā)工具。這是一個基于C/S架構的數(shù)據(jù)庫應用程序，主要用在影院的影片和售票管理方

82、面，主要功能模塊如下：</p><p>　　影片管理：增加、刪除、修改影片。</p><p>　　系統(tǒng)管理：該模塊又包含了操作員管理、重新登錄、退出系統(tǒng)模塊。</p><p>　　預訂票管理：提供了預訂票的功能</p><p>　　登錄模塊：主要給操作員提供一個登錄系統(tǒng)的界面，并驗證用戶名稱和密碼。</p><p>　

83、　檢票：在觀眾入場時使用</p><p>　　退票：該功能有時間限制，在開場之后一段時間是不能退票的</p><p>　　統(tǒng)計信息：可以按照年月日對過去的售票記錄進行查詢、統(tǒng)計。這樣很容易得到當天或一段時間內的銷售業(yè)績。</p><p><b>　　【系統(tǒng)框架圖】</b></p><p><b>　　圖 1 功

84、能模塊圖</b></p><p>　　本系統(tǒng)選擇VisualBasic6.0集成開發(fā)工具和SqlServer2005 數(shù)據(jù)庫系統(tǒng)。</p><p><b>　　第四章 系統(tǒng)設計</b></p><p><b>　　數(shù)據(jù)庫設計：</b></p><p>　　數(shù)據(jù)庫設計分為詳細設計和物理設計

85、。根據(jù)系統(tǒng)的需求分析得出，該系統(tǒng)的數(shù)據(jù)流向和數(shù)據(jù)可能有以下內容：操作員、影片信息、售票信息、退票信息、公告信息、檢票口信息等，以下是根據(jù)需求分析之后得出的系統(tǒng)的數(shù)據(jù)結構字典：</p><p><b>　　【詳細設計】</b></p><p><b>　　表1 操作員信息表</b></p><p><b>　　表2

86、 影片信息</b></p><p><b>　　表3 售票信息</b></p><p><b>　　表4 公告信息</b></p><p><b>　　表5 檢票口信息</b></p><p><b>　　【物理設計】</b></p>

87、;<p>　　即根據(jù)ER圖或根據(jù)詳細設計部分得出的數(shù)據(jù)字典，在數(shù)據(jù)庫設計器中進行數(shù)據(jù)庫模型、表結構的具體建立。數(shù)據(jù)庫設計器是一種可視化工具，它允許您對所連接的數(shù)據(jù)庫進行設計和可視化處理。設計數(shù)據(jù)庫時，可以使用數(shù)據(jù)庫設計器創(chuàng)建、編輯或刪除表、列、鍵、索引、關系和約束。為使數(shù)據(jù)庫可視化，可創(chuàng)建一個或更多的關系圖，以顯示數(shù)據(jù)庫中的部分或全部表、列、鍵和關系。</p><p>　　除了通過設計器進行建立，還

88、可以通過編寫sql腳本來建立數(shù)據(jù)庫和表結構。腳本實例：use master </p><p><b>　　go</b></p><p>　　if exists (select * from sysdatabases where name = 'Hr')</p><p>　　drop database Hr</p>

89、<p><b>　　go</b></p><p>　　create database "Hr" </p><p>　　ON PRIMARY</p><p>　　( NAME = hr_db, FILENAME = 'd:\hr_db.mdf', SIZE = 3 MB, MAXSIZE = UNL

90、IMITED, FILEGROWTH = 256 KB )</p><p><b>　　LOG ON</b></p><p>　　( NAME = hr_log, FILENAME = 'd:\hr_log.ldf', SIZE = 1 MB, MAXSIZE = UNLIMITED, FILEGROWTH = 256 KB ) </p>

91、<p><b>　　go</b></p><p>　　以上腳本可以完成數(shù)據(jù)庫的建立。</p><p>　　use "Hr" </p><p>　　go */ </p><p>　　create

92、 table "users" ( </p><p>　　"u_id" int identity not null,</p><p>　　"u_name" varchar(60) not null,</p><p>　　"u_true_name" varchar(60) not null,

93、</p><p>　　"u_password" varchar(60) not null,</p><p>　　roleId int </p><p><b>　　) </b></p><p>　　以上腳本可以完成在數(shù)據(jù)庫hr中建立一個用戶表。</p><p><b&g

94、t;　　程序設計：</b></p><p>　　程序設計即coding階段。本系統(tǒng)采用vb語言進行實現(xiàn)，下面是主要功能的實現(xiàn)思路和代碼邏輯：</p><p><b>　　A、登錄模塊：</b></p><p><b>　　圖2 登錄窗口</b></p><p>　　【實現(xiàn)思路】該窗口在系

95、統(tǒng)開始運行前首先顯示，通過驗證輸入的用戶名和密碼來讓操作員進入系統(tǒng)。登錄成功后將進入系統(tǒng)主界面：</p><p><b>　　【流程圖】</b></p><p><b>　　圖3 登錄流程圖</b></p><p><b>　　【實現(xiàn)代碼】</b></p><p><b&

96、gt;　　代碼段1：</b></p><p>　　驗證輸入的用戶名稱是否為空：</p><p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text = "" Or Text2.Text = "" Then</p><p>　　If T

97、ext1.Text = "" Then</p><p>　　MsgBox "請輸入用戶名", 16</p><p>　　Text1.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p

98、><p>　　MsgBox "請輸入密碼", 16</p><p>　　Text2.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If&l

99、t;/b></p><p>　　不為空則到數(shù)據(jù)庫去查詢該用戶的信息，驗證密碼和用戶名是否正確</p><p>　　If rs.State = 1 Then rs.Close</p><p>　　rs.Open "select * from operator where optname='" & Text1.Text &

100、; "' and optpwd='" & Text2.Text & "' ", cn</p><p>　　If rs.EOF = False Then</p><p>　　If rs.Fields("optrgt").Value <> True Then</p>&

101、lt;p>　　MDIForm1.MenuOperator.Visible = False</p><p>　　MDIForm1.OperEmp.Visible = False</p><p>　　MDIForm1.Toolbar1.Buttons(1).Visible = False</p><p>　　MDIForm1.Toolbar1.Buttons(2)

102、.Visible = False</p><p><b>　　End If</b></p><p>　　MDIForm1.Show</p><p><b>　　Unload Me</b></p><p><b>　　Exit Sub</b></p><p&g

103、t;<b>　　Else</b></p><p>　　lcount = lcount + 1</p><p>　　If lcount < 4 Then</p><p>　　MsgBox "輸入有錯誤，你還剩下" & 3 - lcount & "登錄機會", 32</p>

104、<p><b>　　Else</b></p><p>　　MsgBox "超出了輸入的次數(shù)"</p><p>　　Unload Form2</p><p><b>　　rs.Close</b></p><p><b>　　cn.Close</b>

105、</p><p><b>　　Exit Sub</b></p><p><b>　　End</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>

106、;　　End Sub</b></p><p>　　這里采用了一種安全機制，以防有人進行惡意的密碼破解，每次程序程序用戶只有三次輸入密碼的機會，如果三次密碼都不正確，則退出系統(tǒng)。</p><p><b>　　B、系統(tǒng)主界面：</b></p><p><b>　　圖4 系統(tǒng)主界面</b></p>&l

107、t;p>　　【實現(xiàn)思路】該界面應該包含用戶常用的功能菜單、工具條等，點擊相應的按鈕或下拉菜單即可運行相應的模塊：如圖所示。</p><p><b>　　【流程圖】</b></p><p>　　圖5 系統(tǒng)主界面流程圖</p><p>　　【代碼實現(xiàn)】該界面的代碼實現(xiàn)只包含相應的子窗體調用代碼，例如：</p><p>

108、　?。?）點擊退出按鈕，將根據(jù)用戶的選擇來判斷是否退出系統(tǒng)：</p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Index</p><p><b>　　Case 1</b><

109、/p><p>　　Frmopt.Show</p><p><b>　　Case 2</b></p><p>　　frmemp.Show</p><p><b>　　Case 3</b></p><p>　　frmmate.Show</p><p><

110、b>　　Case 4</b></p><p>　　FrmRep.Show</p><p><b>　　Case 5</b></p><p>　　frmdeal.Show</p><p><b>　　Case 6</b></p><p><b>　　

111、Case 7</b></p><p>　　frmsearch.Show</p><p><b>　　Case 8</b></p><p>　　Dim a As Integer</p><p>　　a = MsgBox("確定退出系統(tǒng)嗎？", vbYesNo + 48, "信息提示

112、")</p><p>　　If a = 6 Then</p><p>　　Unload MDIForm1</p><p><b>　　End</b></p><p><b>　　End If</b></p><p>　　End Select</p>&

113、lt;p><b>　　End Sub</b></p><p>　?。?）點擊重新登錄的時候要退出系統(tǒng)，并顯示登錄界面</p><p>　　Private Sub Menurelogin_Click()</p><p>　　login.Show</p><p>　　Unload MDIForm1</p>

114、<p><b>　　End Sub</b></p><p><b>　　C、影片管理模塊：</b></p><p><b>　　圖6 影片管理界面</b></p><p>　　【實現(xiàn)思路】當用戶點擊影片管理按鈕時應顯示該界面，同時在下拉列表中加載出所有的檢票口信息。然后操作員輸入相應的信息

115、，點擊增加即可完成影片的添加，新添加的影片將顯示在下面的列表中。當用戶在ListView控件中點擊某一部影片的時候應在上半部分顯示出該影片的詳細信息。并將增加按鈕禁用，啟用修改和刪除按鈕，點擊取消的時候關閉該窗口。</p><p><b>　　【流程圖】</b></p><p>　　圖7 添加影片的流程圖</p><p>　　【代碼實現(xiàn)】主要部

116、分代碼：</p><p><b>　　增加影片功能代碼：</b></p><p>　?。?）點擊添加按鈕將執(zhí)行下面的代碼，代碼中從文本框中獲取用戶的輸入，并拼接到插入的sql語句中，最后執(zhí)行插入</p><p>　　Private Sub Command1_Click()</p><p>　　Dim s As Date&

117、lt;/p><p>　　s = Me.DTPicker1.Value</p><p>　　cn.Execute "insert into transactor(tstname,tstxb,tstdepartment,tstnl,tstphone,tstzc) values ('" & Me.Text1.Text & "','

118、" & Me.Combo1.Text & "','" & Me.Text2.Text & "','" & Me.Text3.Text & "','" & Me.DTPicker1.Value & "','" & M

119、e.Text5.Text & "')"</p><p>　　MsgBox "添加成功！", vbOKOnly + vbInformation, "信息提示"</p><p>　　lstrefresh</p><p><b>　　txtclr</b></p>

120、<p><b>　　End Sub</b></p><p>　?。?）修改功能的代碼</p><p>　　Dim sql As String</p><p>　　sql = "update transactor set tstname='" & Me.Text1.Text & "

121、;' ,tstxb='" & Me.Combo1.Text & "' ,tstdepartment='" & Me.Text2.Text & "',tstnl='" & Me.Text3.Text & "',tstphone='" & Me.DTPi

122、cker1.Value & "',tstzc='" & Me.Text5.Text & "' where tstid=" & id & ""</p><p>　　cn.Execute sql</p><p>　　lstrefresh</p><p&

123、gt;　　MsgBox "已經(jīng)修改信息！", vbOKOnly + vbExclamation, "修改結果！"</p><p><b>　　txtclr</b></p><p>　　Me.Command1.Enabled = True</p><p>　　Me.Command3.Enabled = Fa

124、lse</p><p>　　Me.Command2.Enabled = False</p><p><b>　?。?）刪除按鈕功能</b></p><p>　　Private Sub Command3_Click()</p><p>　　Dim sql As String</p><p>　　sq

125、l = "delete from transactor where tstid=" & id & ""</p><p>　　cn.Execute sql</p><p>　　lstrefresh</p><p>　　MsgBox "已經(jīng)刪除信息！", vbOKOnly + vbExclam

126、ation, "刪除結果！"</p><p><b>　　txtclr</b></p><p>　　Me.Command1.Enabled = True</p><p>　　Me.Command3.Enabled = False</p><p>　　Me.Command4.Enabled = Fals

127、e</p><p><b>　　End Sub</b></p><p>　?。?）點擊ListView中一項，將在上面顯示該項目的詳細信息，并讓修改按鈕可以使用，增加按鈕不能使用</p><p>　　Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)</p

128、><p>　　Me.Text1.Text = ListView1.SelectedItem.Text</p><p>　　Me.Combo1.Text = ListView1.SelectedItem.ListSubItems(1).Text</p><p>　　Me.Text2.Text = ListView1.SelectedItem.ListSubItems(2)

129、.Text</p><p>　　Me.Text3.Text = ListView1.SelectedItem.ListSubItems(3).Text</p><p>　　Me.DTPicker1.Value = ListView1.SelectedItem.ListSubItems(4).Text</p><p>　　Me.Text5.Text = ListVie

130、w1.SelectedItem.ListSubItems(5).Text</p><p>　　id = ListView1.SelectedItem.ListSubItems(6).Text</p><p>　　Me.Command1.Enabled = False</p><p>　　Me.Command2.Enabled = True</p>&l

131、t;p>　　Me.Command3.Enabled = True</p><p><b>　　End Sub</b></p><p>　?。?）添加或修改完畢后，刷新ListView信息的顯示</p><p>　　Private Sub lstrefresh()</p><p>　　Dim rs As New AD

132、ODB.Recordset</p><p>　　' Set rs = TransactSQL(SQL)</p><p>　　If rs.State = 1 Then rs.Close</p><p>　　rs.Open "select * from transactor", cn</p><p>　　Me.

133、ListView1.ListItems.Clear</p><p>　　If rs.EOF = False Then</p><p>　　While rs.EOF <> True</p><p>　　Set lb = ListView1.ListItems.Add(, , Trim(rs.Fields("tstname").Value

134、))</p><p>　　lb.SubItems(1) = Trim(rs.Fields("tstxb").Value) & ""</p><p>　　lb.SubItems(2) = Trim(rs.Fields("tstdepartment").Value) & ""</p>

135、<p>　　lb.SubItems(3) = Trim(rs.Fields("tstnl").Value) & ""</p><p>　　lb.SubItems(4) = Trim(rs.Fields("tstphone").Value) & ""</p><p>　　lb.SubIt

136、ems(5) = Trim(rs.Fields("tstzc").Value) & ""</p><p>　　lb.SubItems(6) = Trim(rs.Fields("tstid").Value)</p><p>　　rs.MoveNext</p><p><b>　　Wend&l

137、t;/b></p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　D、操作員管理，這是系統(tǒng)模塊的其中一個模塊</p><p>

138、<b>　　圖8 操作員管理</b></p><p>　　【實現(xiàn)思路】該模塊的實現(xiàn)與影片管理模塊類似，不再贅述，該功能只有系統(tǒng)管理員才能擁有。</p><p><b>　　【實現(xiàn)代碼】</b></p><p>　?。?）實現(xiàn)了窗體加載時應該進行的操作。</p><p>　　Private Sub F

139、orm_Load()</p><p>　　ListView1.ColumnHeaders.Add , , "管理員名稱", 2000</p><p>　　ListView1.ColumnHeaders.Add , , "密碼", 0</p><p>　　ListView1.ColumnHeaders.Add , , "

140、;權限", 3000</p><p>　　ListView1.ColumnHeaders.Add , , "id", 0</p><p>　　If rs.State = 1 Then rs.Close</p><p>　　rs.Open "select * from operator", cn</p>

141、<p>　　If rs.EOF = False Then</p><p>　　While rs.EOF <> True</p><p>　　Set lb = ListView1.ListItems.Add(, , Trim(rs.Fields("optname").Value))</p><p>　　lb.SubItems(

142、1) = Trim(rs.Fields("optpwd").Value)</p><p>　　If Trim(rs.Fields("optrgt")) = True Then</p><p>　　lb.SubItems(2) = "管理員"</p><p><b>　　Else</b>

143、</p><p>　　lb.SubItems(2) = "售票員"</p><p><b>　　End If</b></p><p>　　lb.SubItems(3) = Trim(rs.Fields("optid").Value)</p><p>　　rs.MoveNext<

144、;/p><p><b>　　Wend</b></p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　Me.Command3.Enabled = False</p><p>　　Me.Com

145、mand4.Enabled = False</p><p><b>　　End Sub</b></p><p><b>　?。?）增加管理員</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim optflag As Integer<

146、/p><p>　　If Me.Option1.Value = True Then</p><p>　　optflag = 1</p><p><b>　　End If</b></p><p>　　cn.Execute "insert into operator(optname,optpwd,optrgt) valu

147、es ('" & Me.Text1.Text & "','" & Me.Text2.Text & "'," & optflag & ")"</p><p><b>　　lst</b></p><p><b>　

148、　txtclr</b></p><p><b>　　End Sub</b></p><p><b>　　（3）修改管理員</b></p><p>　　Private Sub Command3_Click()</p><p>　　Dim optflag As Integer</p&g

149、t;<p>　　If Me.Option1.Value = True Then</p><p>　　optflag = 1</p><p><b>　　End If</b></p><p>　　If rs.State = 1 Then rs.Close</p><p>　　cn.Execute "

150、update operator set optname='" & Me.Text1.Text & "',optpwd='" & Me.Text2.Text & "',optrgt=" & optflag & " where optid='" & optid & &q

151、uot;'"</p><p><b>　　lst</b></p><p>　　Me.Command3.Enabled = False</p><p>　　Me.Command4.Enabled = False</p><p>　　Me.Command1.Enabled = True</p>

152、<p><b>　　txtclr</b></p><p><b>　　End Sub</b></p><p><b>　?。?）刪除管理員</b></p><p>　　Private Sub Command4_Click()</p><p>　　If rs.Stat

153、e = 1 Then rs.Close</p><p>　　cn.Execute "delete from operator where optid='" & optid & "'"</p><p>　　MsgBox "刪除成功！", vbExclamation, "信息提示"&

154、lt;/p><p><b>　　lst</b></p><p>　　Me.Command3.Enabled = False</p><p>　　Me.Command4.Enabled = False</p><p>　　Me.Command1.Enabled = True</p><p><b&

155、gt;　　txtclr</b></p><p><b>　　End Sub</b></p><p>　　（5）listView的項點擊事件處理代碼</p><p>　　Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)</p><