管理信息系統(tǒng)設計銷售系統(tǒng)VIP

1、摘 要本文以圖書銷售系統(tǒng)的開發(fā)為主要目的，設計了一個適合圖書城銷售的系統(tǒng)。任務以小組形式展開，文中主要涉及了本銷售系統(tǒng)的系統(tǒng)分析部分，其中有組織結構圖、業(yè)務流程圖、數(shù)據(jù)流程圖、數(shù)據(jù)字典的分析與編制。為小組的其他成員提供理論基礎與概念模型。從而輔助系統(tǒng)開發(fā)的其他步驟，以此為基礎。主要分析了圖書城中出現(xiàn)的業(yè)務流程，并根據(jù)業(yè)務流程的工作原理來開發(fā)此銷售系統(tǒng)。從而達到使圖書城的銷售更加簡易，快捷。本文在參考了相關文獻后安排以Visual Basic 6.0為基礎的開發(fā)工具，系統(tǒng)開發(fā)的過程由此展開。關鍵詞：銷售系統(tǒng)；分析；邏輯模型目 錄1前言11.1 作業(yè)背景11.2 選題說明11.2.1 基本思路21

2、.2.2 作業(yè)目標21.3 工作業(yè)績21.3.1 個人主要工作21.3.2 主要收獲21.3.3 自我評定21.3.4 小組成員任務分工情況32 系統(tǒng)規(guī)劃42.1信息系統(tǒng)規(guī)劃概述42.2開發(fā)工具及實施環(huán)境42.3系統(tǒng)總體規(guī)劃目標42.4現(xiàn)行系統(tǒng)初步調(diào)查與分析42.5用戶需求分析52.6系統(tǒng)可行性分析53 系統(tǒng)分析63.1 組織結構圖63.2業(yè)務流程分析73.3數(shù)據(jù)流程分析83.4數(shù)據(jù)字典104 系統(tǒng)設計134.1 功能模塊圖134.2 E-R圖144.3 數(shù)據(jù)庫設計154.4 輸入設計154.5 輸出設計175 系統(tǒng)實施195.1程序設計19登陸界面195.1.2 主界面205.2系統(tǒng)運行與測

3、試21系統(tǒng)測試的概念21測試過程215.3操作手冊226 結束語231前言進入二十一世紀，信息化的進程進一步加快，向著網(wǎng)絡化、智能化方向發(fā)展，計算機行業(yè)飛速向前發(fā)展，信息化深入到社會的各行各業(yè)。微機化管理的廣泛應用，使工作效率顯著提高。Internet帶給我們的不僅是無窮的信息，更是商業(yè)模式和消費觀念的變遷，電子商務業(yè)已成為時尚。圖書銷售管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS)，圖書銷售管理系統(tǒng)旨在提供一個可以操作的，方便查詢，易于修改的輔助管理系統(tǒng)。基本上實現(xiàn)了電子商務的功能流程，本系統(tǒng)界面簡單直觀，易于作和使用，交互性強，完全基于Internet網(wǎng)絡。1.1 作業(yè)背景本文根據(jù)管理信息系統(tǒng)開發(fā)

4、實踐課程要求而做。課程作業(yè)要求如下：用信息系統(tǒng)開發(fā)工具（例如VB、VF6.0）開發(fā)一個實用的中小型的銷售系統(tǒng)。1、根據(jù)課程實踐時間選擇適當規(guī)模大小的設計課題。針對管理信息系統(tǒng)課程實踐的具體特點，體現(xiàn)項目管理的思想，可由指導教師對學生進行分組（每組4-6人），一組一題，分工合作，共同完成。2、根據(jù)合理的進度安排，按照系統(tǒng)開發(fā)的流程及方法，踏實地開展課程實踐活動。3、課程實踐過程中，根據(jù)選題的具體需求，在開發(fā)各環(huán)節(jié)中撰寫相關的技術文檔，最后要求提交詳細的課程實踐報告。4、開發(fā)出可以運行的電子商務系統(tǒng)，通過上機檢查。1.2 選題說明此次為信誠銷售公司開發(fā)一套書店銷售管理系統(tǒng)，此書店為中型規(guī)模，讀者覆

