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

2、握等特點，用戶界面直觀,便于使用維護。關鍵字：影院，售票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系統的開發背

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

5、機進行信息控制，不僅提高了工作效率，而且大大的提高了其安全性。尤其對于復雜的信息管理，計算機能夠充分發揮它的優越性。管理信息系統是進行信息的采集、存儲、加工、維護和使用的系統，它是隨著管理科學和技術科學的發展而形成的。影院售票管理系統是一個經濟社會不可缺少的部分，它的內容對于企業管理的決策者和管理者來說都至關重要,所以影院售票管理系統應該能夠為用戶提供充足的信息和快捷的查詢手段，對用戶來說可以輕松的查閱自己消費信息等。但是一直以來人們都是靠傳統人工的方式管理影院售票，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產生大量的文件和數據,這對于查找、更新和維護都帶來了不少的困難

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

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

8、力、物力、財力來進行售票管理。但是人工售票管理具有效率低、查找麻煩、可靠性不高、保密性低等因素。因此開發出一個適用于相當規模的影院售票管理系統是必要的。開發一個影院售票管理系統，采用計算機對影院售票進行管理，進一步提高了影院的效益和現代化水平。為廣大影院提高工作效率，實現影院售票工作流程的系統化、規范化和自動化。現在我國的很多影院的管理水平普遍都不是很高，有的還停留在全用紙介質基礎上，這種管理方式已不能適應時代的發展，社會的需求，因為它浪費了大量的人力物力，也存在著許多不足的因素。在今天信息時代這種傳統的管理方法必然會被計算機為基礎的信息管理系統所代替。一個高效的影院售票管理系統可以存儲很多影

9、院售票檔案，不需要大量的人力，只需要幾名專門錄入員即可操作系統，節省大量人力，可以迅速查到所需信息、高效、安全。系統開發目標與意義系統開發目標為了使系統在影院的管理中發揮更大的作用，實現工作過程的計算機化，提高工作效率和工作質量，現提出如下的系統開發目標：1.系統應具有實用性、可靠性和適用性，同時注意到先進性。2.對各個數據庫進行動態管理，防止混亂。3.能夠按照用戶選擇的不同的條件進行簡單查詢和復合查詢。4.能夠對查詢結果進行分類匯總，實現報表打印。5.注意數據的安全性，具有數據備份和恢復的功能。6.方便用戶的操作，盡量減少用戶的操作。意義影院售票管理是影院管理中異常重要的一個環節。計算機化是

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

11、作量大，不好管。第二章 應用技術理論VB簡介VB是Visual Basic的簡稱，是由美國微軟公司于1991年開發的一種可視化的、 面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開發 Windows 環境下的各類應用程序。它簡單易學、效率高，且功能強大可以與 Windows 專業開發工具SDK相媲美。在Visual Basic環境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用Windows內部的廣泛應用程序接口（API）函數，動態鏈接庫（DLL）、對象的鏈接與嵌入（OLE）、開放式數據連接（ODBC）等技術，可以高效、快速地開發Windows環境下功能強大、圖形界面豐富

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

13、的目的是用最小的代價在盡可能的時間內確定問題是否能夠解決。考慮到系統開發時間、資源等因素，在實際開發該計算機系統時，常常要為資源不足和交付日期難以完成而苦惱，因而需要慎重地盡可能早地估價研制課題的可行性。可行性研究包括：經濟可行性、技術可行性、操作可行性、不同的方案等等。經濟上可行性：現在，計算機的價格已經十分低廉，性能卻有了長足的進步。而本系統的開發，為學校的工作效率帶來了一個質的飛躍，為此主要表現有以下幾個方面：第一， 本系統的運行可以代替人工進行許多繁雜的勞動；第二， 本系統的運行可以節省許多資源；第三， 本系統的運行可以大大的提高學校的工作效率；第四， 本系統可以使敏感文檔更加安全，等

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

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

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

