影院售票管理系統(tǒng)

1、計算機學(xué)院綜合設(shè)計報告學(xué)號2016-2017學(xué)年 第2學(xué)期1408010142C+課程設(shè)計報告題目：電影院售票系統(tǒng)專業(yè)：計算機科學(xué)與技術(shù)班級：14（1）姓名：虞躍華指導(dǎo)教師：陳寶國成績：計算機學(xué)院2017年4月21日（課外的，第十周答辯和總結(jié)） 2017年5月21日（課內(nèi)的，第十四周答辯和總結(jié)）目錄1. 緒論41.1系統(tǒng)的開發(fā)背景41.2系統(tǒng)開發(fā)的必要性51.3系統(tǒng)開發(fā)目標(biāo)與意義52. 開發(fā)工具62.1VB簡介62.2數(shù)據(jù)庫開發(fā)工具63 需求分析73.1可行性分析73.2功能描述83.3數(shù)據(jù)字典83.4系統(tǒng)功能圖123.5對性能的規(guī)定133.6數(shù)據(jù)管理能力要求133.7故障處理要求144. 主

2、要界面及功能144.1影院售票管理系統(tǒng)144.2小賣部管理184.3查詢統(tǒng)計205. 詳細設(shè)計235.1結(jié)構(gòu)程序設(shè)計235.2人機界面設(shè)計246. 功能實現(xiàn)266.1售票系統(tǒng)266.2小賣部系統(tǒng)32總結(jié)39參考文獻391. 緒論1.1系統(tǒng)的開發(fā)背景當(dāng)今時代是飛速發(fā)展的信息時代，在各行各業(yè)中離不開信息處理，這正是計算機被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計算機的最大好處在于利用它能夠進行信息管理。使用計算機進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對于復(fù)雜的信息管理，計算機能夠充分發(fā)揮它的優(yōu)越性。管理信息系統(tǒng)是進行信息的采集、存儲、加工、維護和使用的系統(tǒng)，它是隨著管理科學(xué)和技術(shù)

3、科學(xué)的發(fā)展而形成的。影院售票管理系統(tǒng)是一個經(jīng)濟社會不可缺少的部分，它的內(nèi)容對于企業(yè)管理的決策者和管理者來說都至關(guān)重要,所以影院售票管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段，對用戶來說可以輕松的查閱自己消費信息等。但是一直以來人們都是靠傳統(tǒng)人工的方式管理影院售票，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機應(yīng)用的一部分,使用計算機對影院售票管理進行管理,有著手工管理

4、所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高影院售票管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開發(fā)這樣的一套影院售票管理系統(tǒng)成為很有必要的事情。影院售票管理系統(tǒng)提供了強大的管理功能，方便系統(tǒng)用戶使用。1.2系統(tǒng)開發(fā)的必要性在21世紀的科技時代，科學(xué)技術(shù)突飛猛進，計算機已經(jīng)不僅是在科技上應(yīng)用，而且在生活中也是同樣得到了廣泛在應(yīng)用。隨著時間的變化，影院規(guī)模的擴大，有關(guān)售票管理工作和所涉及到的數(shù)據(jù)量越來越大越來越多，大多數(shù)影院不得不靠增加人力、物力、財力來進行售票管理。但是人工售票管理具有效率低、查找麻

5、煩、可靠性不高、保密性低等因素。因此開發(fā)出一個適用于相當(dāng)規(guī)模的影院售票管理系統(tǒng)是必要的。開發(fā)一個影院售票管理系統(tǒng)，采用計算機對影院售票進行管理，進一步提高了影院的效益和現(xiàn)代化水平。為廣大影院提高工作效率，實現(xiàn)影院售票工作流程的系統(tǒng)化、規(guī)范化和自動化?，F(xiàn)在我國的很多影院的管理水平普遍都不是很高，有的還停留在全用紙介質(zhì)基礎(chǔ)上，這種管理方式已不能適應(yīng)時代的發(fā)展，社會的需求，因為它浪費了大量的人力物力，也存在著許多不足的因素。在今天信息時代這種傳統(tǒng)的管理方法必然會被計算機為基礎(chǔ)的信息管理系統(tǒng)所代替。一個高效的影院售票管理系統(tǒng)可以存儲很多影院售票檔案，不需要大量的人力，只需要幾名專門錄入員即可操作系統(tǒng)，