5、蓋面占全市20%。設有管理部門、財務部門、銷售部、庫存管理部門。管理部門有監(jiān)察審計部，書店內(nèi)部人力資源管理，綜合管理部門。銷售部門主要負責銷售計劃管理和銷售統(tǒng)計管理。財務部門主要負責成本核算，利潤核算，賬目管理。庫存管理部門主要包括入庫管理，出庫管理，庫存統(tǒng)計，圖書基本信息管理。 基本思路通過書店銷售管理系統(tǒng)，完成界面登陸的操作，進入各個功能模塊，管理模塊包括監(jiān)察審計、客戶顧客基本信息管理、人力資源管理、綜合管理；銷售功能包括銷售計劃管理、銷售統(tǒng)計管理；財務功能包括成本核算、利潤核算、賬目管理；庫存管理功能包括入庫管理、出庫管理、庫存統(tǒng)計、圖書基本信息管理。根據(jù)用戶的實際需要進行對應的操作。

6、作業(yè)目標通過對管理信息系統(tǒng)的開發(fā)，從而提升對系統(tǒng)開發(fā)的了解以及各種數(shù)據(jù)的分析總結工作的進程。1.3 工作業(yè)績 個人主要工作主要包括：組織結構編制、業(yè)務流程分析、數(shù)據(jù)流程分析、數(shù)據(jù)字典的編制與分析 主要收獲 本次課程設計中，任務由小組完成，小組分工，從調(diào)查，分析，到設計，以及評價這幾個部分中，我認識到了開發(fā)一個系統(tǒng)的大致流程，了解到了系統(tǒng)的開發(fā)必須有一個全面的邏輯思維，而且各個部分的相互聯(lián)系非常密切。我擔任的是本次任務的系統(tǒng)分析，其中對各種圖表數(shù)據(jù)的設計，有助于對系統(tǒng)功能的全面了解，以及可以輔助后面程序的設計。是非常關鍵的一個環(huán)節(jié)。 自我評定 優(yōu) 良 中 及格 不及格 小組成員任務分工情況本組為

7、本次課程設計第2組，組長為： ，小組所有成員分工如下：學 號姓 名所分配的任務備 注2 系統(tǒng)規(guī)劃2.1信息系統(tǒng)規(guī)劃概述規(guī)劃通常指關于一個組織的發(fā)展方向，環(huán)境條件，長期目標，重大政策與策略等方面的長遠計劃。信息系統(tǒng)規(guī)劃是將組織目標，支持組織目標所必須的信息，提供這些必須信息的信息系統(tǒng)，以及這些信息系統(tǒng)的實施等諸要素集成的信息系統(tǒng)方案，是面向組織中信息系統(tǒng)發(fā)景的系統(tǒng)開發(fā)計劃。2.2開發(fā)工具及實施環(huán)境開發(fā)工具: Visual Basic6.0開發(fā)方法:結構化系統(tǒng)開發(fā)方法開發(fā)方式:自行開發(fā)2.3系統(tǒng)總體規(guī)劃目標本次規(guī)劃的目標需達到以下幾點：（1）系統(tǒng)功能強（2）系統(tǒng)適應性強（3）系統(tǒng)具有良好的開放性2

8、.4現(xiàn)行系統(tǒng)初步調(diào)查與分析1、在圖書銷售信息化建設上投資不夠，是造成圖書銷售信息化滯后的原因2、書店的職員認識不夠，很多職員思想保守，特別是一些老的職員，對圖書銷售信息化建設認識不夠，認為圖書銷售信息化建設是盲目投資，極力反對；3、沒能充分利用有效的信息資源，投資繁雜。4、21世紀是信息的世紀，信息資源的競爭己成為人們競爭的焦點，信息資源也如同能源一樣成為人們的重要資源。因此，我書店應注重信息的收集和管理，尤其是建立信息資源管理標準，從而保證標準化、規(guī)范化的組織、管理信息。5、建立良好的數(shù)字化環(huán)境良好的數(shù)字化環(huán)境包括書店圖書的軟環(huán)境和硬環(huán)境，對于這個問題，書店領導應給與高度重視。2.5用戶需求

