XXXX畢業論文學院年級專業班級姓名指導老師課題VB環境下基于ACCESS數據庫圖書管理系統的開發與實現目錄內容摘要1關鍵詞1ABSTRACT1KEYWORDS11概述211數據庫及其應用212數據庫設計概念213數據庫設計周期32需求分析521項目提出的背景522圖書管理信息系統的構成53系統的概念631系統ER圖設計632ACCESS數據庫設計74圖書管理系統的實現1441管理員登陸模塊設計1442增加用戶模塊設計1543修改密碼模塊設計1744圖書登記模塊設計1845圖書借閱模塊設計2146圖書賠償模塊設計2347查詢輸出模塊設計2648值班管理模塊設計2749菜單編輯器模塊設計305調試與分析33參考文獻34致謝35VB環境下基于ACCESS數據庫的圖書管理系統的開發與實現內容摘要圖書管理系統是一個教育單位不可缺少的部分,是典型的信息管理系統MIS，其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發。對于前者要求建立起數據一致性和完整性強、數據安全性好的庫。而對于后者則要求應用程序功能完備,易使用等特點。因此，結合我校師生較多和生源較雜的情況，以方便我校師生和圖書管理人員，再加上對MICROSOFTACCESS2003數據庫管理系統、VB應用程序的學習和應用，主要完成對圖書管理系統的需求分析、結構設計、總體規劃及數據庫的實現。關鍵詞圖書管理、圖書資料、值班管理、系統管理ABSTRACTTHEBOOKMANAGEMENTSYSTEMISANEDUCATIONUNITINDISPENSABILITYOFPART,WHICHISTYPICALMODELOFINFORMATIONMANAGEMENTSYSTEMITSDEVELOPMENTISMAINTOINCLUDEABACKSTAGEDATABASEOFOFESTABLISHMENTANDMAINTENANCEANDHEADAPPLICATIONPROCEDUREOFDEVELOPMENTFORTHEFORMERREQUESTSESTABLISHMENTDATACONSISTENCYANDINTEGRITYSTRONG,THEDATASAFETYGOODDATABASEBUTFORTHELATTERREQUESTSAPPLICATIONTHEPROCEDUREFUNCTIONBECOMPLETED,EASYUSAGEETCCHARACTERISTICSTHEREFORECOMBINGTEACHERSANDTHESTUDENTSINMYSCHOOLISMOREWITHLIVINGTHESOURCEANDMOREMISCELLANEOUSCIRCUMSTANCE,WITHCONVENIENCETEACHERSANDTHESTUDENTSINMYSCHOOLANDBOOKMANAGER,AGAINPLUS2003DATABASESTOTHEMICROSOFTACCESSMANAGEMENTSYSTEM,VBAPPLICATIONPROCEDUREOFSTUDYANDAPPLICATION,ITSMAINCOMPLETIONISTOBOOKMANAGEMENTSYSTEMOFNEEDANALYSIS,STRUCTUREDESIGN,TOTALPROGRAMMINGANDDATABASEOFREALIZATIONKEYWORDSBOOKMANAGEMENT、BOOKDATA、ONDUTYMANAGEMENT、SYSTEMMANAGEMENT第一章概述11數據庫及其應用從廣義上講，數據庫就是數據或信息的集合，相當于一個數據倉庫。具體地說，數據庫是一組經過計算機整理后的數據，它由許多數據組成。自20世紀70年代以來,數據庫技術得到迅速發展目前世界上已經有數百萬個數據庫系統在運行,其應用已經深入到社會生活的各個領域,從企業管理,銀行管理,資源管理,經濟預測一直到信息檢索,檔案管理,普查統計等。我國20世紀90年代初在全國范圍內裝備了12個以數據庫為基礎的大型計算機系統,這些系統分布在郵電,計委,銀行,電力,鐵路,氣象,民航,情報,公安,軍事,航天和財稅等行業。現在,數據庫技術還在不斷發展,并且不斷的與其它計算機技術相互滲透。數據庫技術與網絡通信技術相結合,產生了分布式的數據庫系統。數據庫技術與面象對象技術相結合,產生了面向對象數據庫系統等各種數據庫系統。在人類邁向21世紀知識經濟的時候,信息變為經濟發展的戰略資源,信息技術已成為社會生產力重要的組成部分。人們充分認識到,數據庫是信息化社會中信息資源管理與開發利用的基礎。對于一個國家,數據庫的建設規模,使用水平已成為衡量該國信息化程度的重要標志因此,數據庫的學習是非常重要的。12數據庫設計概念數據庫設計是指對于一個給定的應用環境，提供一個確定最優數據模型與處理模式的邏輯設計，以及一個確定數據庫存儲結構與存取方法的物理設計，建立起既能反映現實世界信息和信息聯系，滿足用戶數據要求和加工要求，又能被某個數據庫管理系統所接受，同時能實現系統目標，并有效存取數據的數據庫。當數據庫所存儲的的信息邏輯關系簡單、數據記錄量不大時，數據庫的設計相對容易、編輯修改也方便；而當數據庫內容龐大、關系復雜且在使用中發現問題時再進行修改，就有可能造成數據丟失，這是用戶所不希望發生的。所以在設計前應該精心構思，使之遵循以下幾條規則。規則一字段的惟一性，即表中的每個字段只能含有惟一類型的數據信息。規則二記錄的惟一性，即表中沒有完全一樣的兩個記錄。規則三功能相關性，即在數據庫中，任意一個數據表都應該有一個主關鍵字段與表中記錄的各實體相對應。規則四字段無關性，即在不影響其他字段的情況下，必須能夠對任意字段進行修改總之，用戶在設計好一個數據庫之后，可以根據這4條規則一條一條地去檢驗所設計的數據庫，對不合理的地方進行修改，以使數據庫符合以上規則。13數據庫設計周期根據軟件工程的思想，數據庫設計的周期可以劃分為六個階段（1）規劃階段確定開發的總目標，給出計劃開發的軟件系統的功能、性能、可靠性以及接等方面的設想。（2）需求分析階段認真細致地了解用戶對數據的加工要求，確定系統的功能與邊界。本階段的最終結果，提供一個可作為設計基礎的系統說明書，包括對軟硬件環境的要求和一整套完善的數據流程圖。（3）設計階段把需求分析階段所確定的功能細化，主要工作是概念設計階段、邏輯設計階段、物理設計階段，然后，對每個階段內部設計詳細的流程。（4）程序編制階段以一種或幾種特定的程序設計語言表達上一階段確定的各模塊控制流程。程序編制時應遵循結構化程序設計方法。（5）調試階段對已編好的程序進行單元調試（分調），整體調試（聯調）和系統測試（驗收）。（6）運行和維護階段這是整個設計周期最長的階段，其工作重點是收集和記錄系統實際運行的數據。在運行中，必須保持數據庫的完整性，必須有效的處理數據故障和進行數據庫恢復。同時解決開發過程的遺留問題，改正錯誤進行功能完善。總結本文設計的是一個關于學校圖書館圖書管理的數據庫系統,通過這個系統管理員可以快速、方便的對圖書記錄查閱、增加、刪除等功能，而用戶也可以通過這個系統進行圖書查詢、借閱、歸還等功能。本系統采用MICROSOFTACCESS2003技術建立數據庫，使用VB60技術建立數據源的鏈接,并且生成圖書管理的數據庫應用程序從而實現數據庫的管理功能。第二章需求分析需求分析階段確定的系統邏輯模型是以后設計和實現目標系統的基礎，因此必須準確完整地體現用戶的要求。在這一章里，我將給出系統的功能結構圖，為系統的設計奠定基礎。21項目提出的背景隨著計算機技術的飛速發展，其應用方面已滲透到社會生活的各個領域。它已經成為我們學習和工作的得力助手。在學校，尤其是在一些高校，圖書是學校的一項重要資源，圖書的管理也是學校的一項常規性的重要工作。近年來，我校招生情況越來越好，所以圖書管理越來越嚴重。又加之我校自08年10月份升入本科院校之后，由于（生源雜、師生多、管理人員并沒有增加等）種種原因，因此原有的圖書管理系統已不能適應現行的工作需要。同時，以前的圖書管理系統也不能更好地滿足師生借閱圖書的要求，又不能體現我校圖書館藏書豐富的特點。在此種情況下，做一個結合我校實際情況的圖書管理系統是很有必要的。22圖書管理信息系統的構成圖書管理圖書資料值班管理系統管理圖書登記圖書借閱圖書賠償查詢輸出增加用戶修改密碼退出圖書管理系統圖22圖書管理系統功能結構圖第三章系統的概念此階段主要的任務和目標是根據需求分析的結果，畫出對應的ER圖。對于復雜的系統，通常首先要對它的各功能模塊進行分析，然后再把它的功能結構圖畫出來，便是設計和優化。功能分析之后，再根據各個模塊、各個用戶對數據和使用權限的不同要求做出局部ER圖，然后再把各個局部ER圖結合起來形成統一的整體ER圖。31系統ER圖設計軟件系統本質上是信息處理系統，因此，在軟件系統的整個開發過程中都必須考慮兩方面的問題“數據”及對數據的“處理”。為了把用戶的數據要求清晰明確地表達出來，系統分析員通常建立一個概念性的數據模型。概念性數據模型是一種面向問題的數據模型，是按照用戶的觀點來對數據和信息建模，它描述了從用戶角度看到的數據，它反映了用戶的現實環境，且與在軟件系統中的實現方法無關。這里運用最常用的表示概念性數據模型的方法，是實體聯系方法即ER模型。通常，軟件系統中有許多數據是需要長期保存的。為減少數據冗余，簡化修改數據的過程，實現對數據進化、規范化。圖書登記書名編號類型定價購買日期力日圖311圖書登記實體圖書借閱書名編號類型姓名借書證號圖312圖書借閱實體歸還日期日期借閱日期備注圖313圖書賠償實體圖書賠償書名編號類型姓名圖書證號賠償金額損壞程度解決方案值班開始日期值班開始時間32ACCESS數據庫設計這里采用ACCESS2003數據庫,用ADO作為連接對象。1建立ACCESS數據庫啟動MICROSOFTACCESS2003，建立一個空的數據庫LIBRARYMDB,如311所示。使用程序設計器建立系統需要的表格如下。圖書登記表，如312值班管理值班人記事值班截止日期圖314值班管理實體值班截止日期查詢輸出圖書編號購買日期力日圖315查詢輸出實體圖311建立LIBRARY數據庫圖312圖書借閱表圖書借閱表,如313圖313圖書借閱表圖書賠償表，如314圖314圖書賠償表圖書資料表,如315圖315圖書資料表系統管理表,如316圖316系統管理表值班管理表,如317圖317值班管理表2連接數據在VISUALBASIC環境下，選擇菜單欄“工程”“部件”，打開“部件”對話框，在隨后出現的對話框中選擇“MICROSOFTADODATACONTROL60”，然后單擊“確定”按鈕，如圖321所示。圖321”部件”對話框將ADO數據控件與DATAGRID控件添加到窗體上ADO控件默認名為ADODC1，如322所示。圖322窗體上的ADO與DATAGRID控件其中，ADO控件包括一個連接字符串屬性CONNECTIONSTRING，用于連接到計算機上某個數據源。（1）數據源連接選擇數據源連接方式。鼠標右鍵單擊ADO數據控件，選擇彈出菜單中的“ADODC”屬性命令，打開控件“屬性頁”對話框，如圖323所示。數據源連接有三種不同的方式，日前使用的方式是“使用連接字符串”。連接字符串包含了用于與數據源建立連接的相關信息。圖323ADO“屬性頁”對話框選擇數據庫類型單擊“生成”按鈕，打開如圖324所示的數據鏈接屬性窗口，OLEDB提供者決定了將使用的數據庫類型，數據提供者可看成某種類型數據庫的驅動程序。連接ACCESS2003及更高版本的數據庫時，需要選擇MICROSOFTJET40OLEDBPROVIDER圖324“數據鏈接屬性”對話框指定數據庫文件名在選擇了OLEDB提供者后，單擊“下一步”按鈕或選擇“連接”按鈕，進入如圖325所示的對話框，指定數據庫文件名。為保證連接有效，可單擊右下方的“測試連接”按鈕，如果測試成功則關閉該對話框，返回到如圖323所示的“屬性頁”對話框。圖325指定數據庫文件名指定記錄源。選擇圖323中的“RECORDSOURCE”選項卡，彈出記錄源“屬性頁”對話框，如圖326所示。（2）利用DATAGRID來顯示數據選定DATAGRID控件，將其DATASOURCE屬性設置為ADODC1控件，將網格綁定到產生的記錄集。運行該程序即可對數據庫進行瀏覽。ADO控件上的4個箭頭為數據庫的導航裝置。單擊最左邊的箭頭移動到數據庫的第一條記錄，最右邊的箭頭移動到數據庫的最后一條記錄，中間兩個箭頭讓分別移動到前一條或后一條記錄。第四章圖書管理系統的實現41管理員登陸模塊設計登陸界面的主要任務根據用戶名、密碼是否正確來判斷是否可以進入系統后臺。管理員登陸模塊界面代碼如下PRIVATESUBCOMMAND1_CLICKIFTEXT1TEXT“THENMSGBOX“用戶名不能為空“,VBOKONLYEXITSUBELSEIFTEXT2TEXT“THENMSGBOX“密碼不能為空“,VBOKONLYEXITSUBELSEADODC1RECORDSETFIND“用戶名“TEXT1TEXT“IFADODC1RECORDSETEOFFALSETHENIFADODC1RECORDSETFIELDS“密碼“TEXT2TEXTTHENMSGBOX“登錄成功“,VBOKONLYUNLOADMEFORMMAINSHOWELSEMSGBOX“密碼不正確“,VBOKONLYENDIFELSEMSGBOX“用戶名不正確“,VBOKONLYEXITSUBENDIFENDIFENDIFENDSUBPRIVATESUBCOMMAND2_CLICKENDENDSUBPRIVATESUBFORM_LOADADODC1REFRESHENDSUB42增加用戶模塊設計增加用戶模塊是用來增加用戶的用戶名、密碼和權限的。增加用戶模塊界面代碼如下PRIVATESUBCOMMAND1_CLICKIFTEXT1TEXT“THENIFTEXT2TEXTTEXT3TEXTTHENADODC1RECORDSETFIND“用戶名“TEXT1TEXT“IFADODC1RECORDSETEOFFALSETHENMSGBOX“已存在此用戶,請重新輸入“,VBOKONLYEXITSUBELSEADODC1RECORDSETADDNEWADODC1RECORDSETFIELDS“用戶名“TRIMTEXT1TEXTADODC1RECORDSETFIELDS“密碼“TRIMTEXT2TEXTADODC1RECORDSETUPDATEMSGBOX“新用戶添加成功“,VBOKONLYENDIFELSEMSGBOX“兩次密碼輸入不一致,請重新輸入“,VBOKONLYEXITSUBENDIFENDIFENDSUBPRIVATESUBCOMMAND2_CLICKUNLOADMEENDSUBPRIVATESUBFORM_LOADADODC1REFRESHENDSUB43修改密碼模塊設計修改密碼模塊是用來修改用戶密碼的。修改密碼界面如下代碼如下PRIVATESUBCOMMAND1_CLICKIFTEXT1TEXT“THENIFTEXT2TEXTTEXT3TEXTTHENADODC1RECORDSETFILTER“用戶名“TRIMTEXT1TEXT“IFADODC1RECORDSETEOFFALSETHENADODC1RECORDSETFIELDS“密碼“TRIMTEXT2TEXTADODC1RECORDSETUPDATEMSGBOX“修改成功“,VBOKONLYEXITSUBELSEMSGBOX“不存在此用戶,無法修改“,VBOKONLYENDIFELSEMSGBOX“兩次密碼輸入不一致,請重新輸入“,VBOKONLYEXITSUBENDIFENDIFENDSUBPRIVATESUBCOMMAND2_CLICKUNLOADMEENDSUBPRIVATESUBFORM_LOADADODC1REFRESHENDSUB44圖書登記模塊設計本模塊用來填寫圖書登記的信息。圖書登記模塊界面代碼如下PRIVATESUBCOMMAND1_CLICKONERRORGOTOADDERRTEXT1SETFOCUSADODC1RECORDSETADDNEWEXITSUBADDERRMSGBOXERRDESCRIPTIONENDSUBPRIVATESUBCOMMAND2_CLICKONERRORGOTODELETEERRWITHADODC1RECORDSETIFNOTEOFANDNOTBOFTHENIFMSGBOX“刪除當前記錄嗎“,VBYESNOVBQUESTIONVBYESTHENADODC1RECORDSETDELETEADODC1RECORDSETMOVENEXTIFADODC1RECORDSETEOFTHENADODC1RECORDSETMOVELASTENDIFENDIFENDWITHEXITSUBDELETEERRMSGBOXERRDESCRIPTIONENDSUBPRIVATESUBCOMMAND3_CLICKADODC1RECORDSETMOVENEXTIFADODC1RECORDSETEOFTHENMSGBOX“這是最后一條記錄“,VBOKCANCELVBQUESTIONADODC1RECORDSETMOVELASTENDIFENDSUBPRIVATESUBCOMMAND4_CLICKADODC1RECORDSETMOVEPREVIOUSIFADODC1RECORDSETBOFTHENMSGBOX“這是第一條記錄“,VBOKCANCELVBQUESTIONADODC1RECORDSETMOVEFIRSTENDIFENDSUBPRIVATESUBCOMMAND5_CLICKIFADODC1RECORDSETRECORDCOUNT0THENMSGBOX“空記錄“,VBOKCANCELVBQUESTIONELSEADODC1RECORDSETMOVELASTENDIFENDSUBPRIVATESUBCOMMAND6_CLICKIFADODC1RECORDSETEOFTHENMSGBOX“記錄空“,VBOKCANCELVBQUESTIONENDELSEADODC1RECORDSETMOVEFIRSTENDIFEXITSUBENDSUBPRIVATESUBCOMMAND7_CLICKFORMMAINSHOWFORM4HIDEENDSUB45圖書借閱模塊設計圖書借閱模塊主要列出了書借閱的詳細信息。圖書借閱模塊界面代碼如下PRIVATESUBCOMMAND1_CLICKONERRORGOTOADDERRTEXT1SETFOCUSADODC1RECORDSETADDNEWEXITSUBADDERRMSGBOXERRDESCRIPTIONENDSUBPRIVATESUBCOMMAND2_CLICKONERRORGOTODELETEERRWITHADODC1RECORDSETIFNOTEOFANDNOTBOFTHENIFMSGBOX“刪除當前記錄嗎“,VBYESNOVBQUESTIONVBYESTHENADODC1RECORDSETDELETEADODC1RECORDSETMOVENEXTIFADODC1RECORDSETEOFTHENADODC1RECORDSETMOVELASTENDIFENDIFENDWITHEXITSUBDELETEERRMSGBOXERRDESCRIPTIONENDSUBPRIVATESUBCOMMAND3_CLICKADODC1RECORDSETMOVENEXTIFADODC1RECORDSETEOFTHENMSGBOX“這是最后一條記錄“,VBOKCANCELVBQUESTIONADODC1RECORDSETMOVELASTENDIFENDSUBPRIVATESUBCOMMAND4_CLICKADODC1RECORDSETMOVEPREVIOUSIFADODC1RECORDSETBOFTHENMSGBOX“這是第一條記錄“,VBOKCANCELVBQUESTIONADODC1RECORDSETMOVEFIRSTENDIFENDSUBPRIVATESUBCOMMAND5_CLICKIFADODC1RECORDSETEOFTHENMSGBOX“記錄空“,VBOKCANCELVBQUESTIONENDELSEADODC1RECORDSETMOVEFIRSTENDIFEXITSUBENDSUBPRIVATESUBCOMMAND6_CLICKIFADODC1RECORDSETRECORDCOUNT0THENMSGBOX“空記錄“,VBOKCANCELVBQUESTIONELSEADODC1RECORDSETMOVELASTENDIFENDSUBPRIVATESUBCOMMAND7_CLICKFORMMAINSHOWFORM6HIDEENDSUB46圖書賠償模塊設計該模塊是用來填寫圖書是否損壞及如何賠償的信息。圖書賠償模塊界面代碼如下PRIVATESUBCOMMAND1_CLICKONERRORGOTOADDERRTEXT1SETFOCUSADODC1RECORDSETADDNEWEXITSUBADDERRMSGBOXERRDESCRIPTIONENDSUBPRIVATESUBCOMMAND2_CLICKONERRORGOTODELETEERRWITHADODC1RECORDSETIFNOTEOFANDNOTBOFTHENIFMSGBOX“刪除當前記錄嗎“,VBYESNOVBQUESTIONVBYESTHENADODC1RECORDSETDELETEADODC1RECORDSETMOVENEXTIFADODC1RECORDSETEOFTHENADODC1RECORDSETMOVELASTENDIFENDIFENDWITHEXITSUBDELETEERRMSGBOXERRDESCRIPTIONENDSUBPRIVATESUBCOMMAND3_CLICKADODC1RECORDSETMOVENEXTIFADODC1RECORDSETEOFTHENMSGBOX“這是最后一條記錄“,VBOKCANCELVBQUESTIONADODC1RECORDSETMOVELASTENDIFENDSUBPRIVATESUBCOMMAND4_CLICKADODC1RECORDSETMOVEPREVIOUSIFADODC1RECORDSETBOFTHENMSGBOX“這是第一條記錄“,VBOKCANCELVBQUESTIONADODC1RECORDSETMOVEFIRSTENDIFENDSUBPRIVATESUBCOMMAND5_CLICKIFADODC1RECORDSETEOFTHENMSGBOX“記錄空“,VBOKCANCELVBQUESTIONENDELSEADODC1RECORDSETMOVEFIRSTENDIFEXITSUBENDSUBPRIVATESUBCOMMAND6_CLICKIFADODC1RECORDSETRECORDCOUNT0THENMSGBOX“空記錄“,VBOKCANCELVBQUESTIONELSEADODC1RECORDSETMOVELASTENDIFENDSUBPRIVATESUBCOMMAND7_CLICKFORMMAINSHOWFORM7HIDEENDSUB47查詢輸出模塊設計查詢輸出模塊的主要任務就是對所有圖書信息進行查詢。查詢輸出界面代碼如下PRIVATESUBCOMMAND1_CLICKDIMCONDITIONASSTRINGIFTEXT1TEXT“THENCONDITIONCOMBO1TEXT“TEXT1TEXT“ADODC1RECORDSETFILTERCONDITIONIFADODC1RECORDSETEOFTRUETHENMSGBOX“沒有你要搜索的信息“,VBOKONLYENDIFSETDATAGRID1DATASOURCEADODC1ELSEMSGBOX“搜索條件不能為空“,VBOKONLYENDIFENDSUBPRIVATESUBCOMMAND2_CLICKFORMMAINSHOWFORM3HIDEENDSUBPRIVATESUBFORM_LOADCOMBO1ADDITEM“購買日期“ENDSUB48值班管理模塊設計值班管理模塊的作用是把值班人員的時間安排形成列表。值班管理界面代碼如下PRIVATESUBCOMMAND1_CLICKONERRORGOTOADDERRORIFCOMMAND1CAPTION“新增記錄“THENCOMMAND1CAPTION“確定“COMMAND2ENABLEDFALSEDATAGRID1ALLOWADDNEWTRUEDATAGRID1ALLOWUPDATETRUEELSEIFNOTISNULLDATAGRID1BOOKMARKTHENIFNOTISDATETRIMDATAGRID1COLUMNS“值班開始日期“CELLTEXTDATAGRID1BOOKMARKTHENMSGBOX“請按照格式YYYYMMDD輸入值班開始日期“,VBOKONLYVBEXCLAMATION,“EXITSUBENDIFIFNOTISDATETRIMDATAGRID1COLUMNS“值班開始時間“CELLTEXTDATAGRID1BOOKMARKTHENMSGBOX“請按照格式HHMM輸入值班開始時間“,VBOKONLYVBEXCLAMATION,“EXITSUBENDIFIFNOTISDATETRIMDATAGRID1COLUMNS“值班截止日期“CELLTEXTDATAGRID1BOOKMARKTHENMSGBOX“請按照格式YYYYMMDD輸入值班截止日期“,VBOKONLYVBEXCLAMATION,“EXITSUBENDIFIFNOTISDATETRIMDATAGRID1COLUMNS“值班截止時間“CELLTEXTDATAGRID1BOOKMARKTHENMSGBOX“請按照格式HHMM輸入值班截止時間“,VBOKONLYVBEXCLAMATION,“EXITSUBENDIFIFTRIMDATAGRID1COLUMNS“值班人“CELLTEXTDATAGRID1BOOKMARK“THENMSGBOX“值班人不能為空“,VBOKONLYVBEXCLAMATION,“EXITSUBENDIFADODC1UPDATEMSGBOX“添加信息成功“,VBOKONLYVBEXCLAMATION,“DATAGRID1ALLOWADDNEWFALSEDATAGRID1ALLOWUPDATEFALSEELSEMSGBOX“沒有添加信息“,VBOKONLYVBEXCLAMATION,“ENDIFCOMMAND1CAPTION“新增記錄“COMMAND2ENABLEDTRUEENDIFADDERRORIFERRNUMBER0THENMSGBOXERRDESCRIPTIONENDIFENDSUBPRIVATESUBCOMMAND2_CLICKDIMANSWERASSTRINGONERRORGOTODELERRORANSWERMSGBOX“確定要刪除嗎“,VBYESNO,“IFANSWERVBYESTHENDATAGRID1ALLOWDELETETRUEADODC1DELETEADODC1UPDATEDATAGRID1REFRESHMSGBOX“成功刪除“,VBOKONLYVBEXCLAMATION,“DATAGRID1ALLOWDELETEFALSEELSEEXITSUBENDIFDELERRORIFERRNUMBER0THENMSGBOXERRDESCRIPTIONENDIFEND