6、節(jié)省大量人力，可以迅速查到所需信息、高效、安全。1.3系統(tǒng)開發(fā)目標(biāo)與意義系統(tǒng)開發(fā)目標(biāo)為了使系統(tǒng)在影院的管理中發(fā)揮更大的作用，實現(xiàn)工作過程的計算機化，提高工作效率和工作質(zhì)量，現(xiàn)提出如下的系統(tǒng)開發(fā)目標(biāo)：1.系統(tǒng)應(yīng)具有實用性、可靠性和適用性，同時注意到先進性。2.對各個數(shù)據(jù)庫進行動態(tài)管理，防止混亂。3.能夠按照用戶選擇的不同的條件進行簡單查詢和復(fù)合查詢。4.能夠?qū)Σ樵兘Y(jié)果進行分類匯總，實現(xiàn)報表打印。5.注意數(shù)據(jù)的安全性，具有數(shù)據(jù)備份和恢復(fù)的功能。6.方便用戶的操作，盡量減少用戶的操作。意義影院售票管理是影院管理中異常重要的一個環(huán)節(jié)。計算機化是整個影院管理中的重要一部分，能否實現(xiàn)這一步關(guān)系到影院售票整

7、體效率的高低，介于它的重要性，影院售票管理系統(tǒng)的開發(fā)與應(yīng)用就逐漸提入議程，并占著越來越重要的份量。運用影院售票管理系統(tǒng)可以減輕影院售票管理人員的工作量，縮小開支，提高工作效率與準確率，能夠合理安排時間，能夠盡快的知道自己的影院信息。從大的方向說，就是為了加速我國四化建設(shè)的發(fā)展，實現(xiàn)全部的自動化，使我國發(fā)展成為通訊網(wǎng)絡(luò)化，決策科學(xué)化，辦公自動化的國家。在現(xiàn)代，高科技的飛躍發(fā)展，人們工作習(xí)慣的改變，特別是電腦的大量普及，人們生活節(jié)奏越來越快，怎樣提高工作效率是人們首先考慮的問題。影院售票管理系統(tǒng)是一個非常繁瑣與復(fù)雜的一項工作，一個原因就是工作量大，不好管。2. 開發(fā)工具2.1VB簡介VB是Visu

8、al Basic的簡稱，是由美國微軟公司于1991年開發(fā)的一種可視化的、 面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強大可以與 Windows 專業(yè)開發(fā)工具SDK相媲美。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的廣泛應(yīng)用程序接口（API）函數(shù)，動態(tài)鏈接庫（DLL）、對象的鏈接與嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)Windows環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。2.2數(shù)據(jù)庫開發(fā)工具SQL Server

9、是一個關(guān)系數(shù)據(jù)庫管理系統(tǒng)。它最初是由Microsoft Sybase 和Ashton-Tate三家公司共同開發(fā)的，于1988 年推出了第一個OS/2 版本。在Windows NT 推出后，Microsoft與Sybase 在SQL Server 的開發(fā)上就分道揚鑣了，Microsoft 將SQL Server 移植到Windows NT系統(tǒng)上，專注于開發(fā)推廣SQL Server 的Windows NT 版本。Sybase 則較專注于SQL Server在UNIX操作系統(tǒng)上的應(yīng)SQL Server安裝界面用。3. 需求分析3.1可行性分析可行性研究的目的是用最小的代價在盡可能的時間內(nèi)確定問題是否

10、能夠解決?？紤]到系統(tǒng)開發(fā)時間、資源等因素，在實際開發(fā)該計算機系統(tǒng)時，常常要為資源不足和交付日期難以完成而苦惱，因而需要慎重地盡可能早地估價研制課題的可行性?？尚行匝芯堪ǎ航?jīng)濟可行性、技術(shù)可行性、操作可行性、不同的方案等等。經(jīng)濟上可行性：現(xiàn)在，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。而本系統(tǒng)的開發(fā)，為學(xué)校的工作效率帶來了一個質(zhì)的飛躍，為此主要表現(xiàn)有以下幾個方面：第一， 本系統(tǒng)的運行可以代替人工進行許多繁雜的勞動；第二， 本系統(tǒng)的運行可以節(jié)省許多資源；第三， 本系統(tǒng)的運行可以大大的提高學(xué)校的工作效率；第四， 本系統(tǒng)可以使敏感文檔更加安全，等等。所以，本系統(tǒng)在經(jīng)濟上是可行的。技術(shù)上可行性：