9、分析隨著書店的規(guī)模逐漸擴大，書店的職工越來越多，同時，銷售的訂單也越來越多，用戶的信息管理存在不安全、步不完整、不真實的隱患。書店的管理者需要對用戶負責，要高效的，安全的，真實的獲取用戶的信息以及銷售的信息。用戶信息以及銷售信息的真實檢測組要求有輔助的自動檢測功能,要求銷售的一些基本信息的真實。同時，管理員可以查看其他人工化的存儲信息，還可以進行管理和維護。不僅節(jié)省大量的人力和物力，真實性也得到良好的解決，所以建立一個安全的可靠的圖書銷售信息管理成為一種必然。2.6系統(tǒng)可行性分析（1）技術上的可行性由于Windows2000操作系統(tǒng)是有人機變互的友好界面，很容易掌握及操作，程序界面相對較容易實

10、現(xiàn)等特點，加之目前基于Windows2000操作系統(tǒng)的軟件開發(fā)工具也很多，易于學習、開發(fā)及應用。（2）經(jīng)濟上的可行性在服務器費用方面,支出在我們承擔的范圍.當前系統(tǒng)可以節(jié)約的支出能夠支付當前系統(tǒng)的直接支出,以后的維護費用更是比以前的機制節(jié)約很多錢。（3）管理上的可行性領導的重視，使得信息系統(tǒng)，在管理上也是完全可行的?？尚行苑治鼋Y論：本系統(tǒng)可以開發(fā)3 系統(tǒng)分析3.1 組織結構圖店長采購處采購部倉庫供銷部合同處理成本組利潤組供應組銷售組統(tǒng)計組出庫組入庫組統(tǒng)計組統(tǒng)計組圖1.1組織結構圖組織結構圖分析：1. 由圖中可見，頂層模塊是店長組成，下分為四個部門，分別是：采購部、財務部、供銷部、倉庫。2. 采

11、購部主要是負責采購環(huán)節(jié)，包括合同處理，選擇供應商等；3. 財務部是對書店的成本、利潤、以及各種數(shù)據(jù)的統(tǒng)計。劃分為成本組、利潤組、統(tǒng)計組三個小組，小組對財務部負責，每期財務部將對店長匯報營業(yè)狀況；4. 供銷部是銷售部門，由采購部門確定的供應商，供應組負責清點，驗 收產(chǎn)品，并將產(chǎn)品移交給銷售組進行銷售，最后將收支的數(shù)據(jù)交給統(tǒng)計組核算。5. 倉庫是負責存儲產(chǎn)品，也就是各種書籍、工具、資料等等。采購部門確定訂單后，供應組接收產(chǎn)品后會暫時交由倉庫存儲，由入庫組登記。6. 銷售組進行銷售的時候，會從倉庫提取相應的產(chǎn)品，由倉庫中的入庫組登記。出入庫的數(shù)據(jù)會轉(zhuǎn)移至倉庫部的統(tǒng)計組進行匯總。3.2業(yè)務流程分析銷售

12、人 員顧客供貨單位訂書單領貨通知單入庫單發(fā)票單入庫流水賬庫存帳客戶庫管采購單供貨單位提貨通知單采購人員 圖1.2業(yè)務流程圖業(yè)務流程圖體現(xiàn)了該系統(tǒng)的運作過程，首先由客戶提交訂書單，銷售人員進行審核，此過程中，銷售人員與庫管聯(lián)系，有貨則會下發(fā)領貨通知單交給銷售人員，從而開發(fā)票單，轉(zhuǎn)移到客戶手上。若無貨或者存貨不足，則會向供貨單位發(fā)出通知，由采購員開出采購單，提交給供貨單位，供貨單位以提貨通知單通知采購人員提貨。同時采購員編制入庫單，補充庫存。交易結束后，庫管會統(tǒng)一記錄在入庫流水賬中，形成庫存帳。3.3數(shù)據(jù)流程分析數(shù)據(jù)流程圖的符號說明如圖：外部項 數(shù)據(jù)存儲 數(shù)據(jù)處理 數(shù)據(jù)流圖書銷售系統(tǒng)的數(shù)據(jù)流程圖：

