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

1、【精品文檔】如有侵權(quán)，請(qǐng)聯(lián)系網(wǎng)站刪除，僅供學(xué)習(xí)與交流影院售票管理系統(tǒng).精品文檔.軟 件 工 程 課 程 設(shè) 計(jì) 題 目： 影院售票管理系統(tǒng) 姓 名： 張小磊 饒強(qiáng) 郭威威 夏彬彬 學(xué) 號(hào)： 專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù)1班 指導(dǎo)老師： 完成時(shí)間： 2011.05 信 息 工 程 學(xué) 院 計(jì)算機(jī) 系摘要本文以影院售票系統(tǒng)的設(shè)計(jì)與開發(fā)為主題，運(yùn)用vb和SQL server編寫的程序， 此系統(tǒng)是一個(gè)簡(jiǎn)單的影院售票系統(tǒng)， 其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的數(shù)據(jù)庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備，操作簡(jiǎn)便，容易熟練掌

2、握等特點(diǎn)，用戶界面直觀,便于使用維護(hù)。關(guān)鍵字：影院，售票Abstract：In this paper, cinema ticketing system design and development of the theme, using vb and SQL server programs written, this theater system is a simple ticketing system, which mainly includes the establishment of database and front-end application maintenance and d

3、evelopment of the two.Request for the establishment of data consistency and integrity, data security database.For the latter applications require fully functional, simple, easy to master and so on, the user interface intuitive and easy to use and maintenance.Keyword: cinema, Ticketing目錄第一章 緒論4系統(tǒng)的開發(fā)背

4、景4現(xiàn)有系統(tǒng)存在問題的分析4系統(tǒng)開發(fā)的必要性5系統(tǒng)開發(fā)目標(biāo)與意義5第二章 應(yīng)用技術(shù)理論6VB簡(jiǎn)介6數(shù)據(jù)庫(kù)開發(fā)工具6第三章 需求分析7可行性分析7功能描述8數(shù)據(jù)字典8系統(tǒng)功能圖12對(duì)性能的規(guī)定13數(shù)據(jù)管理能力要求13故障處理要求14第四章 主要界面及功能14影院售票管理系統(tǒng)14小賣部管理18查詢統(tǒng)計(jì)20第五章 詳細(xì)設(shè)計(jì)23結(jié)構(gòu)程序設(shè)計(jì)23人機(jī)界面設(shè)計(jì)24第六章 功能實(shí)現(xiàn)26售票系統(tǒng)26小賣部系統(tǒng)32總結(jié)39參考文獻(xiàn)39第一章 緒論系統(tǒng)的開發(fā)背景當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代，在各行各業(yè)中離不開信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于信息管理系統(tǒng)的環(huán)境。計(jì)算機(jī)的最大好處在于利用它能夠進(jìn)行信息管理。使用計(jì)算

5、機(jī)進(jìn)行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對(duì)于復(fù)雜的信息管理，計(jì)算機(jī)能夠充分發(fā)揮它的優(yōu)越性。管理信息系統(tǒng)是進(jìn)行信息的采集、存儲(chǔ)、加工、維護(hù)和使用的系統(tǒng)，它是隨著管理科學(xué)和技術(shù)科學(xué)的發(fā)展而形成的。影院售票管理系統(tǒng)是一個(gè)經(jīng)濟(jì)社會(huì)不可缺少的部分，它的內(nèi)容對(duì)于企業(yè)管理的決策者和管理者來說都至關(guān)重要,所以影院售票管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄危瑢?duì)用戶來說可以輕松的查閱自己消費(fèi)信息等。但是一直以來人們都是靠傳統(tǒng)人工的方式管理影院售票，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來了不少的困難

6、。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)影院售票管理進(jìn)行管理,有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高影院售票管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開發(fā)這樣的一套影院售票管理系統(tǒng)成為很有必要的事情。影院售票管理系統(tǒng)提供了強(qiáng)大的管理功能，方便系統(tǒng)用戶使用?，F(xiàn)有系統(tǒng)存在問題的分析在完成了針對(duì)“影院售票系統(tǒng)”軟件市場(chǎng)的前期調(diào)查，同時(shí)與多位軟件使用者進(jìn)行了全面深入

