1、學號14080101422016-2017學年 第2學期C+課程設計報告題目：電影院售票系統專業：計算機科學與技術班級：14 （1）姓名：虞躍華指導教師：陳寶國成績：計算機學院2017年4月21日 （課外的，第十周答辯和總結）2017年5月21日 （課內的，第十四周答辯和總結）目錄.4 .4 .5 .5 .6 .6 .6 .7 .7 .8 .8 .12 .13 .13 .14 .14.14 .18 .20 .23 .23 .24 .26 .26 .32 .39 .391.緒論LL系統的開發背景12 系統開發的必要性.系統開發目標與意義2.開發工具2J.VB簡介組數據庫開發工具.3需求分析紅可行

2、性分析曙_功能描述坦數據字典系統功能圖3.5對性能的規定亞數據管理能力要求.工1故障處理要求4 .主要界面及功能夏影院售票管理系統.絲小賣部管理組查詢統計5 .詳細設計紅結構程序設計5.2人機界面設計6 .功能實現6.1 售票系統6.2 小賣部系統總結參考文獻1.緒論1.1 系統的開發背景當今時代是飛速發展的信息時代，在各行各業中離不開信息處理，這正是計 算機被廣泛應用于信息管理系統的環境。計算機的最大好處在于利用它能夠進行 信息管理。使用計算機進行信息控制，不僅提高了工作效率，而且大大的提高了 其安全性。尤其對于復雜的信息管理，計算機能夠充分發揮它的優越性。管理信息系統是進行信息的采集、存儲

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

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

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

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

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

8、的問題。影院售 票管理系統是一個非常繁瑣與復雜的一項工作，一個原因就是工作量大，不好管。2.開發工具2.1 VB簡介VB是Visual Basic的簡稱，是由美國微軟公司于1991年開發的一種可 視化的、面向對象和采用事件驅動方式的結構化高級程序設計語言，可用于開 發Windows環境下的各類應用程序。它簡單易學、效率高，且功能強大可以與 Windows專業開發工具SDK相媲美。在Visual Basic環境下，利用事件驅動的 編程機制、新穎易用的可視化設計工具，使用Windows內部的廣泛應用程序接口 (API)函數，動態鏈接庫(DLL)、對象的鏈接與嵌入(OLE)、開放式數據連接 (ODB

9、C)等技術，可以高效、快速地開發Windows環境下功能強大、圖形界面豐 富的應用軟件系統。2 . 2數據庫開發工具SQL Server是一個關系數據庫管理系統。它最初是由Microsoft Sybase 和AshtonTate三家公司共同開發的，于1988年推出了第一個OS/2版本。在 Windows NT推出后，Microsoft與Sybase在SQL Server的開發上就分道揚鑲 了，Microsoft將SQL Server移植到Windows NT系統上，專注于開發推廣SQL Server的Windows NT版本。Sybase則較專注于SQL Server在UNIX操作系統 上的應

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

11、系統的運行可以大大的提高學校的工作效率；第四，本系統可以使敏感文檔更加安全，等等。所以，本系統在經濟上是 可行的。技術上可行性：本系統的開發利用Microsoft SQL Server2000作為本系統的數 據庫，它是一個支持多用戶的新型數據庫，適用于大中規模的數據量需求。學校 校園網的建設也為新系統服務器/客戶端的結構提供了硬件的支持。使用V B作 為系統開發的開發環境，它提供完善的指令控制語句、類與對象的支持及豐富的 數據類型，給開發高性能系統提供的保障為開發滿足客戶要求的系統，保證了代 碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對新系統的擴展與修改。 綜上所述，本系統的設計與開發

12、在技術上和硬件設備上的條件都是滿足的，因此, 它在技術上是可行的。出走做可行性：本系統為一個小型的影院售票管理系統，所耗費的資源非常的小, 影院的電腦無論是硬件還是軟件都能夠滿足條件，界面設計時充分考慮管理人員 的習慣，使得操作簡單；數據錄入迅速、規范、可靠；統計準確；制表靈活；適應力強；容易擴充，因此，本系統在操作上是可行的。3. 2功能描述售票員：1 .辦理會員及查詢、刪除、修改會員信息2 .查找即將上映的影片信息和放映廳號3 .查詢已賣票數和剩余票數和其對應的座位4 .售票小賣部管理員：1 .增添、刪除、修改商品信息2 .管理商品入庫3 .銷售商品3. 3數據字典I、數據項售票系統數據項