13、S消費者P圖書銷售系統(tǒng)S 消費者 購物憑證 購物憑證 圖1.3 0級數(shù)據(jù)流程圖S顧客P1查詢處理P2訂單處理P3購書處理S顧客購書記錄F1.1 沒貨F1購書憑證F1.2有貨F1.3入庫單F1.4購書憑證F1.7購書憑證F1.5出庫單倉庫圖1.4一級數(shù)據(jù)流程圖P1書店P2銷售統(tǒng)計S顧客P3訂單處理P4銷售處理P5發(fā)貨處理P6入庫處理S顧客P7倉庫處理庫存記錄財務記錄財務部F8購書憑證F4購書憑證F1統(tǒng)計表F2銷售數(shù)據(jù)F3發(fā)貨通知F5訂貨單數(shù)據(jù)F6查詢F7出庫單F9發(fā)貨通知F10入庫單F11入庫處理F12查詢F13購書憑證圖1.5二級數(shù)據(jù)流程圖從二級數(shù)據(jù)流程圖可以看出圖書城銷售的過程：（1） 客戶

14、提交購物憑證，系統(tǒng)轉(zhuǎn)入訂單處理（2） 訂單審核以后提交給銷售中心（3） 銷售中心查詢庫存記錄（4） 庫存中若有貨則提交發(fā)貨通知給倉庫進行發(fā)貨，最后連同憑證送到顧客手里，發(fā)貨的數(shù)據(jù)會以統(tǒng)計表的形式提交到書店進行統(tǒng)計。（5） 上一環(huán)節(jié)的銷售處理形成了購物單，傳遞給財務部并作記錄。（6） 財務部記錄與書店銷售記錄的數(shù)據(jù)一起納入銷售統(tǒng)計處理。（7） 銷售處理提交訂書單后會由庫管進行記錄，管理庫存量，及時補充存貨。（8） 銷售處理會向庫存記錄進行查詢，采購員在做入庫處理之前會將記錄在庫存記錄上。（9） 最后由庫存將記錄反應到財務部門，循環(huán)至銷售統(tǒng)計處理。3.4數(shù)據(jù)字典詳細內(nèi)容數(shù)據(jù)字典是對描述數(shù)據(jù)流程圖中

15、的數(shù)據(jù)項、數(shù)據(jù)流、數(shù)據(jù)存儲、加工處理邏輯等組成部分的嚴格定義，下面是本系統(tǒng)的數(shù)據(jù)字典 表1.1 數(shù)據(jù)庫信息書名描述M_Book_Store（入庫單）書店采購一批屬圖書的明細項目M_Book_Bill（書店發(fā)票）顧客購買時書店開出的證明M_Book_BKBill）（客戶訂書單）客戶訂購圖書的明細M_Book_Purchase（采購單）采購部門人員需要采購的數(shù)目及數(shù)量M_Book_CurAcc（入庫流水賬）每次圖書入庫的相關記錄M_Book_All（庫存帳）倉庫中現(xiàn)有圖書的明細M_Administrator（管理人員）管理人員操作口令明細M_user（客戶）客戶操作口令明細表1.2入庫單的數(shù)據(jù)字典

16、數(shù)據(jù)流編號數(shù)據(jù)流名稱簡述數(shù)據(jù)流來源數(shù)據(jù)流去向數(shù)據(jù)流組成DS101入庫單書店采購一批屬圖書的明細項目采購人員庫存管理ISBN+書名+ 作者+ 出版社+出版日期+數(shù)量+定價例1：經(jīng)手人：楊林ISBN：978-7-80140-713-9 書名：數(shù)學復習全書 作者：李永樂 出版社：國家行政學院出版社 出版日期：2003/5/15 定價：52 數(shù)量30表1.3書店發(fā)票的數(shù)據(jù)字典數(shù)據(jù)流編號數(shù)據(jù)流名稱簡述數(shù)據(jù)流來源數(shù)據(jù)流去向數(shù)據(jù)流組成DS102書店發(fā)票顧客購買時書店開出的證明銷售人員客戶編號+ISBN+ 書名+ 單價+數(shù)量+合計金額+折扣金額+實收金額例2：ISBN：978-7-5025-5783-6-4