11、本系統(tǒng)的開發(fā)利用Microsoft SQL Server2000作為本系統(tǒng)的數(shù)據(jù)庫，它是一個支持多用戶的新型數(shù)據(jù)庫，適用于大中規(guī)模的數(shù)據(jù)量需求。學(xué)校校園網(wǎng)的建設(shè)也為新系統(tǒng)服務(wù)器/客戶端的結(jié)構(gòu)提供了硬件的支持。使用作為系統(tǒng)開發(fā)的開發(fā)環(huán)境，它提供完善的指令控制語句、類與對象的支持及豐富的數(shù)據(jù)類型，給開發(fā)高性能系統(tǒng)提供的保障為開發(fā)滿足客戶要求的系統(tǒng)，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對新系統(tǒng)的擴展與修改。綜上所述，本系統(tǒng)的設(shè)計與開發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。出走做可行性：本系統(tǒng)為一個小型的影院售票管理系統(tǒng)，所耗費的資源非常的小，影院的電腦

12、無論是硬件還是軟件都能夠滿足條件，界面設(shè)計時充分考慮管理人員的習(xí)慣，使得操作簡單；數(shù)據(jù)錄入迅速、規(guī)范、可靠；統(tǒng)計準確；制表靈活；適應(yīng)力強；容易擴充，因此，本系統(tǒng)在操作上是可行的。3.2功能描述售票員：1.辦理會員及查詢、刪除、修改會員信息2.查找即將上映的影片信息和放映廳號3.查詢已賣票數(shù)和剩余票數(shù)和其對應(yīng)的座位4.售票小賣部管理員：1.增添、刪除、修改商品信息2.管理商品入庫 3.銷售商品3.3數(shù)據(jù)字典、數(shù)據(jù)項售票系統(tǒng)數(shù)據(jù)項會員信息表，如表3.1所示，是描述會員的信息。會員卡號會員姓名性別聯(lián)系方式折扣率卡內(nèi)金額買票消費001張明男0.85100002張敏女0.7120【表3.1】影票信息表，

13、如表3.2所示，是描述影票的詳細信息。電影名稱上映日期上映時間放映廳票類票價戀愛通告2011.06.0118:00:00*Vip30關(guān)云長2011.06.0718:00:00*Vip30【表3.2】小賣部系統(tǒng)數(shù)據(jù)項商品信息表，如表3.3所示：商品編號商品名稱進價銷售價單位庫存量001康師傅方便面24袋100002爆米花24袋150【表3.3】、數(shù)據(jù)結(jié)構(gòu)售票系統(tǒng)數(shù)據(jù)結(jié)構(gòu)數(shù)據(jù)結(jié)構(gòu)名含義說明組成會員信息說明會員的有關(guān)信息會員卡號、會員姓名、省份證號、聯(lián)系方式、折扣率、初期金額、卡內(nèi)金額、充值總額、小賣部消費、買票消費影票信息說明影票的有關(guān)信息票類、票價、影院名稱、圖示、電影名稱、放映廳、上映時間、狀

14、態(tài)、上映日期小賣部系統(tǒng)數(shù)據(jù)結(jié)構(gòu)數(shù)據(jù)結(jié)構(gòu)名含義說明組成商品信息說明商品的有關(guān)信息商品編號、商品名稱、進價、銷售價、單位、入庫單號、入庫日期、數(shù)量、經(jīng)辦人、期初庫存、E-R圖 實體描述【會員】如圖3-1所示：會員小賣部消費會員卡號會員姓名身份證號聯(lián)系方式折扣率卡內(nèi)余額充值總額買票消費期初金額備注【圖3-1】【商品】如圖3-2所示：商品進價銷售價商品名稱單位期初庫存商品編號備注【圖3-2】【影票】如圖3-3所示：影票票類放映廳上映日期上映時間影片名稱票價【圖3-3】會員、商品等實體的E-R，如圖3-4所示：售票員銷售員買賣買影票會員賣商品1N1N1N1N【圖3-4】3.4系統(tǒng)功能圖進入界面：1. 售