13、會員信息表，如表3.1所示，是描述會員的信息。會員 卡號會員 姓名性別聯系 方式折扣率卡內 金額買票 消費001張明男0. 85100002張敏女0.7120【表3. 1】影票信息表，如表3. 2所示，是描述影票的詳細信息。電影名上映1 1上映時放映廳票類票價稱期間戀愛通2011.06.0118:00:00Vip30關云長2011.06.0718:00:00Vip30【表3.2】小賣部系統數據項商品信息表，如表3. 3所示:商品編號商品名稱進價銷售價單位庫存量001康師傅方便面24袋100002爆米花24袋150【表3.3】II、數據結構售票系統數據結構數據結構名含義說明組成會員信息說明會員的

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

15、:【圖3-5】小賣部管理系統功能圖，如圖3-6所示:1 .顯示商品信息2 .顯示庫存明細<會員否購買 二> NL添加、刪除、修改、查詢商 品信息2 .商品入庫3 .商品盈利查詢更改庫存及會員信息【圖3-6】3.5對性能的規定精度整型和double型 時間特性要求本軟件的規模不大，一般的機器都能跑的起來，對電腦的性能要求很不高，一般pc機都可以順暢運行，能夠滿足絕大多數公司電腦配置的需求。3. 6數據管理能力要求考慮到一個電影院它的規模是固定的，總體座位框架是不變的，座位的操作就采用二維數組來操作，然后將其操作結果存儲在某場電影的座位文件中。某場電影的信息 就采用鏈表來處理，因為鏈表

16、操作便于對其進行增、冊IJ、改、查詢，可以將所有 電影的信息存儲在一個電影信息文件中。3.7故障處理要求我們的這個系統它是采用實時更新文件的方法，電腦斷電或死機等，不會丟 失當前的操作信息，可以解決電腦斷電后系統丟失已完成的操作問題，避免了客 戶因意外事件丟失數據。4.主要界面及功能4.1 影院售票管理系統1. 1選擇影院售票管理系統，如圖4-1：影院售票管理系統11售票管理g"賣部管理查詢統計.叁員：信息會員充值 ，手傷設置,場所設式匹抽態圖南該式沽空無用數據使用r跑可以顯示/南在當前烏航窗口【圖4-1】1.2 節目設置，如圖4-2,在此節點設置放映節目的信息，方便創建場次時調用;

17、 其中導演、片類、語種、產地等字段值具有記憶功能，只需錄入一次，下次再使 用時直接在下拉列表中選擇即可。【圖4-2】1.3 票價設置，如圖4-3,記錄不同票類的票價，方便售票時調用。【圖4-3】功能操作說明：在面板中點擊“票價設置”按鈕或雙擊表格界面打開錄入窗口。增加:點擊錄入窗口最下方工具欄的增加或者+按鈕，即可新增一條記錄，然 后輸入票價，完成后點 J 號保存。修改:點擊錄入窗口工具欄上的可以編輯一條現有的記錄，修改完點 J保 存。刪除:點擊記錄移動按鈕，移動到要刪除的記錄上，單擊-按鈕，即可刪除當前 記錄。狀態圖示設置（注：座位平面圖的圖示默認為只讀的，如果不適合可以調整的）1. 4會員

18、信息處理，如圖4-4:旬領出【一目、會員信息I會員卡號SD會員姓名揚借身份證號麗聲而訴M寐系方式151W*M* 折扣率0.8 期初金額1C0卡內余新勤充值在額。買票消贄2d4函輯5J留注-虧 *加【圖4-4】功能操作說明：在面板中點擊“會員信息”按鈕或雙擊表格界面打開錄入窗口。增加:點擊錄入窗口最下方工具欄的增加或者+按鈕，即可新增一條記 錄，然后輸入會員信息，完成后點 J 號保存。修改:點擊錄入窗口工具欄上的可以編輯一條現有的記錄，修改完點 ，'保存。刪除:點擊記錄移動按鈕，移動到要刪除的記錄上，單擊-按鈕，即可刪除 當前記錄。1.5會員充值，如圖4-5,其中充值單號系統自動生成，通

19、過會員卡號調用會員 信息中的數據；充后總額二充前總額+充值金額，系統自動計算；經辦人默認填寫 當前系統登錄者的名稱。【圖4-5】在面板中點擊“會員充值”按鈕，即可打開錄入窗口對會員充值進行增加、修改 或刪除操作。L 6設置影片上映，如下圖4-6：【圖4-6】在上圖中選擇對應的上映日期、上映時間，然后點確定，進入如下窗口，如圖4-7 o【圖4-7】在上圖中選擇需要的座位（綠色底的表示未售、紅色底的表示已售、黃色底表示 訂票），然后在右面操作，通過票類調用票價設置中的數據；也可以會員卡消費, 默認是打折的，勾選掉是否打折，就是按票價從會員卡中扣除；將售票狀態改為 已售，然后點對號保存，座位平面圖的