7、地探討和分析的基礎(chǔ)上，我們提出了“影院售票系統(tǒng)”軟件需求規(guī)格說明書。它全面細(xì)致的用戶需求分析，明確所要開發(fā)的軟件應(yīng)具有的功能、性能與界面，使系統(tǒng)分析人員及軟件開發(fā)人員能清楚地了解用戶的需求。 隨著時(shí)代的進(jìn)步，在電影院中用人力售票越來越不能滿足人們的需求，不但花費(fèi)了大量勞動(dòng)力，而且浪費(fèi)時(shí)間。再現(xiàn)如今社會(huì)，時(shí)間就是金錢，所以為了節(jié)省時(shí)間，我們開發(fā)了“影院售票管理系統(tǒng)”。系統(tǒng)開發(fā)的必要性在21世紀(jì)的科技時(shí)代，科學(xué)技術(shù)突飛猛進(jìn)，計(jì)算機(jī)已經(jīng)不僅是在科技上應(yīng)用，而且在生活中也是同樣得到了廣泛在應(yīng)用。隨著時(shí)間的變化，影院規(guī)模的擴(kuò)大，有關(guān)售票管理工作和所涉及到的數(shù)據(jù)量越來越大越來越多，大多數(shù)影院不得不靠增加人

8、力、物力、財(cái)力來進(jìn)行售票管理。但是人工售票管理具有效率低、查找麻煩、可靠性不高、保密性低等因素。因此開發(fā)出一個(gè)適用于相當(dāng)規(guī)模的影院售票管理系統(tǒng)是必要的。開發(fā)一個(gè)影院售票管理系統(tǒng)，采用計(jì)算機(jī)對(duì)影院售票進(jìn)行管理，進(jìn)一步提高了影院的效益和現(xiàn)代化水平。為廣大影院提高工作效率，實(shí)現(xiàn)影院售票工作流程的系統(tǒng)化、規(guī)范化和自動(dòng)化?，F(xiàn)在我國(guó)的很多影院的管理水平普遍都不是很高，有的還停留在全用紙介質(zhì)基礎(chǔ)上，這種管理方式已不能適應(yīng)時(shí)代的發(fā)展，社會(huì)的需求，因?yàn)樗速M(fèi)了大量的人力物力，也存在著許多不足的因素。在今天信息時(shí)代這種傳統(tǒng)的管理方法必然會(huì)被計(jì)算機(jī)為基礎(chǔ)的信息管理系統(tǒng)所代替。一個(gè)高效的影院售票管理系統(tǒng)可以存儲(chǔ)很多影

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

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

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

12、的應(yīng)用軟件系統(tǒng)。數(shù)據(jù)庫(kù)開發(fā)工具SQL Server 是一個(gè)關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)。它最初是由Microsoft Sybase 和Ashton-Tate三家公司共同開發(fā)的，于1988 年推出了第一個(gè)OS/2 版本。在Windows NT 推出后，Microsoft與Sybase 在SQL Server 的開發(fā)上就分道揚(yáng)鑣了，Microsoft 將SQL Server 移植到Windows NT系統(tǒng)上，專注于開發(fā)推廣SQL Server 的Windows NT 版本。Sybase 則較專注于SQL Server在UNIX操作系統(tǒng)上的應(yīng)SQL Server安裝界面用。第三章 需求分析可行性分析可行性研究

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

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

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

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

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

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

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

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

21、入窗口工具欄上的""可以編輯一條現(xiàn)有的記錄，修改完點(diǎn)""保存。   刪除:點(diǎn)擊記錄移動(dòng)按鈕,移動(dòng)到要?jiǎng)h除的記錄上，單擊"-"按鈕，即可刪除當(dāng)前記錄。狀態(tài)圖示設(shè)置（注：座位平面圖的圖示默認(rèn)為只讀的，如果不適合可以調(diào)整的）1.4會(huì)員信息處理，如圖4-4:【圖4-4】功能操作說明：     在面板中點(diǎn)擊“會(huì)員信息”按鈕或雙擊表格界面打開錄入窗口。     增加:點(diǎn)擊錄入窗口最下方工具欄的"增加"或者"+"

