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

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

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

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

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

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

6、t;<b>　　【關(guān)鍵字】</b></p><p>　　電影、計(jì)算機(jī)、應(yīng)用、票務(wù)管理、程序設(shè)計(jì)、visual Basic、mvc、設(shè)計(jì)模式。</p><p><b>　　【摘要】</b></p><p>　　電影的產(chǎn)生改變?nèi)藗兊纳詈蛫蕵妨?xí)慣。去影院看電影也成為人們平時(shí)休閑娛樂、交友、學(xué)習(xí)的重要內(nèi)容。生活習(xí)慣的改變影響著影

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

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

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

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

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

24、183;··········7</p><p>　　ADO.net技術(shù)····················

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)設(shè)計(jì)</b></p><p>　　數(shù)據(jù)庫設(shè)計(jì)·&#

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

32、··············11</p><p>　　程序設(shè)計(jì)··················

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>　　預(yù)訂票管理················

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

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

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

43、#183;···················27</p><p>　　結(jié)束語············&

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

45、;········28</p><p>　　參考文獻(xiàn)·······················

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

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

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

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

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

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

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

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

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

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

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

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

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 遠(yuǎn)程數(shù)據(jù)對象(RemoteData Objects)</p><p>　?、軦DO 數(shù)據(jù)對象(Active Data Objects)</p><p><b>　　【控件介紹】</b></p><p>　　（1）Windows窗

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

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

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

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

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

65、項(xiàng)有 Standard、OneClick 和 TwoClick。執(zhí)行 OneClick 激活時(shí)，需要通過一次單擊激活該項(xiàng)。執(zhí)行 TwoClick 激活時(shí)，要求用戶通過雙擊激活該項(xiàng)；一次單擊可以更改該項(xiàng)的文本顏色。執(zhí)行 Standard 激活時(shí)，要求用戶通過雙擊激活某項(xiàng)，但是該項(xiàng)的外觀不會發(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、的效果，例如：在運(yùn)行時(shí)顯示 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>　　以上介紹的控件在本應(yīng)用中都進(jìn)行了使用。</p><p>　　【ADO.net技術(shù)】</p><p>　　任何數(shù)據(jù)庫應(yīng)用程序的一項(xiàng)主要功能是連接數(shù)據(jù)源并檢索數(shù)據(jù)源中包含的數(shù)據(jù)。ADO.NET 的 .NET Framework 數(shù)據(jù)提供程序充當(dāng)應(yīng)用程序和數(shù)據(jù)源之間的橋梁，使您可以執(zhí)行命令以及使用

71、DataReader 或 DataAdapter 檢索數(shù)據(jù)。例如下面的一個(gè)應(yīng)用：</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í)行一個(gè)查詢操作：</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 應(yīng)用程序，所涉及的問題不僅僅是要避免常見的編碼缺陷。訪問數(shù)據(jù)的應(yīng)用程序包含許多潛在的故障點(diǎn)，攻擊者可以利用這些故障點(diǎn)來檢索、操縱或破壞敏感的數(shù)據(jù)。一定要了解安全的各個(gè)方面，從應(yīng)用程序設(shè)計(jì)階段建立威脅模型的過程，到應(yīng)用程序的最終部署，到對應(yīng)用程序的不斷的實(shí)時(shí)維護(hù)，都要考慮到。</p><

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

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

83、　檢票：在觀眾入場時(shí)使用</p><p>　　退票：該功能有時(shí)間限制，在開場之后一段時(shí)間是不能退票的</p><p>　　統(tǒng)計(jì)信息：可以按照年月日對過去的售票記錄進(jìn)行查詢、統(tǒng)計(jì)。這樣很容易得到當(dāng)天或一段時(shí)間內(nèi)的銷售業(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)設(shè)計(jì)</b></p><p><b>　　數(shù)據(jù)庫設(shè)計(jì)：</b></p><p>　　數(shù)據(jù)庫設(shè)計(jì)分為詳細(xì)設(shè)計(jì)和物理設(shè)計(jì)

85、。根據(jù)系統(tǒng)的需求分析得出，該系統(tǒng)的數(shù)據(jù)流向和數(shù)據(jù)可能有以下內(nèi)容：操作員、影片信息、售票信息、退票信息、公告信息、檢票口信息等，以下是根據(jù)需求分析之后得出的系統(tǒng)的數(shù)據(jù)結(jié)構(gòu)字典：</p><p><b>　　【詳細(xì)設(shè)計(jì)】</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>　　【物理設(shè)計(jì)】</b></p>

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

88、可以通過編寫sql腳本來建立數(shù)據(jù)庫和表結(jié)構(gòu)。腳本實(shí)例：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中建立一個(gè)用戶表。</p><p><b&g

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

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

96、gt;　　代碼段1：</b></p><p>　　驗(yàn)證輸入的用戶名稱是否為空：</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ù)庫去查詢該用戶的信息，驗(yàn)證密碼和用戶名是否正確</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 "輸入有錯(cuò)誤，你還剩下" & 3 - lcount & "登錄機(jī)會", 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>　　這里采用了一種安全機(jī)制，以防有人進(jìn)行惡意的密碼破解，每次程序程序用戶只有三次輸入密碼的機(jī)會，如果三次密碼都不正確，則退出系統(tǒng)。</p><p><b>　　B、系統(tǒng)主界面：</b></p><p><b>　　圖4 系統(tǒng)主界面</b></p>&l

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

108、　?。?）點(diǎn)擊退出按鈕，將根據(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>　?。?）點(diǎn)擊重新登錄的時(shí)候要退出系統(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>　　【實(shí)現(xiàn)思路】當(dāng)用戶點(diǎn)擊影片管理按鈕時(shí)應(yīng)顯示該界面，同時(shí)在下拉列表中加載出所有的檢票口信息。然后操作員輸入相應(yīng)的信息

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

116、分代碼：</p><p><b>　　增加影片功能代碼：</b></p><p>　?。?）點(diǎn)擊添加按鈕將執(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, "修改結(jié)果！"</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, "刪除結(jié)果！"</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>　?。?）點(diǎn)擊ListView中一項(xiàng)，將在上面顯示該項(xiàng)目的詳細(xì)信息，并讓修改按鈕可以使用，增加按鈕不能使用</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>　　（5）添加或修改完畢后，刷新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)模塊的其中一個(gè)模塊</p><p>

138、<b>　　圖8 操作員管理</b></p><p>　　【實(shí)現(xiàn)思路】該模塊的實(shí)現(xiàn)與影片管理模塊類似，不再贅述，該功能只有系統(tǒng)管理員才能擁有。</p><p><b>　　【實(shí)現(xiàn)代碼】</b></p><p>　?。?）實(shí)現(xiàn)了窗體加載時(shí)應(yīng)該進(jì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、;權(quán)限", 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>　?。?）修改管理員</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>　　（4）刪除管理員</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的項(xiàng)點(diǎn)擊事件處理代碼</p><p>　　Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)</p><