15、票員2. 銷售員系統(tǒng)選擇：啟動售票系統(tǒng)1顯示上映影片信息2.顯示播放廳及票價1. 添加、修改、刪除影片2. 設(shè)置播放廳及票價3. 清空無用數(shù)據(jù)是否會員顯示會員信息是否充值是否買票是否辦會員修改會員信息YNYN 售票管理系統(tǒng)功能圖，如圖3-5所示：【圖3-5】進入界面：1. 售票員2. 銷售員系統(tǒng)選擇：小賣部系統(tǒng)1.顯示商品信息2.顯示庫存明細是否購買更改庫存及會員信息會員1.添加、刪除、修改、查詢商品信息2.商品入庫3.商品盈利查詢YN 小賣部管理系統(tǒng)功能圖，如圖3-6所示：【圖3-6】3.5對性能的規(guī)定 精度整型和double型 時間特性要求本軟件的規(guī)模不大，一般的機器都能跑的起來，對電腦的

16、性能要求很不高，一般pc機都可以順暢運行，能夠滿足絕大多數(shù)公司電腦配置的需求。3.6數(shù)據(jù)管理能力要求 考慮到一個電影院它的規(guī)模是固定的，總體座位框架是不變的，座位的操作就采用二維數(shù)組來操作，然后將其操作結(jié)果存儲在某場電影的座位文件中。某場電影的信息就采用鏈表來處理，因為鏈表操作便于對其進行增、刪、改、查詢，可以將所有電影的信息存儲在一個電影信息文件中。3.7故障處理要求 我們的這個系統(tǒng)它是采用實時更新文件的方法，電腦斷電或死機等，不會丟失當(dāng)前的操作信息，可以解決電腦斷電后系統(tǒng)丟失已完成的操作問題，避免了客戶因意外事件丟失數(shù)據(jù)。4. 主要界面及功能4.1影院售票管理系統(tǒng)1.1選擇影院售票管理系統(tǒng)

17、，如圖4-1：【圖4-1】1.2節(jié)目設(shè)置，如圖4-2，在此節(jié)點設(shè)置放映節(jié)目的信息，方便創(chuàng)建場次時調(diào)用；其中導(dǎo)演、片類、語種、產(chǎn)地等字段值具有記憶功能，只需錄入一次，下次再使用時直接在下拉列表中選擇即可?！緢D4-2】1.3票價設(shè)置，如圖4-3，記錄不同票類的票價，方便售票時調(diào)用?！緢D4-3】功能操作說明： 在面板中點擊“票價設(shè)置”按鈕或雙擊表格界面打開錄入窗口。增加:點擊錄入窗口最下方工具欄的增加或者+按鈕，即可新增一條記錄，然后輸入票價，完成后點號保存。 修改:點擊錄入窗口工具欄上的可以編輯一條現(xiàn)有的記錄，修改完點保存。 刪除:點擊記錄移動按鈕,移動到要刪除的記錄上，單擊-按鈕，即可刪除當(dāng)前記

18、錄。狀態(tài)圖示設(shè)置（注：座位平面圖的圖示默認為只讀的，如果不適合可以調(diào)整的）1.4會員信息處理，如圖4-4:【圖4-4】功能操作說明： 在面板中點擊“會員信息”按鈕或雙擊表格界面打開錄入窗口。 增加:點擊錄入窗口最下方工具欄的增加或者+按鈕，即可新增一條記錄，然后輸入會員信息，完成后點號保存。 修改:點擊錄入窗口工具欄上的可以編輯一條現(xiàn)有的記錄，修改完點保存。 刪除:點擊記錄移動按鈕,移動到要刪除的記錄上，單擊-按鈕，即可刪除當(dāng)前記錄。 1.5會員充值，如圖4-5，其中充值單號系統(tǒng)自動生成，通過會員卡號調(diào)用會員信息中的數(shù)據(jù)；充后總額=充前總額+充值金額，系統(tǒng)自動計算；經(jīng)辦人默認填寫當(dāng)前系統(tǒng)登錄者