17、書名：系統(tǒng)工程導論 單價：27 數(shù)量：20 合計金額：540 折扣金額：81 實收金額：459 編號：4 收銀員123 日期：2010/5/27表1.4客戶訂書單數(shù)據(jù)字典數(shù)據(jù)流編號數(shù)據(jù)流名稱簡述數(shù)據(jù)流來源數(shù)據(jù)流去向數(shù)據(jù)流組成DS103客戶訂書單客戶訂購圖書的明細客戶銷售中心訂單客戶預覽+訂書單處理例3：王小虎的訂單信息目前庫存有貨，數(shù)量不足表1.5采購單數(shù)據(jù)字典數(shù)據(jù)流編號數(shù)據(jù)流名稱簡述數(shù)據(jù)流來源數(shù)據(jù)流去向數(shù)據(jù)流組成DS104采購單采購部門人員需要采購的數(shù)目及數(shù)量采購人員供貨單位編號+日期+ISBN+書名+作者+日期+出版社+數(shù)量王小虎的訂書單：ISBN：978-7-5025-5783-6-4

18、書名：系統(tǒng)工程導論 作者：梁軍 日期：2008/2/13 出版社：化學工業(yè)出版社 數(shù)量：20表1.5入庫流水賬的數(shù)據(jù)字典編號名稱簡述數(shù)據(jù)存儲組成關鍵字相關聯(lián)的處理DS105入庫流水賬每次圖書入庫的相關記錄入庫總數(shù)量入庫明細ISBN銷售總數(shù)量出售明細存儲庫管庫存帳表1.6庫存帳的數(shù)據(jù)字典編號名稱簡述數(shù)據(jù)存儲組成關鍵字相關聯(lián)的處理DS106庫存帳倉庫中現(xiàn)有圖書的明細書名+數(shù)量+ISBN+作者+出版日期+單價+庫存銷售處理入庫處理表1.7管理人員的數(shù)據(jù)字典編號名稱簡述輸入的數(shù)據(jù)流輸出的數(shù)據(jù)流DS107管理人員管理人員操作口令明細管理權限管理界面表1.8客戶的數(shù)據(jù)字典編號名稱簡述輸入的數(shù)據(jù)流輸出的數(shù)據(jù)

19、流DS108客戶客戶操作口令明細Custom ID初始密碼圖書管理客戶信息4 系統(tǒng)設計 4.1 功能模塊圖書店銷售系統(tǒng)管理管理人員登錄顧客登陸管理部門理銷售部門庫存管理部門財務部門理客戶基本信息管理綜合管理部門人力資源管理監(jiān)察計部銷售計劃管理銷售統(tǒng)計管理賬目管理利潤核算成本核算入庫管理庫存統(tǒng)計出庫管理圖書基本信息管理圖1.6功能模塊圖4.2 E-R圖書店發(fā)貨處理銷售處理出庫單發(fā)貨通知庫存臺賬入庫處理入庫數(shù)據(jù)入庫單倉庫執(zhí)行數(shù)據(jù)定數(shù)合同客戶合同處理合同臺賬訂書單數(shù)據(jù)統(tǒng)計財務科查詢銷售數(shù)據(jù)銷售統(tǒng)計mmmmmmmmmmmmmmmmm11111圖1.7 E-R圖關系模型如下：出庫單（出庫單編號、產(chǎn)品編號

20、、產(chǎn)品數(shù)量、日期）查詢（查詢編號、查詢條目）入庫單（入庫單編號、產(chǎn)品編號、產(chǎn)品名稱、日期）訂書合同（合同編號、合同名稱、合同負責人、合同日期）銷售統(tǒng)計表（統(tǒng)計編號、統(tǒng)計產(chǎn)品名稱、統(tǒng)計銷售額、統(tǒng)計日期）客戶（客戶編號、客戶名稱）訂書單（訂書單編號、訂書單名稱、訂書人、訂書數(shù)量、訂書日期）4.3 數(shù)據(jù)庫設計表1.9 數(shù)據(jù)庫信息書名描述M_Book_Store（入庫單）書店采購一批屬圖書的明細項目M_Book_Bill（書店發(fā)票）顧客購買時書店開出的證明M_Book_BKBill）（客戶訂書單）客戶訂購圖書的明細M_Book_Purchase（采購單）采購部門人員需要采購的數(shù)目及數(shù)量M_Book_C

21、urAcc（入庫流水賬）每次圖書入庫的相關記錄M_Book_All（庫存帳）倉庫中現(xiàn)有圖書的明細M_Administrator（管理人員）管理人員操作口令明細M_user（客戶）客戶操作口令明細4.4 輸入設計圖1.8 登陸界面登陸界面主要實現(xiàn)代碼如下：Private Sub CheckPwd()Dim strSql As StringDim strPwd As StringSelect Case M_UserType Case 1 strSql = "select * from M_Administrator where M_Usr_Name = '" &