22、;按鈕，即可新增一條記錄，然后輸入會(huì)員信息，完成后點(diǎn)""號(hào)保存。     修改:點(diǎn)擊錄入窗口工具欄上的""可以編輯一條現(xiàn)有的記錄，修改完點(diǎn)""保存。     刪除:點(diǎn)擊記錄移動(dòng)按鈕,移動(dòng)到要?jiǎng)h除的記錄上，單擊"-"按鈕，即可刪除當(dāng)前記錄。 1.5會(huì)員充值，如圖4-5，其中充值單號(hào)系統(tǒng)自動(dòng)生成，通過會(huì)員卡號(hào)調(diào)用會(huì)員信息中的數(shù)據(jù)；充后總額=充前總額+充值金額，系統(tǒng)自動(dòng)計(jì)算；經(jīng)辦人默認(rèn)填寫當(dāng)前系統(tǒng)登錄者的名稱。【圖4-5】在面板中點(diǎn)擊“會(huì)員充

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

24、；其它字段值根據(jù)實(shí)際情況填寫?！緢D4-9】功能操作說明：      在面板中點(diǎn)擊“商品信息”按鈕或雙擊表格界面打開錄入窗口。      增加:點(diǎn)擊錄入窗口最下方工具欄的"增加"或者"+"按鈕，即可新增一條記錄，然后輸入商品信息，完成后點(diǎn)""號(hào)保存。      修改:點(diǎn)擊錄入窗口工具欄上的""可以編輯一條現(xiàn)有的記錄，修改完點(diǎn)""保存。 &#

25、160;    刪除:點(diǎn)擊記錄移動(dòng)按鈕,移動(dòng)到要?jiǎng)h除的記錄上，單擊"-"按鈕，即可刪除當(dāng)前記錄。2.3商品入庫(kù)，如圖4-10其中入庫(kù)單號(hào)系統(tǒng)自動(dòng)生成，入庫(kù)日期默認(rèn)填寫當(dāng)前機(jī)器時(shí)間，也可手工錄入；經(jīng)辦人默認(rèn)填寫當(dāng)前系統(tǒng)登錄者的名稱。從表中通過商品編號(hào)調(diào)用商品信息中的數(shù)據(jù)；手工錄入數(shù)量；小計(jì)=數(shù)量*單價(jià)，系統(tǒng)自動(dòng)算。 【圖4-10】在面板中點(diǎn)擊“商品入庫(kù)”按鈕，即可打開錄入窗口對(duì)商品入庫(kù)進(jìn)行增加、修改或刪除操作。2.4商品銷售，如圖4-11，其中銷售單號(hào)系統(tǒng)自動(dòng)生成，銷售日期默認(rèn)填寫當(dāng)前機(jī)器時(shí)間，也可手工錄入；經(jīng)辦人默認(rèn)填寫當(dāng)前系統(tǒng)登錄者的名稱。從

26、表中通過商品編號(hào)調(diào)用商品信息中的數(shù)據(jù)；手工錄入數(shù)量；小計(jì)=數(shù)量*單價(jià)，系統(tǒng)自動(dòng)計(jì)算?！緢D4-11】在面板中點(diǎn)擊“商品銷售”按鈕，即可打開錄入窗口對(duì)商品銷售信息進(jìn)行增加、修改或刪除操作。  2.5庫(kù)存明細(xì)，如圖4-12，查看各商品的期初庫(kù)存、累計(jì)入庫(kù)、累計(jì)銷售及庫(kù)存數(shù)量，庫(kù)存數(shù)量=期初庫(kù)存+累計(jì)入庫(kù)-累計(jì)銷售，系統(tǒng)自動(dòng)計(jì)算?！緢D4-12】  商品入庫(kù)期間查詢，查看期間內(nèi)入庫(kù)商品的信息；統(tǒng)計(jì)各種商品的入庫(kù)數(shù)量及總額；并統(tǒng)計(jì)所有入庫(kù)總額。查詢統(tǒng)計(jì)3.1選擇查詢統(tǒng)計(jì)，如圖4-13：【圖4-13】3.2會(huì)員消費(fèi)明細(xì)查看，如圖4-14：【圖4-14】根據(jù)需要填寫會(huì)員卡號(hào)，就可