19、的名稱?！緢D4-5】在面板中點擊“會員充值”按鈕，即可打開錄入窗口對會員充值進行增加、修改或刪除操作。 1.6設(shè)置影片上映，如下圖4-6：【圖4-6】在上圖中選擇對應(yīng)的上映日期、上映時間，然后點確定，進入如下窗口，如圖4-7?！緢D4-7】在上圖中選擇需要的座位（綠色底的表示未售、紅色底的表示已售、黃色底表示訂票），然后在右面操作，通過票類調(diào)用票價設(shè)置中的數(shù)據(jù)；也可以會員卡消費，默認是打折的，勾選掉是否打折，就是按票價從會員卡中扣除；將售票狀態(tài)改為已售，然后點對號保存，座位平面圖的顏色由綠色更新為紅色。 4.2小賣部管理2.1選擇小賣部管理系統(tǒng)，如圖4-8：【圖4-8】2.2添加商品信息如圖4-

20、9，其中商品編號不允許重復(fù)或者為空；其它字段值根據(jù)實際情況填寫?！緢D4-9】功能操作說明： 在面板中點擊“商品信息”按鈕或雙擊表格界面打開錄入窗口。 增加:點擊錄入窗口最下方工具欄的增加或者+按鈕，即可新增一條記錄，然后輸入商品信息，完成后點號保存。 修改:點擊錄入窗口工具欄上的可以編輯一條現(xiàn)有的記錄，修改完點保存。 刪除:點擊記錄移動按鈕,移動到要刪除的記錄上，單擊-按鈕，即可刪除當(dāng)前記錄。2.3商品入庫，如圖4-10其中入庫單號系統(tǒng)自動生成，入庫日期默認填寫當(dāng)前機器時間，也可手工錄入；經(jīng)辦人默認填寫當(dāng)前系統(tǒng)登錄者的名稱。從表中通過商品編號調(diào)用商品信息中的數(shù)據(jù)；手工錄入數(shù)量；小計=數(shù)量*單價

21、，系統(tǒng)自動算。 【圖4-10】在面板中點擊“商品入庫”按鈕，即可打開錄入窗口對商品入庫進行增加、修改或刪除操作。2.4商品銷售，如圖4-11，其中銷售單號系統(tǒng)自動生成，銷售日期默認填寫當(dāng)前機器時間，也可手工錄入；經(jīng)辦人默認填寫當(dāng)前系統(tǒng)登錄者的名稱。從表中通過商品編號調(diào)用商品信息中的數(shù)據(jù)；手工錄入數(shù)量；小計=數(shù)量*單價，系統(tǒng)自動計算?！緢D4-11】在面板中點擊“商品銷售”按鈕，即可打開錄入窗口對商品銷售信息進行增加、修改或刪除操作。 2.5庫存明細，如圖4-12，查看各商品的期初庫存、累計入庫、累計銷售及庫存數(shù)量，庫存數(shù)量=期初庫存+累計入庫-累計銷售，系統(tǒng)自動計算?！緢D4-12】商品入庫期間查

22、詢，查看期間內(nèi)入庫商品的信息；統(tǒng)計各種商品的入庫數(shù)量及總額；并統(tǒng)計所有入庫總額。4.3查詢統(tǒng)計3.1選擇查詢統(tǒng)計，如圖4-13：【圖4-13】3.2會員消費明細查看，如圖4-14：【圖4-14】根據(jù)需要填寫會員卡號，就可以看到會員在小賣部的詳細消費，如圖4-15。 查詢出來的信息不允許用戶自行更改、添加和刪除。 【圖4-15】3.3按日期查詢統(tǒng)計售票數(shù)，查看期間內(nèi)售票信息，并統(tǒng)計各票類的售票數(shù)和售票金額，最后統(tǒng)計下所有售票數(shù)和售票金額，如圖4-16，輸入日期?！緢D4-16】根據(jù)需要設(shè)置開始日期和截止日期，系統(tǒng)默認開始日期和截止日期為當(dāng)前日期。單擊確定，看以看下面窗口，如圖6-17： 【圖6-1