20、顏色由綠色更新為紅色。4. 2小賣部管理2.1選擇小賣部管理系統，如圖4-8：S 小£55郭使用 r wkc 口 rsAjit/ 師 當 wr h砒 b a【圖4-8】2. 2添加商品信息如圖4-9,其中商品編號不允許重復或者為空；其它字段值根 據實際情況填寫。【圖4-9】功能操作說明：在面板中點擊“商品信息”按鈕或雙擊表格界面打開錄入窗口。增加:點擊錄入窗口最下方工具欄的增加或者+按鈕，即可新增一條記 錄，然后輸入商品信息，完成后點 J 號保存。修改:點擊錄入窗口工具欄上的可以編輯一條現有的記錄，修改完點 ，'保存。刪除:點擊記錄移動按鈕，移動到要刪除的記錄上，單擊-按鈕，

21、即可刪除 當前記錄。2. 3商品入庫，如圖4T0其中入庫單號系統自動生成，入庫日期默認填寫當前 機器時間，也可手工錄入；經辦人默認填寫當前系統登錄者的名稱。從表中通過 商品編號調用商品信息中的數據；手工錄入數量；小計二數量*單價，系統自動算。【圖4-10】入I左90 KK30101.1X7001S 人一人 6nLm在面板中點擊“商品入庫”按鈕，即可打開錄入窗口對商品入庫進行增加、修改 或刪除操作。2. 4商品銷售，如圖4-11,其中銷售單號系統自動生成，銷售日期默認填寫當前 機器時間，也可手工錄入；經辦人默認填寫當前系統登錄者的.名稱。從表中通過 商品編號調用商品信息中的數據；手工錄入數量；小

22、計二數量*單價，系統自動計 算。F商品觸I，一卜回商品銷隹銷售配號銷售日期%r=n會員卡號a”總金額0經辦人備 注- 地加囪固網 Ip【圖4-11在面板中點擊“商品銷售”按鈕，即可打開錄入窗口對商品銷售信息進行增加、 修改或刪除操作。3. 5庫存明細，如圖4T2,查看各商品的期初庫存、累計入庫、累計銷售及庫存 數量，庫存數量二期初庫存+累計入庫-累計銷售，系統自動計算。【圖4-12商品入庫期間查詢，查看期間內入庫商品的信息；統計各種商品的入庫數量 及總額；并統計所有入庫總額。4. 3查詢統計4.1 選擇查詢統計,如圖4T3：賽?除隹索管理系統其呂§二小共舞理需誓2 J 二 2

23、87;使用尸8gt可卬.穌加/曲柯由口 【圖4-13】4. 2會員消費明細查看，如圖4T4：【圖4一14】根據需要填寫會員卡號，就可以看到會員在小賣部的詳細消費，如圖4-15。 查詢出來的信息不允許用戶自行更改、添加和刪除。slOED S3 IE |)|lCOX |后 西 苣1 M <0:l 會員消費日月細表力 Skffi：； ZOlQ-ai-ZD 13; 50僉生一<5日洌位中小*小二OO1OO1OO1方便工yy砥，QX。一X - i . EO10-1X-1T 2010-11-17243. 51. 324&4金計Z9 J一WL.【圖4-15】3. 3按日期查詢統計售票數，

24、查看期間內售票信息，并統計各票類的售票數和售 票金額，最后統計下所有售票數和售票金額，如圖4-16,輸入日期。【圖4-16】根據需要設置開始日期和截止口期，系統默認開始口期和截止日期為當前日期。 單擊確定，看以看下面窗口，如圖6-17：【圖6-17】 雙擊系統左邊樹形列表中的“按日期查詢統計售票數”可打開此報表，若想打印 此報表可在打開的報表頁面中單擊“打印”按鈕即可打印此報表。本報表打印所 有在開始日期和截止日期之間的售票信息，系統并自動統計售票數量和售票總額。按場次查詢統計售票數，查看某場次售票信息，并統計各票類的售票數和售票金 額，最后統計下該場次總的售票數和售票金額。5 .詳細設計5.