22、 Replace(Trim(UsrName.Text), "'", "''") & "'"Case 2 strSql = "select * from M_user where M_custom_name = '" & Replace(Trim(UsrName.Text), "'", "''") & "'"End SelectErr.ClearSet rec =

23、 M_Conn.Execute(strSql)If rec.EOF Or Err.Number <> 0 Then MsgBox "該用戶名不存在！", 0 + 16, "圖書銷售管理系統(tǒng)" Exit Sub End IfstrPwd = rec("M_Usr_Pwd").ValueIf strPwd <> Pwd.Text Then MsgBox "密碼不正確！", 0 + 16, "圖書銷售管理系統(tǒng)" Pwd.Text = "" Pwd.SetFo

24、cus Exit Sub End IfM_UserName = UsrName.TextUnload MefrmMain.ShowEnd Sub4.5 輸出設計其主要實現(xiàn)代碼如下：Private Sub Command1_Click() Command2.Visible = True Command3.Visible = True If Adodc1.Recordset.RecordCount > 0 Then Print Font.Size = 14 F = "華文行楷" CurrentY = 200 Print Tab(38); Year(Date

25、) & "年" & Month(Date) & "月" & "圖書訂購發(fā)票單" CurrentY = 500 Font.Size = 9 F = "宋體" Print Tab(15); "編號:" Adodc1.Recordset.Fields("M_Book_ID"); Tab(45); "收銀員:" Adodc1.Recordset.Fields("M_Book_ChargeMan")

26、; Tab(75); "日期:" & Adodc1.Recordset.Fields("M_Book_Date") Print Tab(14); String(75, "-") Print Tab(15); "ISBN" Tab(35); "書名" Tab(60); "單價" Tab(80); "數(shù)量" Print Tab(14); String(75, "_") Print Tab(14); String(75, "

27、 ") Print Tab(15); Adodc1.Recordset.Fields("M_Book_ISBN"); Tab(30); Adodc1.Recordset.Fields("M_Book_Name"); Tab(60); Adodc1.Recordset.Fields("M_Book_Prise"); Tab(80); Adodc1.Recordset.Fields("M_Book_Num") Print Tab(14); String(75, "_") Print Tab

28、(14); String(75, " ") Print Tab(15); “合計金額:" Adodc1.Recordset.Fields("M_Book_TMoney"); Tab(40); "折扣金額:" Adodc1.Recordset.Fields("M_Book_HMoney"); Tab(70); "實收金額:" Adodc1.Recordset.Fields("M_Book_FMoney")Else MsgBox "wrong", v

29、bInformation, "i" End IfEnd SubPrivate Sub Command2_Click()Command3.Visible = False On Error GoTo err_report Me.PrintFormerr_report: MsgBox Err.Description, vbInformation, "錯誤提示" Command3.Visible = TrueEnd SubPrivate Sub Form_Load()Dim str As StringAdodc1.ConnectionString = "

30、;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "M_database.mdb;Persist Security Info=False" str = "select * from M_Book_Bill where M_Book_ID = '" & frm_gscl.Combo1.List(frm_gscl.Combo1.ListIndex) & "'" Adodc1.CommandType = adCm

31、dTextAdodc1.RecordSource = strAdodc1.Refresh Command2.Visible = FalseCommand3.Visible = FalseEnd Sub5 系統(tǒng)實施5.1程序設計5.1.1登陸界面圖4-1 登陸界面圖示圖4-2 修改密碼界面圖示5.1.2 主界面圖4-3 主界面圖示其主要實現(xiàn)代碼如下：Private Sub Form_Load()If M_UserType = 2 Then Dim i As IntegerFor i = 1 To 12 Step 2 Toolbar1.Buttons.Item(i).Visible = False

32、 NextEnd IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 frm_rkcl.ShowCase 3 frm_dsd.ShowCase 5 frm_gscl.ShowCase 7 frm_jzcl.ShowCase 9 frm_cxcl.ShowCase 11 frm_tjcl.ShowCase 13 frm_tsgl.ShowCase 15 frm_khxx.ShowCase 17 Dim c c = MsgBox("您確認退出系統(tǒng)？", 33, "提示信息") If c = vbOK Then Unload