23、7】雙擊系統(tǒng)左邊樹形列表中的“按日期查詢統(tǒng)計售票數(shù)”可打開此報表，若想打印此報表可在打開的報表頁面中單擊“打印”按鈕即可打印此報表。本報表打印所有在開始日期和截止日期之間的售票信息，系統(tǒng)并自動統(tǒng)計售票數(shù)量和售票總額。按場次查詢統(tǒng)計售票數(shù)，查看某場次售票信息，并統(tǒng)計各票類的售票數(shù)和售票金額，最后統(tǒng)計下該場次總的售票數(shù)和售票金額。5. 詳細設(shè)計5.1結(jié)構(gòu)程序設(shè)計 結(jié)構(gòu)程序設(shè)計的定義為：“結(jié)構(gòu)程序設(shè)計是盡可能少用GO TO 語句的程序設(shè)計方法。最好僅在檢測出錯誤的時候才使用GO TO語句，而且應(yīng)該總是使用前向GO TO語句?！?本系統(tǒng)包括三個模塊：售票管理、小賣部管理和查詢統(tǒng)計。它們的結(jié)構(gòu)分布如下：

24、1、售票管理（如圖5.1） 圖5.12、小賣部管理（如圖5.2）圖5.23、查詢統(tǒng)計（如圖5.3）圖5.35.2人機界面設(shè)計1、系統(tǒng)響應(yīng)時間 系統(tǒng)響應(yīng)時間的兩個重要屬性：長度和易變性。據(jù)了解，一般來說，如果系統(tǒng)的響應(yīng)時間過長，用戶就會感到很沮喪。但是，一旦響應(yīng)時間過短，這會迫使用戶加快操作節(jié)奏，從而很可能發(fā)生錯誤。本系統(tǒng)經(jīng)過多數(shù)人測試以后，發(fā)現(xiàn)響應(yīng)時間值在一個合理的范圍之類，即用戶可以接受。2、用戶幫助設(shè)施 幾乎所有的交互式系統(tǒng)的每個用戶都需要幫助，當(dāng)遇到復(fù)雜的問題的時候，甚至需要查看用戶手冊才能尋求答案得以解決。本系統(tǒng)提供了聯(lián)機幫助設(shè)施，這使得用戶無須離開用戶界面就能解決自己想解決的問題。具

25、體的幫助設(shè)施設(shè)計如下： （1）在用戶與系統(tǒng)交互期間，在任何時候，用戶都能獲得關(guān)于系統(tǒng)任何功能的幫助信息，因為本系統(tǒng)為用戶提供了兩種選擇：提供部分功能的幫助信息和提供全部功能的幫助信息。（在界面的右邊幫助欄）（2）用戶可以以下三種方式請求幫助：幫助菜單，特殊功能鍵和HELP命令。（3）本系統(tǒng)在主屏幕界面右邊的固定位置會有幫助提示（4）用戶可以選擇屏幕上的返回按鈕返回到正常的交互界面上（5）本系統(tǒng)采用以下幾中結(jié)構(gòu)來組織幫助信息：平面結(jié)構(gòu)（幫助信息通過關(guān)鍵字訪問）、信息的層次結(jié)構(gòu)（通過該結(jié)構(gòu)，用戶可以查詢到更詳細的信息，例如主界面菜單欄下的下拉子菜單選項）和超文本鏈接3、出錯信息處理 出錯信息和警告

26、信息，是用戶在使用系統(tǒng)時出現(xiàn)的“壞消息”。在用戶正常的操作剛才中，如果發(fā)現(xiàn)系統(tǒng)提示錯誤信息，首先不要慌張，先看看錯誤信息是怎么描述的（一般說來，這些信息都是用戶可以看的懂的），一般的問題，通過重啟系統(tǒng)一般都能解決，如果遇到棘手的，用戶可以采用聯(lián)機幫助或者直接撥打客服電話以尋求解決。6. 功能實現(xiàn)及代碼6.1售票系統(tǒng) 1.1進入系統(tǒng)界面，用戶名默認為admi，如圖6-1: 【圖6-1】代碼：Private Sub Command1_Click()If Text1 = Or Text2 = ThenMsgBox 不能為空,請重新輸入, , 提示x = x + 1Else If Text1.Text

