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

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

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

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

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

5、煩、可靠性不高、保密性低等因素。因此開(kāi)發(fā)出一個(gè)適用于相當(dāng)規(guī)模的影院售票管理系統(tǒng)是必要的。開(kāi)發(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ǔ)很多影院售票檔案，不需要大量的人力，只需要幾名專門(mén)錄入員即可操作系統(tǒng)，

6、節(jié)省大量人力，可以迅速查到所需信息、高效、安全。1.3系統(tǒng)開(kāi)發(fā)目標(biāo)與意義系統(tǒng)開(kāi)發(fā)目標(biāo)為了使系統(tǒng)在影院的管理中發(fā)揮更大的作用，實(shí)現(xiàn)工作過(guò)程的計(jì)算機(jī)化，提高工作效率和工作質(zhì)量，現(xiàn)提出如下的系統(tǒng)開(kāi)發(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ī)化是整個(gè)影院管理中的重要一部分，能否實(shí)現(xiàn)這一步關(guān)系到影院售票整

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

8、al Basic的簡(jiǎn)稱，是由美國(guó)微軟公司于1991年開(kāi)發(fā)的一種可視化的、 面向?qū)ο蠛筒捎檬录?qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語(yǔ)言，可用于開(kāi)發(fā) Windows 環(huán)境下的各類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大可以與 Windows 專業(yè)開(kāi)發(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）、開(kāi)放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開(kāi)發(fā)Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。2.2數(shù)據(jù)庫(kù)開(kāi)發(fā)工具SQL Server

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

10、能夠解決。考慮到系統(tǒng)開(kāi)發(fā)時(shí)間、資源等因素，在實(shí)際開(kāi)發(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)的開(kāi)發(fā)，為學(xué)校的工作效率帶來(lái)了一個(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)可以使敏感文檔更加安全，等等。所以，本系統(tǒng)在經(jīng)濟(jì)上是可行的。技術(shù)上可行性：

11、本系統(tǒng)的開(kāi)發(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)開(kāi)發(fā)的開(kāi)發(fā)環(huán)境，它提供完善的指令控制語(yǔ)句、類與對(duì)象的支持及豐富的數(shù)據(jù)類型，給開(kāi)發(fā)高性能系統(tǒng)提供的保障為開(kāi)發(fā)滿足客戶要求的系統(tǒng)，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對(duì)新系統(tǒng)的擴(kuò)展與修改。綜上所述，本系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。出走做可行性：本系統(tǒng)為一個(gè)小型的影院售票管理系統(tǒng)，所耗費(fèi)的資源非常的小，影院的電腦

12、無(wú)論是硬件還是軟件都能夠滿足條件，界面設(shè)計(jì)時(shí)充分考慮管理人員的習(xí)慣，使得操作簡(jiǎn)單；數(shù)據(jù)錄入迅速、規(guī)范、可靠；統(tǒng)計(jì)準(zhǔn)確；制表靈活；適應(yīng)力強(qiáng)；容易擴(kuò)充，因此，本系統(tǒng)在操作上是可行的。3.2功能描述售票員：1.辦理會(huì)員及查詢、刪除、修改會(huì)員信息2.查找即將上映的影片信息和放映廳號(hào)3.查詢已賣(mài)票數(shù)和剩余票數(shù)和其對(duì)應(yīng)的座位4.售票小賣(mài)部管理員：1.增添、刪除、修改商品信息2.管理商品入庫(kù) 3.銷(xiāo)售商品3.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)金額買(mǎi)票消費(fèi)001張明男0.85100002張敏女0.7120【表3.1】影票信息表，

13、如表3.2所示，是描述影票的詳細(xì)信息。電影名稱上映日期上映時(shí)間放映廳票類票價(jià)戀愛(ài)通告2011.06.0118:00:00*Vip30關(guān)云長(zhǎng)2011.06.0718:00:00*Vip30【表3.2】小賣(mài)部系統(tǒng)數(shù)據(jù)項(xiàng)商品信息表，如表3.3所示：商品編號(hào)商品名稱進(jìn)價(jià)銷(xiāo)售價(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)名含義說(shuō)明組成會(huì)員信息說(shuō)明會(huì)員的有關(guān)信息會(huì)員卡號(hào)、會(huì)員姓名、省份證號(hào)、聯(lián)系方式、折扣率、初期金額、卡內(nèi)金額、充值總額、小賣(mài)部消費(fèi)、買(mǎi)票消費(fèi)影票信息說(shuō)明影票的有關(guān)信息票類、票價(jià)、影院名稱、圖示、電影名稱、放映廳、上映時(shí)間、狀

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

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

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

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

18、錄。狀態(tài)圖示設(shè)置（注：座位平面圖的圖示默認(rèn)為只讀的，如果不適合可以調(diào)整的）1.4會(huì)員信息處理，如圖4-4:【圖4-4】功能操作說(shuō)明： 在面板中點(diǎn)擊“會(huì)員信息”按鈕或雙擊表格界面打開(kāi)錄入窗口。 增加:點(diǎn)擊錄入窗口最下方工具欄的增加或者+按鈕，即可新增一條記錄，然后輸入會(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)生成，通過(guò)會(huì)員卡號(hào)調(diào)用會(huì)員信息中的數(shù)據(jù)；充后總額=充前總額+充值金額，系統(tǒng)自動(dòng)計(jì)算；經(jīng)辦人默認(rèn)填寫(xiě)當(dāng)前系統(tǒng)登錄者

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