27、以看到會(huì)員在小賣部的詳細(xì)消費(fèi)，如圖4-15。  查詢出來的信息不允許用戶自行更改、添加和刪除。  【圖4-15】3.3按日期查詢統(tǒng)計(jì)售票數(shù)，查看期間內(nèi)售票信息，并統(tǒng)計(jì)各票類的售票數(shù)和售票金額，最后統(tǒng)計(jì)下所有售票數(shù)和售票金額，如圖4-16，輸入日期。【圖4-16】根據(jù)需要設(shè)置開始日期和截止日期，系統(tǒng)默認(rèn)開始日期和截止日期為當(dāng)前日期。單擊確定，看以看下面窗口，如圖6-17：  【圖6-17】雙擊系統(tǒng)左邊樹形列表中的“按日期查詢統(tǒng)計(jì)售票數(shù)”可打開此報(bào)表，若想打印此報(bào)表可在打開的報(bào)表頁面中單擊“打印”按鈕即可打印此報(bào)表。本報(bào)表打印所有在開始日期和截止日期之間的售票信息，系

28、統(tǒng)并自動(dòng)統(tǒng)計(jì)售票數(shù)量和售票總額。按場(chǎng)次查詢統(tǒng)計(jì)售票數(shù)，查看某場(chǎng)次售票信息，并統(tǒng)計(jì)各票類的售票數(shù)和售票金額，最后統(tǒng)計(jì)下該場(chǎng)次總的售票數(shù)和售票金額。第五章 詳細(xì)設(shè)計(jì)結(jié)構(gòu)程序設(shè)計(jì) 結(jié)構(gòu)程序設(shè)計(jì)的定義為：“結(jié)構(gòu)程序設(shè)計(jì)是盡可能少用GO TO 語句的程序設(shè)計(jì)方法。最好僅在檢測(cè)出錯(cuò)誤的時(shí)候才使用GO TO語句，而且應(yīng)該總是使用前向GO TO語句?！?本系統(tǒng)包括三個(gè)模塊：售票管理、小賣部管理和查詢統(tǒng)計(jì)。它們的結(jié)構(gòu)分布如下：1、售票管理（如圖5.1）圖5.12、小賣部管理（如圖5.2）圖5.23、查詢統(tǒng)計(jì)（如圖5.3）圖5.3人機(jī)界面設(shè)計(jì)1、系統(tǒng)響應(yīng)時(shí)間 系統(tǒng)響應(yīng)時(shí)間的兩個(gè)重要屬性：長(zhǎng)度和易變性。據(jù)了解，一般

29、來說，如果系統(tǒng)的響應(yīng)時(shí)間過長(zhǎng)，用戶就會(huì)感到很沮喪。但是，一旦響應(yīng)時(shí)間過短，這會(huì)迫使用戶加快操作節(jié)奏，從而很可能發(fā)生錯(cuò)誤。本系統(tǒng)經(jīng)過多數(shù)人測(cè)試以后，發(fā)現(xiàn)響應(yīng)時(shí)間值在一個(gè)合理的范圍之類，即用戶可以接受。2、用戶幫助設(shè)施 幾乎所有的交互式系統(tǒng)的每個(gè)用戶都需要幫助，當(dāng)遇到復(fù)雜的問題的時(shí)候，甚至需要查看用戶手冊(cè)才能尋求答案得以解決。本系統(tǒng)提供了聯(lián)機(jī)幫助設(shè)施，這使得用戶無須離開用戶界面就能解決自己想解決的問題。具體的幫助設(shè)施設(shè)計(jì)如下： （1）在用戶與系統(tǒng)交互期間，在任何時(shí)候，用戶都能獲得關(guān)于系統(tǒng)任何功能的幫助信息，因?yàn)楸鞠到y(tǒng)為用戶提供了兩種選擇：提供部分功能的幫助信息和提供全部功能的幫助信息。（在界面的右