17、圖示、電影名稱、放映廳、上映時間、狀態、上映日期小賣部系統數據結構數據結構名含義說明組成商品信息說明商品的有關信息商品編號、商品名稱、進價、銷售價、單位、入庫單號、入庫日期、數量、經辦人、期初庫存、E-R圖 實體描述【會員】如圖3-1所示：會員小賣部消費會員卡號會員姓名身份證號聯系方式折扣率卡內余額充值總額買票消費期初金額備注【圖3-1】【商品】如圖3-2所示：商品進價銷售價商品名稱單位期初庫存商品編號備注【圖3-2】【影票】如圖3-3所示：影票票類放映廳上映日期上映時間影片名稱票價【圖3-3】會員、商品等實體的E-R，如圖3-4所示：售票員銷售員買賣買影票會員賣商品1N1N1N1N【圖3-4

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

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

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

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

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

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

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

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

26、表中通過商品編號調用商品信息中的數據；手工錄入數量；小計=數量*單價，系統自動計算。【圖4-11】在面板中點擊“商品銷售”按鈕，即可打開錄入窗口對商品銷售信息進行增加、修改或刪除操作。  2.5庫存明細，如圖4-12，查看各商品的期初庫存、累計入庫、累計銷售及庫存數量，庫存數量=期初庫存+累計入庫-累計銷售，系統自動計算。【圖4-12】  商品入庫期間查詢，查看期間內入庫商品的信息；統計各種商品的入庫數量及總額；并統計所有入庫總額。查詢統計3.1選擇查詢統計，如圖4-13：【圖4-13】3.2會員消費明細查看，如圖4-14：【圖4-14】根據需要填寫會員卡號，就可

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

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

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

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

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

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

33、ck()Form3.ShowForm2.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該界面是對會員信息添加、刪除、

34、修改界面，如圖6-4：【圖6-4】代碼:會員添加 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.O

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

36、t;) = Text5.Text rs("卡內金額") = Text6.Text If rs("會員卡號") = "" Then MsgBox "會員卡號不能為空", 64, "提示" Else MsgBox "添加成功！", 64, "提示"End IfEnd Sub會員修改：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 '如果確認修改的話進行修改操作 If Text1.Text = "" Then MsgBox "會員卡號不能為空值!", 48, "修改信息提示" Else '連接所要修改的數據庫 con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:張小磊售票管理.

38、MDB;Persist Security Info=False" '開始修改數據庫 con.Execute ("update 會員信息 set 會員卡號='" & Text1.Text & " ',會員姓名='" & Text2.Text & " ',身份證號='" & Text3.Text & "',折扣率='" & Text4.Text & " ',聯系方式

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

40、ext rs("身份證號") = Text3.Text rs("折扣率") = Text4.Text rs("聯系方式") = Text5.Text rs("卡內金額") = Text6.Text If rs("會員卡號") = "" Then MsgBox "會員卡號不能為空", 64, "提示" Else MsgBox "添加成功！", 64, "提示"End If會員刪除：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 會員信息 where 會員卡號 = &

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("您確認要刪除該記錄嗎？", vbOKCancel, "刪除提示信息") If c = vbOK Then rs.delete Adodc1.Recordset.

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

44、taSource = Adodc1End SubPrivate Sub Command2_Click()Form3.Show會員信息查詢.HideEnd Sub小賣部系統 2.1 admi選擇小賣部管理系統，如圖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 "請輸入菜單編號!", 64, "提示" Exit SubEnd IfIf Text2.Text = "" Then MsgBox "請輸入菜單名稱!", 64, "提示" Exit SubEnd IfIf Text3.Text = "" Then MsgBox "請輸入菜單種類!", 64,

47、 "提示" Exit SubEnd IfIf Text4.Text = "" Then MsgBox "請輸入菜單單價!", 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 "菜單編號不能為空！", 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 "請輸入菜單價格", 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