20、9，其中商品編號(hào)不允許重復(fù)或者為空；其它字段值根據(jù)實(shí)際情況填寫(xiě)。【圖4-9】功能操作說(shuō)明： 在面板中點(diǎn)擊“商品信息”按鈕或雙擊表格界面打開(kāi)錄入窗口。 增加:點(diǎn)擊錄入窗口最下方工具欄的增加或者+按鈕，即可新增一條記錄，然后輸入商品信息，完成后點(diǎn)號(hào)保存。 修改:點(diǎn)擊錄入窗口工具欄上的可以編輯一條現(xiàn)有的記錄，修改完點(diǎn)保存。 刪除:點(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)填寫(xiě)當(dāng)前機(jī)器時(shí)間，也可手工錄入；經(jīng)辦人默認(rèn)填寫(xiě)當(dāng)前系統(tǒng)登錄者的名稱。從表中通過(guò)商品編號(hào)調(diào)用商品信息中的數(shù)據(jù)；手工錄入數(shù)量；小計(jì)=數(shù)量*單價(jià)

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

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

23、7】雙擊系統(tǒng)左邊樹(shù)形列表中的“按日期查詢統(tǒng)計(jì)售票數(shù)”可打開(kāi)此報(bào)表，若想打印此報(bào)表可在打開(kāi)的報(bào)表頁(yè)面中單擊“打印”按鈕即可打印此報(bào)表。本報(bào)表打印所有在開(kāi)始日期和截止日期之間的售票信息，系統(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ù)和售票金額。5. 詳細(xì)設(shè)計(jì)5.1結(jié)構(gòu)程序設(shè)計(jì) 結(jié)構(gòu)程序設(shè)計(jì)的定義為：“結(jié)構(gòu)程序設(shè)計(jì)是盡可能少用GO TO 語(yǔ)句的程序設(shè)計(jì)方法。最好僅在檢測(cè)出錯(cuò)誤的時(shí)候才使用GO TO語(yǔ)句，而且應(yīng)該總是使用前向GO TO語(yǔ)句。” 本系統(tǒng)包括三個(gè)模塊：售票管理、小賣(mài)部管理和查詢統(tǒng)計(jì)。它們的結(jié)構(gòu)分布如下：

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

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

26、信息，是用戶在使用系統(tǒng)時(shí)出現(xiàn)的“壞消息”。在用戶正常的操作剛才中，如果發(fā)現(xiàn)系統(tǒng)提示錯(cuò)誤信息，首先不要慌張，先看看錯(cuò)誤信息是怎么描述的（一般說(shuō)來(lái)，這些信息都是用戶可以看的懂的），一般的問(wèn)題，通過(guò)重啟系統(tǒng)一般都能解決，如果遇到棘手的，用戶可以采用聯(lián)機(jī)幫助或者直接撥打客服電話以尋求解決。6. 功能實(shí)現(xiàn)及代碼6.1售票系統(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

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

28、2.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ì)員信息添加、刪除、修改界面，如圖6-4：【圖6-4】代

29、碼:會(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.Open End Ifrs.Open str1, con, 1, 3rs.AddNew

30、DataShowrs.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)系方式) = Text5.Text rs(卡內(nèi)金額) = Text6.Text If rs(會(huì)員卡號(hào)) = Then MsgBox 會(huì)員卡號(hào)不能為空, 64, 提示 Else MsgBox 添加成功！, 64, 提示

31、End IfEnd Sub會(huì)員修改：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 如果確認(rèn)修改的話進(jìn)行修改操作 If Text1.Text = Then MsgBox 會(huì)員卡號(hào)不能為空值!, 48, 修改信息提示 Else 連接所要修改的數(shù)據(jù)庫(kù) con.Open Provider=Microsoft.Jet.O

32、LEDB.4.0;Data Source=H:張小磊售票管理.MDB;Persist Security Info=False 開(kāi)始修改數(shù)據(jù)庫(kù) con.Execute (update 會(huì)員信息 set 會(huì)員卡號(hào)= & Text1.Text & ,會(huì)員姓名= & Text2.Text & ,身份證號(hào)= & 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(會(huì)員卡號(hào)) = Text1.Text rs(會(huì)員姓名) = Text2.Text 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 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 會(huì)員信息 where 會(huì)員卡號(hào) = & 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(您確認(rèn)要?jiǎng)h除該記錄嗎？, vbOKCancel, 刪除提示信息) If c = vbOK Then rs.delete Adodc1.Recordset.Update rs.CursorLocation = adUseClient MsgBox 刪除成功！End If Else MsgBox 當(dāng)前數(shù)據(jù)庫(kù)中沒(méi)有可刪除的數(shù)據(jù)記錄, vbOKOnly, 提示信息 End If con.CloseEnd SubPrivate

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

37、SubPrivate Sub Command2_Click()form5.ShowForm2.HideEnd Sub2.2 小賣(mài)部信息處理界面，如圖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 請(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, 提示 Exit Sub

39、End 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.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 菜單編號(hào)不能為空！, 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 請(qǐng)輸入菜單價(jià)格, 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