30、邊幫助欄）（2）用戶可以以下三種方式請(qǐng)求幫助：幫助菜單，特殊功能鍵和HELP命令。（3）本系統(tǒng)在主屏幕界面右邊的固定位置會(huì)有幫助提示（4）用戶可以選擇屏幕上的返回按鈕返回到正常的交互界面上（5）本系統(tǒng)采用以下幾中結(jié)構(gòu)來組織幫助信息：平面結(jié)構(gòu)（幫助信息通過關(guān)鍵字訪問）、信息的層次結(jié)構(gòu)（通過該結(jié)構(gòu)，用戶可以查詢到更詳細(xì)的信息，例如主界面菜單欄下的下拉子菜單選項(xiàng)）和超文本鏈接3、出錯(cuò)信息處理 出錯(cuò)信息和警告信息，是用戶在使用系統(tǒng)時(shí)出現(xiàn)的“壞消息”。在用戶正常的操作剛才中，如果發(fā)現(xiàn)系統(tǒng)提示錯(cuò)誤信息，首先不要慌張，先看看錯(cuò)誤信息是怎么描述的（一般說來，這些信息都是用戶可以看的懂的），一般的問題，通過重啟

31、系統(tǒng)一般都能解決，如果遇到棘手的，用戶可以采用聯(lián)機(jī)幫助或者直接撥打客服電話以尋求解決。第六章 功能實(shí)現(xiàn)售票系統(tǒng) 1.1進(jìn)入系統(tǒng)界面，用戶名默認(rèn)為admi，如圖6-1: 【圖6-1】代碼：Private Sub Command1_Click()If Text1 = "" Or Text2 = "" ThenMsgBox "不能為空,請(qǐng)重新輸入", , "提示"x = x + 1Else If Text1.Text = "admi" And Text2.Text = "1234"

32、 Then Form1.Hide Form2.Show Else MsgBox "輸入錯(cuò)誤，請(qǐng)重新輸入", 48, "提示" x = x + 1 End IfEnd IfIf x = 3 ThenMsgBox "強(qiáng)制退出", 16, "提示"EndEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub1.2系統(tǒng)選擇界面，通過該界面admi可以選擇是進(jìn)入售票管理系統(tǒng)，還是進(jìn)入小賣部管理系，統(tǒng)如圖6-2: 【圖6-2】代碼：Private Sub Command1_Cli

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

34、修改界面，如圖6-4：【圖6-4】代碼:會(huì)員添加 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 會(huì)員信息" If con.State = 0 Then con.O

35、pen End Ifrs.Open str1, con, 1, 3rs.AddNewDataShowrs.Update '在datagrid中顯示數(shù)據(jù)Adodc1.CommandType = adCmdTextcon.CloseEnd SubPrivate Sub DataShow() rs("會(huì)員卡號(hào)") = Text1.Text rs("會(huì)員姓名") = Text2.Text rs("身份證號(hào)") = Text3.Text rs("折扣率") = Text4.Text rs("聯(lián)系方式&quo

36、t;) = Text5.Text rs("卡內(nèi)金額") = Text6.Text If rs("會(huì)員卡號(hào)") = "" Then MsgBox "會(huì)員卡號(hào)不能為空", 64, "提示" Else MsgBox "添加成功！", 64, "提示"End IfEnd Sub會(huì)員修改：Private Sub Command2_Click()Dim con As New ADODB.Connection Dim rs As New ADODB.Recordset

37、Dim str1 As String c = MsgBox("確定要修改該記錄嗎？", vbOKCancel, "提示信息") If c = vbOK Then '如果確認(rèn)修改的話進(jìn)行修改操作 If Text1.Text = "" Then MsgBox "會(huì)員卡號(hào)不能為空值!", 48, "修改信息提示" Else '連接所要修改的數(shù)據(jù)庫(kù) con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:張小磊售票管理.

38、MDB;Persist Security Info=False" '開始修改數(shù)據(jù)庫(kù) con.Execute ("update 會(huì)員信息 set 會(huì)員卡號(hào)='" & Text1.Text & " ',會(huì)員姓名='" & Text2.Text & " ',身份證號(hào)='" & Text3.Text & "',折扣率='" & Text4.Text & " ',聯(lián)系方式