25、1 結構程序設計結構程序設計的定義為：“結構程序設計是盡可能少用GO TO語句的程 序設計方法。最好僅在檢測出錯誤的時候才使用GO TO語句，而且應該總是使用 前向GO TO語句本系統包括三個模塊：售票管理、小賣部管理和查詢統計。它們的結構 分布如下：1、售票管理（如圖5. 1）.會員信息 工會員充值 7票價設置 “場所設置SE狀態圖示設置清空無用數據圖5.12、小賣部管理（如圖5. 2）亡1面（ft佰電、商品入.熠1加存明冬田& &商品鈉四一十V 二尚品入中其目IF選訪I曲晶鈉,期間應詢銷, as利圖5. 23、查詢統計（如圖5. 3）圖5. 35. 2人機界面設計1、系統響

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

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

28、怎 么描述的（一般說來，這些信息都是用戶可以看的懂的），一般的問題，通過重 啟系統一般都能解決，如果遇到棘手的，用戶可以采用聯機幫助或者直接撥打客服電話以尋求解決。6 .功能實現及代碼6.1 售票系統1.1進入系統界面，用戶名默認為admi,如圖6-1:圖6-1 代碼:Private Sub Commandl_Click () If Textl = " Or Text2 = " Then MsgBox 不能為空,請重新輸入，提示 X = X + 1 ElseIf Textl. Text = admi And Text2. Text = "1234 Then For

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

30、)form5. ShowForm2. HideEnd Sub1. 3該界面是對會員信息管理，如圖6-3：【圖6-3】代碼：Private Sub Commandl_Click ()Form4. ShowForm3. HideEnd SubPrivate Sub Command2_Click() 會員信息查詢.ShowForm3. HideEnd SubPrivate Sub Command3_Click()Form2. ShowForm3. HideEnd Sub1.4該界面是對會員信息添加、刪除、修改界面，如圖6-4：【圖6-4】代碼:會員添加Dim con As New ADODB. Co

31、nnectionDim rs As New ADODB. RecordsetPrivate Sub Commandl_Click()con.ConnectionString = "Provider=Microsoft。 Jet. OLEDB. 4. 0;DataSource二H: 張小磊、售票管理.MDB;Persist Security Info=False”strl = "select * from 會員信息If con. State = 0 Thencon. OpenEnd Ifrs. Open strl, con, 1, 3rs. AddNewDataShowrs.

32、 Update '在datagrid中顯示數據Adodcl. CommandType = adCmdText con.CloseEnd SubPrivate Sub DataShow()rs （會員卡號） rs （會員姓名） rs （身份證號） rs （折扣率）= rs （聯系方式） rs （卡內金額）Textl. TextText2. TextText3. TextText4. TextText5. TextText6. TextIf rs (會員卡號)= ThenMsgBox 會員卡號不能為空，64, 提示ElseMsgBox 添加成功！ ，64, 提示End IfEnd Sub會

33、員修改：Private Sub Command2_Click()Dim con As New ADODB. ConnectionDim rs As New ADODB. RecordsetDim strl As Stringc = MsgBox (確定要修改該記錄嗎？ ，vbOKCancel, 提示信息)If c = vbOK Then'如果確認修改的話進行修改操作If Textl. Text = ThenMsgBox 會員卡號不能為空值!，48, 修改信息提示 Else'連接所要修改的數據庫con. Open“Provider=Microsoft。 Jet. OLEDB. 4

34、. 0;DataSource二H: 張小磊、售票管理.MDB;Persist Security Info=False”'開始修改數據庫con. Execute ("update 會員信息 set 會員卡號=' & Textl. Text & '，會員姓名='"& Text2. Text & '，身份證號=' & Text3. Text & '，折扣率=' & Text4. Text & "',聯系方式二' & Te

35、xt5. Text & '，卡內 金額=' & Text6. Text & ' )MsgBox 信息修改成功，64, 修改信息提示rs. CursorLocation = adUseClientEnd IfEnd If End SubPrivate Sub DataSave()rs （會員卡號） rs （會員姓名） rs （身份證號） rs （折扣率）= rs （聯系方式） rs （卡內金額）Textl. TextText2. TextText3. TextText4. TextText5. TextText6. TextIf rs （會員卡號）

36、= ThenMsgBox 會員卡號不能為空，64, 提示ElseMsgBox 添加成功！ ，64, 提示End If 會員刪除：Private Sub Command3_Click()Dim con As New ADODB. ConnectionDim rs As New ADODB. RecordsetDim strl As Stringcon. ConnectionString ="Provider=Microsoft。 Jet. OLEDB. 4. 0;DataSource二H: 張小磊、售票管理.MDB;Persist Security Info=False”con.Cur

37、sorLocation = adUseClientstrl = "select * from 會員信息 where 會員卡號二' & Textl. Text & ' If con. State = 0 Thencon. OpenEnd Ifrs. Open strl, 1, 3rs. Open strl, con, adOpenKeyset, adLockOptimistic If rs.EOF = False Thenc二MsgBox（您確認要刪除該記錄嗎？ , vbOKCancel, 刪除提示信息） If c = vbOK Thenrs.delet

