【正文】
End IfEnd SubPrivate Sub Option1_Click() = False = False = = True = = False = = FalseEnd SubPrivate Sub Option2_Click() = False = False = = False = = True = = FalseEnd SubPrivate Sub Option3_Click() = False = False = = False = = False = = TrueEnd Sub .商品銷售(frmSPXS)代碼:Public spmcStr As String 39。 spmcStr = (spmc) djStr = (dj) kcStr = (kc) If CSng(Trim(kcStr)) CSng(Trim()) Then MsgBox 對不起,商店沒有那么多該類商品!, 48, 進(jìn)銷存管理系統(tǒng) Else Call Main Set adoRs = (insert into LSXSB values(39。,39。,39。,39。)) kcStr = kcStr Set adoRs = (update goods set kc = 39。) MsgBox 記錄添加成功, 48, 進(jìn)銷存管理系統(tǒng) End If End If End IfEnd SubPrivate Sub Command2_Click() If = Then MsgBox 請輸入商品編號, 48, 進(jìn)銷存管理系統(tǒng) Else If = 0 Then MsgBox 訂購列表為空,沒有記錄可以刪除, 48, 進(jìn)銷存管理系統(tǒng) Else = select * from LSXSB where spbh = 39。 where spbh = 39。 as jsr from lsxsb If = 0 Then MsgBox 出售列表為空,請先添加待售商品, 48, 進(jìn)銷存管理系統(tǒng) Exit Sub Else Call Main Set adoRs = (insert into seller select spbh,spmc,dj,sl,dj*sl as je,39。有可能會(huì)由于傳輸過程中數(shù)據(jù)的丟失造成軟件運(yùn)行的錯(cuò)誤。7.小結(jié) 通過對此次項(xiàng)目的設(shè)計(jì)加深了對本專業(yè)知識(shí)的了解,提高了動(dòng)手能力,讓自己有較為規(guī)范的獨(dú)立開發(fā)能力。8.參考資料《數(shù)據(jù)庫系統(tǒng)概論 第四版》高等教育出版社 鄭若忠 王鴻武 著《SQL Server數(shù)據(jù)庫管理、設(shè)計(jì)與實(shí)現(xiàn)教程》清華大學(xué)出版社趙杰 李濤 朱慧著《Visual Basic 數(shù)據(jù)庫高級實(shí)例導(dǎo)航》 科學(xué)出版社鐘軍 等編著《軟件工程》機(jī)械工業(yè)出版社 瞿中 吳渝 劉群 劉冰著《Visual Basic 數(shù)據(jù)庫通用模塊及典型系統(tǒng)開發(fā)》人民郵電出版社劉韜 駱娟著《UML系統(tǒng)建模與分析設(shè)計(jì)》機(jī)械工業(yè)出版社刁成嘉 主編《軟件項(xiàng)目管理案例教程》機(jī)械工業(yè)出版社。每個(gè)人都有自己的長處和不足,我們不可能個(gè)人對什么方面都專長,各方面總有可以做我們老師的人,我們應(yīng)該多向他們學(xué)習(xí)、請教。3 沒有檢測文本框的路徑信息的安全性;解決方案:禁用路徑手動(dòng)編輯功能。 as jsr from lsxsb) Set adoRs = (delete from lsxsb ) MsgBox 出售完成, 48, 進(jìn)銷存管理系統(tǒng) End IfEnd SubPrivate Sub Command4_Click() Unload MeEnd SubPrivate Sub DataGrid2_Click() If 0 Then = (0).CellText() End IfEnd SubPrivate Sub Form_Activate() If = 0 Then MsgBox 無任何庫存商品, 48, 進(jìn)銷存管理系統(tǒng) Else Do Until (spbh) Loop End IfEnd Sub4.測試結(jié)果及相關(guān)表格檢查項(xiàng)內(nèi)容窗口切換、移動(dòng)、改變大小時(shí)正常嗎?√各種界面元素的文字正確嗎?(如標(biāo)題、提示等)√各種界面元素的狀態(tài)正確嗎?(如有效、無效、選中等狀態(tài))√數(shù)據(jù)項(xiàng)能正確回顯嗎?√各種界面元素的布局合理嗎?美觀嗎?√各種界面元素的形狀美觀嗎?√……此處取商品查詢(frmSPCX)窗體及商品銷售(frmSPXS)窗體作為測試樣本對商品查詢(frmSPCX)窗體:處理時(shí)點(diǎn)處理內(nèi)容實(shí)現(xiàn)狀態(tài)初始狀態(tài)1) 單選框在“商品編號”選項(xiàng)上2) 表格中顯示數(shù)據(jù)庫中的全部商品信息3) 除商品編號的文本框可以輸入外,其他的皆不可輸入、編輯已實(shí)現(xiàn)開始查詢1) 若單選框在“商品編號”上,則判斷編號是否為空,如為空則提示用戶輸入商品編號,否則在商品名單表中顯示查詢結(jié)果2) 若單選框在“商品名稱”上,則判斷名稱是否為空,如為空則提示用戶輸入商品名稱,否則在商品名單表中顯示查詢結(jié)果3) 若單選框在“商品類別”上,則判斷類別是否為空,如為空則提示用戶選擇查詢商品的類別,否則在商品名單表中顯示查詢結(jié)果已實(shí)現(xiàn)顯示全部在商品名單中顯示所有商品信息已實(shí)現(xiàn)打印打印全部結(jié)果已實(shí)現(xiàn)雙擊表格在商品信息文本框中將選中雙擊的該條信息顯示出來已