27、 = admi And Text2.Text = 1234 Then Form1.Hide Form2.Show Else MsgBox 輸入錯誤，請重新輸入, 48, 提示 x = x + 1 End If End IfIf x = 3 ThenMsgBox 強制退出, 16, 提示EndEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub1.2系統(tǒng)選擇界面，通過該界面admi可以選擇是進入售票管理系統(tǒng)，還是進入小賣部管理系，統(tǒng)如圖6-2: 【圖6-2】代碼：Private Sub Command1_Click()Form3.ShowForm

28、2.HideEnd SubPrivate Sub Command2_Click()form5.ShowForm2.HideEnd Sub1.3該界面是對會員信息管理，如圖6-3：【圖6-3】代碼：Private Sub Command1_Click()Form4.ShowForm3.HideEnd SubPrivate Sub Command2_Click()會員信息查詢.ShowForm3.HideEnd SubPrivate Sub Command3_Click()Form2.ShowForm3.HideEnd Sub1.4該界面是對會員信息添加、刪除、修改界面，如圖6-4：【圖6-4】代

29、碼:會員添加 Dim con As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Command1_Click()con.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:張小磊售票管理.MDB;Persist Security Info=False str1 = select * from 會員信息 If con.State = 0 Then con.Open End Ifrs.Open str1, con, 1, 3rs.AddNew

30、DataShowrs.Update 在datagrid中顯示數(shù)據(jù)Adodc1.CommandType = adCmdTextcon.CloseEnd SubPrivate Sub DataShow() rs(會員卡號) = Text1.Text rs(會員姓名) = Text2.Text rs(身份證號) = Text3.Text rs(折扣率) = Text4.Text rs(聯(lián)系方式) = Text5.Text rs(卡內(nèi)金額) = Text6.Text If rs(會員卡號) = Then MsgBox 會員卡號不能為空, 64, 提示 Else MsgBox 添加成功！, 64, 提示

31、End IfEnd Sub會員修改：Private Sub Command2_Click()Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset Dim str1 As String c = MsgBox(確定要修改該記錄嗎？, vbOKCancel, 提示信息) If c = vbOK Then 如果確認修改的話進行修改操作 If Text1.Text = Then MsgBox 會員卡號不能為空值!, 48, 修改信息提示 Else 連接所要修改的數(shù)據(jù)庫 con.Open Provider=Microsoft.Jet.O

32、LEDB.4.0;Data Source=H:張小磊售票管理.MDB;Persist Security Info=False 開始修改數(shù)據(jù)庫 con.Execute (update 會員信息 set 會員卡號= & Text1.Text & ,會員姓名= & Text2.Text & ,身份證號= & Text3.Text & ,折扣率= & Text4.Text & ,聯(lián)系方式= & Text5.Text & , 卡內(nèi)金額= & Text6.Text & ) MsgBox 信息修改成功, 64, 修改信息提示 rs.CursorLocation = adUseClient End If En

33、d IfEnd SubPrivate Sub DataSave() rs(會員卡號) = Text1.Text rs(會員姓名) = Text2.Text rs(身份證號) = Text3.Text rs(折扣率) = Text4.Text rs(聯(lián)系方式) = Text5.Text rs(卡內(nèi)金額) = Text6.Text If rs(會員卡號) = Then MsgBox 會員卡號不能為空, 64, 提示 Else MsgBox 添加成功！, 64, 提示End If會員刪除：Private Sub Command3_Click()Dim con As New ADODB.Connect

34、ion Dim rs As New ADODB.Recordset Dim str1 As Stringcon.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:張小磊售票管理.MDB;Persist Security Info=False con.CursorLocation = adUseClient str1 = select * from 會員信息 where 會員卡號 = & Text1.Text & If con.State = 0 Then con.Open End If rs.Open str1,

35、 1, 3 rs.Open str1, con, adOpenKeyset, adLockOptimistic If rs.EOF = False Then c = MsgBox(您確認要刪除該記錄嗎？, vbOKCancel, 刪除提示信息) If c = vbOK Then rs.delete Adodc1.Recordset.Update rs.CursorLocation = adUseClient MsgBox 刪除成功！End If Else MsgBox 當(dāng)前數(shù)據(jù)庫中沒有可刪除的數(shù)據(jù)記錄, vbOKOnly, 提示信息 End If con.CloseEnd SubPrivate