39、='" & Text5.Text & " ', 卡內(nèi)金額='" & Text6.Text & " ' ") MsgBox "信息修改成功", 64, "修改信息提示" rs.CursorLocation = adUseClient End If End IfEnd SubPrivate Sub DataSave() rs("會(huì)員卡號(hào)") = Text1.Text rs("會(huì)員姓名") = Text2.T

40、ext rs("身份證號(hào)") = Text3.Text rs("折扣率") = Text4.Text rs("聯(lián)系方式") = Text5.Text rs("卡內(nèi)金額") = Text6.Text If rs("會(huì)員卡號(hào)") = "" Then MsgBox "會(huì)員卡號(hào)不能為空", 64, "提示" Else MsgBox "添加成功！", 64, "提示"End If會(huì)員刪除：Private S

41、ub Command3_Click()Dim con As New ADODB.Connection 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 會(huì)員信息 where 會(huì)員卡號(hào) = &

42、#39;" & Text1.Text & " '" If con.State = 0 Then con.Open End If 'rs.Open str1, 1, 3 rs.Open str1, con, adOpenKeyset, adLockOptimistic If rs.EOF = False Then c = MsgBox("您確認(rèn)要?jiǎng)h除該記錄嗎？", vbOKCancel, "刪除提示信息") If c = vbOK Then rs.delete Adodc1.Recordset.

43、Update 'rs.CursorLocation = adUseClient MsgBox "刪除成功！"End If Else MsgBox "當(dāng)前數(shù)據(jù)庫(kù)中沒有可刪除的數(shù)據(jù)記錄", vbOKOnly, "提示信息" End If con.CloseEnd SubPrivate Sub Command4_Click()Form3.ShowForm4.HideEnd Sub1.5該界面是對(duì)會(huì)員信息纖細(xì)查詢界面，如圖6-5：【圖6-5】代碼：Private Sub Command1_Click()Set DataGrid1.Da

44、taSource = Adodc1End SubPrivate Sub Command2_Click()Form3.Show會(huì)員信息查詢.HideEnd Sub小賣部系統(tǒng) 2.1 admi選擇小賣部管理系統(tǒng)，如圖6-6：【圖6-6】代碼：Private Sub Command1_Click()Form3.ShowForm2.HideEnd SubPrivate Sub Command2_Click()form5.ShowForm2.HideEnd Sub2.2 小賣部信息處理界面，如圖6-7【圖6-7】代碼：Private Sub add_Click()form7.ShowEnd SubPri

45、vate 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 Sub Command1_Click()str1 = "select * from CD where CD_NO ='" & Text1.Text & "'"If rs.State = 1

46、Thenrs.CloseEnd Ifrs.Open str1, conn, 1, 3If Text1.Text = "" Then MsgBox "請(qǐng)輸入菜單編號(hào)!", 64, "提示" Exit SubEnd IfIf Text2.Text = "" Then MsgBox "請(qǐng)輸入菜單名稱!", 64, "提示" Exit SubEnd IfIf Text3.Text = "" Then MsgBox "請(qǐng)輸入菜單種類!", 64,

47、 "提示" Exit SubEnd IfIf Text4.Text = "" Then MsgBox "請(qǐng)輸入菜單單價(jià)!", 64, "提示" Exit SubEnd IfIf rs.EOF Thenconn.Execute ("insert into CD values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.

48、Text & "','" & Text4.Text & "','" & Text5.Text & "')")MsgBox "新添加菜單成功！", 64, "信息"End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text =

49、""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).V

50、alue = 0 Or IsBusy ThenExit 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 "菜單編號(hào)不能為空！", 48, "警告"

51、; Else str1 = "select * from CD where CD_NO like '" & Text5.Text & "%'" End IfEnd IfIf Check1(1).Value Then If Trim(Text5.Text) = "" Then MsgBox "菜單名字不能為空！", 48, "警告" Else str1 = "select * from CD where CD_NAME like '" &

52、amp; Text5.Text & "%'" End If End If If Check1(2).Value Then If Trim(Text5.Text) = "" Then MsgBox "請(qǐng)輸入菜單價(jià)格", 48, "警告" Else str1 = "select * from CD where CD_PRICE like '" & Text5.Text & "%'" End If End Ifrs.Open &quo

53、t;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_N

54、AME") 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 A