38、eAdodcl. Recordset. Update1rs.CursorLocation = adUseClientMsgBox 刪除成功!End If ElseMsgBox 當前數據庫中沒有可刪除的數據記錄，vbOKOnly, 提示信息End Ifcon. CloseEnd SubPrivate Sub Command4_Click()Form3. ShowForm4. HideEnd Sub 1.5該界面是對會員信息纖細查詢界面，如圖6-5：341502199COd25T174圖6-5 代碼：Private Sub Commandl_Click () Set DataGridl. Data

39、Source = Adodcl End SubPrivate Sub Command2_Click()Form3. Show 會員信息查詢.HideEnd Sub6. 2小賣部系統2. 1 admi選擇小賣部管理系統，如圖6-6：【圖6-6】代碼：Private Sub Commandl_Click ()Form3. ShowForm2. HideEnd SubPrivate Sub Command2_Click() form5. ShowForm2. HideEnd Sub2.2小賣部信息處理界面，如圖6-7【圖6-7】代碼：Private Sub add_Click() form7. Sh

40、ow End SubPrivate Sub back_Click()Form9. Show Unload Me End SubPrivate Sub count_Click() form6. Show End SubPrivate Sub delete_Click()form8. ShowEnd Sub2. 3該界面是商品添加界面，如圖6-8:【圖6-8】代碼：Private Sub Command 1_C1 ick ()strl ="select * from CD where CD_NO =' & Textl. Text &If rs. State = 1

41、 Then rs. CloseEnd Ifrs. Open strl, conn, 1, 3If Textl. Text = ThenMsgBox 請輸入菜單編號! ，64, 提示 Exit SubEnd IfIf Text2. Text = ThenMsgBox 請輸入菜單名稱! ，64, 提示 Exit SubEnd IfIf Text3. Text = ThenMsgBox 請輸入菜單種類! ，64, 提示 Exit SubEnd IfIf Text4. Text = ThenMsgBox 請輸入菜單單價! ，64, 提示 Exit SubEnd IfIf rs. EOF Thencon

42、n. Execute ("insert into CD values (J & Textl. Text &'，'& Text2. Text &" & Text3. Text & '，' & Text4. Text & & Text5. Text & ')”)MsgBox 新添加菜單成功！ ，64, 信息 End IfEnd SubPrivate Sub Command2_Click()Textl.Text = "Text2. Text = Tex

43、t3. Text = "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 rsl As New ADODB. RecordsetPrivate Sub Checkl-Click(Index As Integer) If

44、 Checkl (Index). Value = 0 Or IsBusy Then Exit SubDim i As IntegerIsBusy = TrueFor i = 0 To Checkl. UBoundIf i <> Index Then Checkl (i). Value = 0NextIsBusy = FalseEnd IfEnd SubPrivate Sub Commandl_Click()If Checkl(0). Value ThenIf Trim(Text5. Text) = ThenMsgBox 菜單編號不能為空！ ，48, 警告Elsestrl = &qu

45、ot;select * from CD where CD_N0 like & Text5. Text & 飛'End IfEnd IfIf Checkl(1). Value ThenIf Trim(Text5. Text) = ThenMsgBox 菜單名字不能為空！ ，48, 警告Elsestrl = "select * from CD where CD_NAME like ' " & Text5. Text & 飛'End IfEnd IfIf Checkl(2). Value ThenIf Trim(Text5.

46、 Text) = ThenMsgBox 請輸入菜單價格，48, 警告Elsestrl = "select * from CD where CD_PRICE like ' & Text5. Text &蠟一End IfEnd If rs. Open DC，conn, 2, 3rs. AddNewrs. Fields CDNUM") = Textl.Textrs. Fields (DC_DESK)= Combo2. Textrs. Fields CDC.COUND = Text4. TextIf Checkl(0). Value Thenrsl. Ope

47、n strl, conn, 1, 3rs. Fields(CD_NO)= Text5. Textrs. Fields(CD_NAME)= rsl(CD_NAME)rs. Fields (/ZCD_PRICEZ/) = rsl (CD_PRICE) End IfIf Checkl(1). Value Thenrsl. Open strl, conn, 1, 3rs. Fields (CD_NAME)= Text5. Textrs. Fields (CD_MT) = rsl(CD_N0)rs. Fields (CD_PRICE)= rsl (CD_PRICE")End Ifrs. UpdateAdodcl. RecordSource = strlSet DataGridl. DataSource = Ad