36、 Sub Command4_Click()Form3.ShowForm4.HideEnd Sub1.5該界面是對會員信息纖細查詢界面，如圖6-5：【圖6-5】代碼：Private Sub Command1_Click()Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Command2_Click()Form3.Show會員信息查詢.HideEnd Sub6.2小賣部系統(tǒng) 2.1 admi選擇小賣部管理系統(tǒng)，如圖6-6：【圖6-6】代碼：Private Sub Command1_Click()Form3.ShowForm2.HideEnd

37、SubPrivate Sub Command2_Click()form5.ShowForm2.HideEnd Sub2.2 小賣部信息處理界面，如圖6-7【圖6-7】代碼：Private Sub add_Click()form7.ShowEnd SubPrivate Sub back_Click()Form9.ShowUnload MeEnd SubPrivate Sub count_Click()form6.ShowEnd SubPrivate Sub delete_Click()form8.ShowEnd Sub2.3該界面是商品添加界面，如圖6-8:【圖6-8】代碼：Private Su

38、b Command1_Click()str1 = select * from CD where CD_NO = & Text1.Text & If rs.State = 1 Thenrs.CloseEnd Ifrs.Open str1, conn, 1, 3If Text1.Text = Then MsgBox 請輸入菜單編號!, 64, 提示 Exit SubEnd IfIf Text2.Text = Then MsgBox 請輸入菜單名稱!, 64, 提示 Exit SubEnd IfIf Text3.Text = Then MsgBox 請輸入菜單種類!, 64, 提示 Exit Sub

39、End IfIf Text4.Text = Then MsgBox 請輸入菜單單價!, 64, 提示 Exit SubEnd IfIf rs.EOF Thenconn.Execute (insert into CD values( & Text1.Text & , & Text2.Text & , & Text3.Text & , & Text4.Text & , & Text5.Text & )MsgBox 新添加菜單成功！, 64, 信息End IfEnd SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text

40、 = Text4.Text = Text5.Text = Text6.Text = End SubPrivate Sub Command3_Click()form5.ShowUnload MeEnd Sub2.4該界面是商品查詢界面，如圖6-9：【圖6-9】Dim conn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim rs1 As New ADODB.RecordsetPrivate Sub Check1_Click(Index As Integer)If Check1(Index).Value = 0 Or IsBusy T

41、henExit SubDim i As IntegerIsBusy = TrueFor i = 0 To Check1.UBoundIf i Index Then Check1(i).Value = 0NextIsBusy = FalseEnd IfEnd SubPrivate Sub Command1_Click()If Check1(0).Value Then If Trim(Text5.Text) = Then MsgBox 菜單編號不能為空！, 48, 警告 Else str1 = select * from CD where CD_NO like & Text5.Text & % E

42、nd IfEnd IfIf Check1(1).Value Then If Trim(Text5.Text) = Then MsgBox 菜單名字不能為空！, 48, 警告 Else str1 = select * from CD where CD_NAME like & Text5.Text & % End If End If If Check1(2).Value Then If Trim(Text5.Text) = Then MsgBox 請輸入菜單價格, 48, 警告 Else str1 = select * from CD where CD_PRICE like & Text5.Tex

43、t & % End If End Ifrs.Open DC, conn, 2, 3rs.AddNewrs.Fields(DC_NUM) = Text1.Textrs.Fields(DC_DESK) = Combo2.Textrs.Fields(DC_COUNT) = Text4.TextIf Check1(0).Value Then rs1.Open str1, conn, 1, 3 rs.Fields(CD_NO) = Text5.Text rs.Fields(CD_NAME) = rs1(CD_NAME) rs.Fields(CD_PRICE) = rs1(CD_PRICE)End IfIf Check1(1).Value Then rs1.Open str1, conn, 1, 3 rs.Fields(CD_NAME) = Text5.Text rs.Fields(CD_NO) = rs1(CD_NO) rs.Fields(CD_PRICE) = rs1(CD_PRICE)End Ifrs.Update Adodc1.RecordSource = str1 Set DataGrid1.DataSource = Adodc1 Adodc1.CommandType = adCmdText Adod