【正文】 al Basic Microsoft Access 2020 課程設(shè)計(jì)的預(yù)備知識(shí) 熟悉 Visual Basic 程序設(shè)計(jì) 的基本 語法知識(shí)及常用技巧 。 客戶 信息 管理 :針對(duì)本企業(yè)的客戶來進(jìn)行信息管理，根據(jù)客戶的基本信息建立數(shù)據(jù)庫，并可以變更信息，例如客戶信息的添加，客戶信息的顯示，客戶信息的修改和刪除，客戶信息的查詢等。 客戶信息管理 客戶信息添加 客戶信息修改 客戶信息查詢 信息查看 信息修改 信息刪除 商品信息管理 商品信息添加 商品信息修改 商品信息查詢 信息查看 信息修改 信息刪除 訂單信息管理 生成訂單 訂單信息修改 訂單信息查詢 信息查看 信息修改 信息刪除 訂單信息管理系統(tǒng) 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 4 表 控件 屬性 屬性取值 frmlogin(form) name frmlogin caption 登陸 startupposition centerscreen windowstate Normal txtUsername name txtUsername txt password name txt password Password char * CmdOK name CmdOK caption 確定 Cmdcancel name Cmdcancel caption 確定 Labal 1 caption 訂單信息管理系統(tǒng) Labal 2 caption 用戶名 Labal 3 caption 密碼 為窗體定義全局變量為 OK，用來判斷登陸是否成功；定義 micount,用來記載輸入密碼的次數(shù) ， 并且在載入窗體時(shí)初始化這兩個(gè)全局變量 。 ) = Then Select Case intcount Case 0 semg = 公司名稱 Case 1 semg = 聯(lián)系人姓名 Case 2 semg = 聯(lián)系地址 Case 3 semg = 城市名稱 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 9 Case 4 semg = 地區(qū)名稱 Case 5 semg = 郵政編碼 Case 6 semg = 聯(lián)系電話 Case 7 semg = 傳真號(hào)碼 Case 8 semg = 公司主頁 Case 9 smeg = 備注信息 End Select smeg = smeg amp。 Set mrc = ExecuteSQL(txtsql, msgtext) If = False Then MsgBox 已經(jīng)存在此客戶的記錄！ , vbOKOnly + vbExclamation, 警告 txtitem(0).SetFocus Exit Sub End If txtsql = select * from customer ‘執(zhí)行查詢操作 Set mrc = ExecuteSQL(txtsql, msgtext) ‘添加記錄 Next intcount ‘給每個(gè)字段賦值 For i = 0 To 9 (i) = Trim(txtitem(i)) Next i MsgBox 添加客戶信息成功！ , vbOKOnly + vbExclamation, 添加客戶信息 Unload Me End Sub 二 、 產(chǎn)品修改代碼 定義數(shù)據(jù)集對(duì)象 Dim mrc As ‘定義書簽，用來記載當(dāng)前記錄位置 Dim mybookmark As Variant ‘判斷是否修改記錄 Dim mcclean As Boolean MyBookmark 用來記錄數(shù)據(jù)集中當(dāng)前記錄的位置， mcclean 作為一個(gè)標(biāo)志記錄是否修改記錄。一個(gè)好的數(shù)據(jù)庫結(jié)構(gòu)和文件設(shè)計(jì)可以使系統(tǒng)在已有的條件下，具有處理速度快、占用存儲(chǔ)空間少，操作處理過程簡(jiǎn)單、查找容易、系統(tǒng)開銷和費(fèi)用低等特點(diǎn)。只有在配置完成了數(shù)據(jù)源之后，才能讓 VB 應(yīng)用程序同數(shù)據(jù)庫進(jìn)行正確的連接工作，在VB 應(yīng)用程序中才可以通過 ADO對(duì)象來進(jìn)行具體數(shù)據(jù)的操作，如果在建立了數(shù)據(jù)庫之后沒有對(duì)數(shù)據(jù)源進(jìn)行配置或者對(duì)數(shù)據(jù)源的配置工作出現(xiàn)錯(cuò)誤，則在此之前所做的一切工作都是白費(fèi)的。通過在不同點(diǎn)檢查程序狀態(tài)，確定實(shí)際狀態(tài)是否與預(yù)期的狀態(tài)一致。 輸入用戶名和密碼正確后，進(jìn)入系統(tǒng)的主頁面，選 擇“訂單管理 － 添加訂單信息”菜單，出現(xiàn)如圖 所示頁面，客戶信息和商品信息直接從下拉列表中選擇即可，填好信息即生成一份訂單。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大可以與Windows 專業(yè)開發(fā)工具 SDK 相媲美。就是少了一個(gè)空格，就是一個(gè)空格花了我整整一個(gè)上午。因?yàn)槲覀兏冻龅暮顾玫搅嘶貓?bào) ！ 遼 寧 工 業(yè) 大 學(xué) 課 程 設(shè) 計(jì) 說 明 書（論 文） 19 參考文獻(xiàn) [1]甘雷 .《中文 Access 2020標(biāo)準(zhǔn)教程》 . 北京希望電子出版社 ， 2020年 [2]黃梯云 .《管理信息系統(tǒng)》 . 高等教育出版社， 2020年修訂版 [3]姜旭平 . 《信息系統(tǒng)開發(fā)方法》 . 清華大學(xué)出版 社， 1997年 [4]薛華成 . 《管理信息系統(tǒng)》 . 清華大學(xué)出版社， 1999年 [5]耿文蘭 . 《 Access 2020數(shù)據(jù)庫管理與開發(fā)》 . 電子工業(yè)出版社 , 2020年 10月第一版 [6]劉炳文 ,許蔓舒等 . 《 Visual Basic程序設(shè)計(jì)教程》 . 清華大學(xué)出版社 , 2020年 [7]賽奎春、高春艷等 《 Visual Basic精彩編程 200例 》 . 機(jī)械工業(yè)出版社 ， 2020年 1月 [8]劉炳文 ,許蔓舒等 . 《 Visual Basic程序設(shè)計(jì)題解與上機(jī)指導(dǎo)》 . 清華大學(xué)出版社 , 2020年 [9]劉 魯 . 《管理信息系統(tǒng)》 . 北京航空航天大學(xué)出版社 , 1995年 [10]李俊民 ．《 Visual Basic 信息系統(tǒng)開發(fā)實(shí)例精選 》． 機(jī)械工業(yè)出版社 ,2020年 7月 [11]白鵬 . 《 Visual Basic 編程實(shí)例與技巧》 . 科學(xué)出版社 , 2020年第一版 [12]柴欣，張紅梅 . 《 Visual C++程序設(shè)計(jì)基礎(chǔ)》．中國鐵道出版社， 2020年 8月第二版 [13]李萬紅，梁靚．《 VB． NET程序設(shè)計(jì)入門》．北京清華大學(xué)出版社， 2020年 [14]普悠瑪，《 VB． NET程序設(shè)計(jì)示例導(dǎo)學(xué)》．北京科海電子出版 社， 2020年 4月第一版 [15]李萬紅，段恒勇．《 VB． NET實(shí)用培訓(xùn)教程》．北京清華大學(xué)出版社 ， 2020年 [16]劉斌文，《精通 Visual Basic． NET中文版》．北京機(jī)械工業(yè)出版社， 2020年