【導(dǎo)讀】2開(kāi)發(fā)工具描述·······························································2. 3系統(tǒng)需求分析與總體框架·················································5

　　

【正文】 9。從數(shù)據(jù)庫(kù)中查找 Set rs = search(sqlstr) If 0 Then MsgBox 此編號(hào)已經(jīng)使用！ 輸入商品編號(hào) 編號(hào)是否合法 選擇商品類別 添加一條新記錄 否 否 是 是 圖 55 商品添加流程圖 輸入商品名稱 名稱是否合法 輸入數(shù)量 結(jié)束 打開(kāi)商品信息表 關(guān)閉商品信息表 精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 21 Exit Sub End If If TxtMCHName = Then MsgBox 請(qǐng)輸入商品名稱 Exit Sub End If If TxtMCHNum = Then MsgBox 請(qǐng)輸入商品數(shù)量 Exit Sub End If If TxtMCHSP = Then MsgBox 請(qǐng)輸入商品銷售價(jià)格 Exit Sub End If If TxtMCHMP = Then MsgBox 請(qǐng)輸入商品會(huì)員價(jià)格 Exit Sub End If If TxtMCHPP = Then MsgBox 請(qǐng)輸入商品進(jìn)貨價(jià)格 Exit Sub End If If 0 Or 100 Then MsgBox 請(qǐng)輸入 0100 之間的數(shù) = 0 Exit Sub End If 39。銷售價(jià) =銷售價(jià) +包裝率 If TXTMCHCP 0 Then = TxtMCHSP + TxtMCHSP * ( / 100) End If If = Or = 請(qǐng)選擇類型 Then MsgBox 請(qǐng)選擇類型 Exit Sub End If 39。添加新商品 sqlstr = INSERT INTO merchandise Values (39。 amp。 amp。 39。,39。 amp。 TxtMCHName amp。 39。, amp。 TxtMCHNum amp。 , amp。 amp。 , amp。 amp。 精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 22 , amp。 amp。 , amp。 amp。 ,39。 amp。 amp。 39。) Set rs = search(sqlstr) 39。新商品入庫(kù) ,如果有此商品添加數(shù)量 sqlstr = select * from stockpile where merchid=39。 amp。 TxtMCHId amp。 39。 Set rs = search(sqlstr) If 0 Then (number).Value = (number).Value + TxtMCHNum Else sqlstr = INSERT INTO stockpile Values (39。 amp。 amp。 39。, amp。 TxtMCHName amp。 , amp。 TxtMCHNum amp。 ) Set rs = search(sqlstr) End If MsgBox 商品 添加成功！ End Sub 以上為系統(tǒng)流程代碼。 會(huì)員信息添加 添加會(huì)員信息時(shí)，首先輸入會(huì)員編號(hào)，并判斷編號(hào)是否合法，若不合法，則提示重新輸入編號(hào)，否則輸入會(huì)員姓名，并判斷姓名是否合法，若不合法，則提示重新輸入姓名。否則輸入會(huì)員電話，接著打開(kāi)會(huì)員信息表，將記錄指針移到表尾，調(diào)用記錄添加函數(shù)，添加一條新記錄，最后關(guān)閉會(huì)員信息表，即實(shí)現(xiàn)了會(huì)員信息的添加。會(huì)員信息添加功能的流程圖如下圖 56 所示： 精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 23 會(huì)員信息的添加代碼如下： If = Then MsgBox 請(qǐng)輸入會(huì)員編號(hào) Exit Sub End If sqlstr = select * from member where memberid=39。 amp。 amp。 39。 Set rs = search(sqlstr) If 0 Then MsgBox 此編號(hào)已經(jīng)使用！ Exit Sub End If If = Then MsgBox 請(qǐng)輸入會(huì)員姓名 Exit Sub End If If = Then MsgBox 請(qǐng)輸入電話號(hào)碼 輸入會(huì)員編號(hào) 編號(hào)是否合法 打開(kāi)會(huì)員信息表 移到表尾 否 否 是 是 圖 54 員工添加流程圖 輸入會(huì)員姓名 姓名是否合法 輸入會(huì)員電話 添加一條新記錄 結(jié)束 關(guān)閉會(huì)員信息表 精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 24 Exit Sub End If If Len() 8 Or Len() 11 Then MsgBox 請(qǐng)輸入正確的電話號(hào)碼 = Exit Sub End If If = Then MsgBox 請(qǐng)輸入會(huì)員地址 Exit Sub End If sqlstr = INSERT INTO member (memberid,mname,mtel,maddress,integral) Values (39。 amp。 amp。 39。,39。 amp。 TxtName amp。 39。, amp。 TxtTel amp。 ,39。 amp。 TxtAdd amp。 39。, amp。 TxtIg amp。 ) Set rs = search(sqlstr) MsgBox 添加成功 6 超市管理系統(tǒng)的運(yùn)行測(cè)試 登陸窗口 Frmdl 功能介紹：本窗口主要是檢查操作員輸入的用戶名及密碼是否正確，如果正確，允許登錄。如果錯(cuò)誤，顯示出錯(cuò)誤提示。 操作方法：填寫(xiě) “用戶名 ”與 “密碼 ”后，點(diǎn)擊 “登錄 ”按鈕進(jìn)行驗(yàn)證，點(diǎn)擊 “注冊(cè) ”可以注冊(cè)一個(gè)管理員，但是注冊(cè)必須是超市管理系統(tǒng)已存在的員工。如果不是超市的員工，則不能注冊(cè)。注冊(cè)后的用戶可以進(jìn)入到超市管理系統(tǒng)，但是不能進(jìn)行任何操作，須管理設(shè)置權(quán)限才能正常使用超市管理系統(tǒng)的每一個(gè)功能。 登陸窗口圖如下所示： 精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 25 圖 61 登陸窗口 說(shuō)明：在下拉框里選擇要登陸的帳號(hào)，然后在密碼框輸入框里輸入該用戶的密碼。選擇 “確定 “按鈕后。首先會(huì)從數(shù)據(jù)庫(kù)表 “admin”表里取得字段 “ID”等于用戶選擇的下拉框的值。把該查詢語(yǔ)句做為參數(shù)通過(guò) search（）函數(shù)調(diào)用在已在模塊定義好的查詢函數(shù)。如果數(shù)據(jù)庫(kù)存在這條記錄，則返回的行數(shù)大于 1 就會(huì)判斷 輸入在文本框的密碼是否等于從數(shù)據(jù)庫(kù)中讀取到密碼的值。如果密碼相等，就會(huì)判斷用戶的權(quán)限，如果該用戶的權(quán)限值等于 “all”就會(huì)把菜單的值設(shè)為 “True”。否則就會(huì)設(shè)為 “False”，這樣菜單其它功能就不能選擇。然后就會(huì)過(guò) 彈出程序主窗口， Unload Me 關(guān)閉當(dāng)前窗口。如果輸入的密碼不正確，會(huì)彈出 “密碼錯(cuò)誤 ”提示。密碼框值為空，并且光標(biāo)返回。 超市管理系統(tǒng)主窗口 MDIFrmMain 功能介紹：本窗本采用了 VB 里的 MDI 窗體設(shè)計(jì)，這樣可以把每一個(gè)子窗體包含在該窗體中，子窗體不可以移出這個(gè) MDI 窗體 [12]。設(shè)計(jì)一個(gè)工具欄，工具欄可以設(shè)置選項(xiàng)按鈕，然后設(shè)計(jì)一個(gè) ImageList 控件，該控件主要是實(shí)現(xiàn)工具欄上每個(gè)按鈕圖標(biāo)的引用，首先把圖標(biāo)都引入到該控件上，然后通過(guò)工具欄屬性每個(gè)按鈕下標(biāo)，索值來(lái)確定按鈕，引用的是那個(gè)圖標(biāo)，并顯示出來(lái)。 效果圖如下所示： 精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 26 圖 62 主窗口測(cè)試圖 供應(yīng)商添加 FrmProvider 功能介紹：本窗口主要實(shí)現(xiàn)供應(yīng)商的添加，輸入的供應(yīng)商編號(hào)首先會(huì)從數(shù)據(jù)庫(kù)中讀取，是否該供應(yīng)商的編號(hào)已經(jīng)存在，如果存在則要求管理員重新輸入過(guò)供應(yīng)商的編號(hào)。 操作方法：填寫(xiě) “ 供應(yīng)商編號(hào) ” ， “ 供應(yīng)商姓名 ” ， “ 供應(yīng)商電話 ” ， “ 供應(yīng)商地址 ” 如果有一個(gè)輸入框沒(méi)輸入就會(huì)彈出一個(gè)提示信息，要求輸入該框的相應(yīng)內(nèi)容的信息。 供應(yīng)商添加圖如下所示： 圖 63 供應(yīng)商添加測(cè)試圖 精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 27 如果管理在輸入的信息的時(shí)候發(fā)覺(jué)輸入的信息有多次錯(cuò)誤時(shí)，可以通過(guò) “ 清空 ” 選項(xiàng)把 所有輸入框的內(nèi)容清空，這樣就不必要一個(gè)一個(gè)框內(nèi)容進(jìn)行清空。實(shí)現(xiàn)的代碼很簡(jiǎn)單，通過(guò)文本框的 Text=“” 值就可以實(shí)現(xiàn)以上的清空功能。 供應(yīng)商查詢及修改 FrmPSel 功能介紹：本窗口主要實(shí)現(xiàn)對(duì)已存在的供應(yīng)商的進(jìn)行查詢，修改，刪除功能。 操作方法：查詢可以通過(guò) “供應(yīng)商編號(hào) ”， “供應(yīng)商名稱 ”來(lái)進(jìn)行查詢，只要在查詢方式輸入相應(yīng)的內(nèi)容就可以查詢出相關(guān)的供應(yīng)商信息。通過(guò)選中供應(yīng)商記錄，可以修改當(dāng)條被選中的供應(yīng)商記錄，也可以對(duì)該條記錄進(jìn)行刪除。 效果 圖如下所示： 圖 64 供應(yīng)商查詢測(cè)試圖 當(dāng)想進(jìn)行 “供應(yīng)商信息 ”進(jìn)行修改的時(shí)候，可以通過(guò) “修改 ”選項(xiàng)，就會(huì)彈出一個(gè)修改信息窗體，但是供應(yīng)商的編號(hào)是不可以進(jìn)行修改，供應(yīng)商其它信息可以進(jìn)行修改。 修改信息的效果圖如下： 精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 28 圖 65 供應(yīng)商修改測(cè)試圖 員工添加 功能介紹：本窗口主要實(shí)現(xiàn)員工的添加，輸入的員工編號(hào)首先會(huì)從數(shù)據(jù)庫(kù)中讀取，該員工的編號(hào)是否已經(jīng)存在，如果存在則要求管理員重新輸入過(guò)員工的編號(hào)。 操作方法：填寫(xiě) “ 員工編號(hào) ” ， “ 員工姓名 ” ， “ 員工性別 ” ， “ 員工職務(wù) ” 如果有一個(gè)輸入框沒(méi)輸入就會(huì)彈出一個(gè)提示信息，要求輸入該框的相應(yīng)內(nèi)容的信息。 員 工添加圖如下所示： 圖 66 員工添加測(cè)試圖 員工查詢及修改 FrmESel 功能介紹：本窗口主要實(shí)現(xiàn)對(duì)已存在的員工信息的進(jìn)行查詢，修改，刪除功能。 操作方法：查詢可以通過(guò) “ 員工編號(hào) ” ， “ 員工名稱 ” ， “ 員工職務(wù) ” 來(lái)進(jìn)行查詢，只要在查詢方式輸入相應(yīng)的內(nèi)容就可以查詢出相關(guān)的員工信息。通過(guò)選中員工記錄，可以修改當(dāng)條被選中的員工信息記錄，也可以對(duì)該條記錄進(jìn)行刪除。 效果圖如下所示： 精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 29 圖 67 員工查詢測(cè)試圖 當(dāng)想進(jìn)行 “ 員工信息 ” 進(jìn)行修改的時(shí)候，可以通過(guò) “ 修改 ” 選項(xiàng)，就會(huì)彈出一個(gè)修改信息窗體，但 是員工的編號(hào)是不可以進(jìn)行修改，員工其它信息可以進(jìn)行修改。修改信息的效果圖如下： 圖 68 員工修改測(cè)試圖 商品信息添加 FrmMCHD 功能介紹：本窗口主要實(shí)現(xiàn)超市商品的添加，輸入的商品編號(hào)首先會(huì)從數(shù)據(jù)庫(kù)中讀取，該商品的編號(hào)是否已經(jīng)存在，如果存在則要求管理員重新輸入過(guò)商品的編號(hào)。 操作方法：填寫(xiě) “ 商品編號(hào) ” ， “ 商品名稱 ” ， “ 商品數(shù)量 ” ， “ 銷售的價(jià)格 ” 是該商品的銷售時(shí)的價(jià)格， “ 會(huì)員價(jià)格 ” 只能注冊(cè)為超市的會(huì)員才能享有的價(jià)格優(yōu)惠。精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 30 “ 進(jìn)貨價(jià)格 ” ， “ 商品類型 ” 可以選擇該商品屬于那一種分類。 圖 69 商品信息添加測(cè)試圖 商品信息查詢 .修改 .刪除 功能介紹：本窗口主要實(shí)現(xiàn)超市的商品信息查詢，修改，刪除。查詢可以分為五種不同的查詢的方式，查詢得到的信息可以選中信息進(jìn)行，修改或刪除的操作。 操作方法：如果在查詢方式中輸入的內(nèi)容，和已存在的商品信息不相應(yīng)，就無(wú)法查詢到商品的信息。 “ 商品類別 ” 可以通過(guò)下拉選項(xiàng)框選擇 “ 電器 ” ， “ 服飾 ” 等類別進(jìn)行查詢。 精品畢業(yè)論文、畢業(yè)設(shè)計(jì)，優(yōu)質(zhì)的論文服務(wù)： 精品論文網(wǎng) 提供畢業(yè)設(shè)計(jì)（論文）和圖文教程、視頻教程等一攬子解決方案 31