【導(dǎo)讀】究和整理，確定了在公司內(nèi)部引入訂單管理系統(tǒng)軟件的可行性、緊迫性和必要性。以實現(xiàn)公司訂單管理的電腦化，提高工作效率。戶、訂單之間進行行之有效的管理。管理、銷售管理、系統(tǒng)信息等模塊。降低了企業(yè)開銷。劃分以及數(shù)據(jù)庫模式分析等，重點對應(yīng)用程序的實際開發(fā)實現(xiàn)作了介紹。

　　

【正文】 mxb where zbid=39。 + CStr((0, i).()) + 39。, conn) (dset, ddmxb) = (ddmxb).DefaultView End Sub 刪除訂單主要實現(xiàn)技術(shù)： If MsgBox(確定要刪除嗎？ , ) = Then Exit Sub Dim i As Integer i () = Dim counts As Integer Dim cls As New Class1 counts = (delete from ddmxb where id=39。 amp。 (0, i).() amp。 39。, ) If counts 0 Then MsgBox(刪除成功！ ) Call datalist() End If End Sub 刪除貨物主要實現(xiàn)技術(shù)： If MsgBox(確定要刪除嗎？ , ) = Then Exit Sub Dim i As Integer i () = Dim counts As Integer 第 18 頁 共 28 頁 Dim cls As New Class1 counts = (delete from ddmxb where zbid=39。 amp。 (0, i).() amp。 39。, ) If counts 0 Then counts = (delete from ddzb where id=39。 amp。 (0, i).() amp。 39。, ) MsgBox(刪除成功！ ) Call datagrid() Call datalist() Else MsgBox(刪除失?。?) End If End Sub 銷售定金模塊的界面設(shè)計及主要實現(xiàn)技術(shù) 銷售定金模塊是用來管理訂單中定金的模塊，其主要流程如圖 17 所示： 圖 17 銷售定金管理主要流程 銷售定金模塊界面設(shè)計 如圖 18： 第 19 頁 共 28 頁 圖 18 銷售定金界面設(shè)計 銷售定金主要實現(xiàn)技術(shù)： If = Then MsgBox(客戶姓名不能為空！ ) Exit Sub End If If = Then MsgBox(訂單號不能為空 ) Exit Sub End If If = Then MsgBox(定金不能 為空！ ) Exit Sub End If Dim cls As New Class1 Dim counts As Integer 第 20 頁 共 28 頁 counts = (insert into xsdj (客戶 ,訂單號 ,定金 ) values (39。 + + 39。,39。 + + 39。,39。 + + 39。), ) If counts 0 Then MsgBox(保存成功！ ) Call datagrid() End If End Sub 銷售管理模塊界面設(shè)計及主要實現(xiàn)技術(shù) 銷售管理模塊是與交貨單的生成、派發(fā)相關(guān)的模塊，其主要流程如圖 19 所 示： 圖 19 銷售管理主要流程 銷售管理模塊界面設(shè)計如圖 20： 第 21 頁 共 28 頁 圖 20 銷售管理界面 交貨單生成主要實現(xiàn)技術(shù)： Dim dset As New DataSet Dim sda As New SqlDataAdapter(select * from ddzb where 發(fā)貨日期 =39。 + + 39。 and 發(fā)貨日期 =39。 + + 39。, conn) (dset, ddzb) = (ddzb).DefaultView End Sub 派發(fā)功能主要實現(xiàn)技術(shù) ： Dim pfbm As String pfbm = InputBox(請輸入派發(fā)部門： ) If pfbm = Then MsgBox(派發(fā)部門不能為空！ ) : Exit Sub Dim cls As New Class1 Dim counts As Integer Dim sql As String sql = insert into pfinfo (訂單號 ,客戶 ,結(jié)算方式 ,訂貨方式 ,付款期限 ,發(fā)貨日期 ,訂單金額 , 付款金額 ,結(jié)算標(biāo)志 ,派發(fā) ) values (39。 + (0, i).() + 39。,39。 + 第 22 頁 共 28 頁 (1, i).() + 39。,39。 + (2, i).() + 39。,39。 + (3, i).() + 39。, 39。 + (4, i).() + 39。,39。 + (5, i).() + 39。,39。 + (6, i).() + 39。,39。 + (7, i).() + 39。,39。139。,39。 + pfbm + 39。) counts = (sql, ) If counts 0 Then MsgBox(派發(fā)成功！ ) Else MsgBox(派發(fā)失敗！ ) End If End Sub 6 測試與結(jié)果 測試說明 本系統(tǒng)是在 windows XP 操作系統(tǒng)下進行測試的，測試機子需安裝 . 環(huán)境 和 SQL Server 2020 數(shù)據(jù)庫。 各模塊測試 本系統(tǒng)為防止惡意篡改，故設(shè)計為專有系統(tǒng)，在進入系統(tǒng)前需以管理員的身 份登陸，如圖 21： 圖 21 管理員登陸 管理員在登陸后就可進入系統(tǒng)主界面，如圖 22： 第 23 頁 共 28 頁 圖 22 系統(tǒng)主界面 點擊上方不同的菜單欄，可以談出各不同功能的窗口，由于一些窗口界面已 在上一章設(shè)計中展示，在此我便不再冗述，此處以派發(fā)生成（如圖 23）和派發(fā) 瀏覽為例（如圖 24） 圖 23 派發(fā)生成 第 24 頁 共 28 頁 圖 24 派發(fā)信息瀏覽 最后為了保護知識產(chǎn)權(quán)防止有人盜用本系統(tǒng)，還加入了系統(tǒng)標(biāo)識信息，如圖 25： 圖 25 系統(tǒng)標(biāo)識信息 測試結(jié)果 通過測試，本訂單管理系統(tǒng)在 Windows XP 操作系統(tǒng)下運行良好，無錯誤， 達到了設(shè)計目標(biāo)。 第 25 頁 共 28 頁 結(jié) 論 經(jīng)過一段時間的緊張而有序的畢業(yè)設(shè)計工作，訂單管理系統(tǒng)主體功能已全面 實現(xiàn)。系統(tǒng)界面簡潔，操作方便，功能基本完備，實現(xiàn)了基本的企業(yè)訂單處理功 能。但是也有需要進一步改進的地方，如：本系統(tǒng)在設(shè)計初始模擬了一個企業(yè)內(nèi) 部的訂單處理流程，但是由于沒有實際參與過真實企業(yè)的訂單處理工作 ，所以 本系統(tǒng)所模擬出來的僅僅是訂單管理的簡單流程與實際商用的訂單管理軟件之 間還有很大的差距，本系統(tǒng)沒有客戶信用認(rèn)證、 VIP 客戶折扣等功能 ，故本系統(tǒng) 還不能應(yīng)用于實際的商業(yè)工作。本系統(tǒng)暫時只為學(xué)習(xí)研究之用。 本系統(tǒng)的設(shè)計與開發(fā)在老師的領(lǐng)導(dǎo)下模擬軟件開發(fā)公司的設(shè)計與開發(fā)模式。 通過對本的設(shè)計于論文撰寫工作，我完成了系統(tǒng)的需求分析，概要設(shè)計、詳細設(shè) 計、編碼、測試等的學(xué)習(xí)和實踐。同時，由于這是我第一次參加程序的設(shè)計工作， 因此還存在很多的不足之處，例如在數(shù)據(jù)庫設(shè)計的時候把字段名英文和中文混雜 了。對于這類不足今后我應(yīng)該在工作中多多注意加以改進。 綜上所述，本次的畢業(yè)設(shè)計工作檢驗了我四年的大學(xué)學(xué)習(xí)的成果，而且在完 成整個設(shè)計的過程中 我體驗了企業(yè)軟件設(shè)計開發(fā)的過程，積累了經(jīng)驗，這對我今 后的工作會起到很大作用。 參考文獻 [1] 王晟 .Visual 數(shù)據(jù)庫開發(fā)經(jīng)典案例解析 [M].北京：清華大學(xué)出版社， 2020。 [2] 李強 .Visual 精彩編程百例 [M].北京：中國水利水電出版社， 2020。 [3] 童愛紅 ,劉凱 . 應(yīng)用教程 [M]．北京：清華大學(xué)出版社 北京交通大學(xué)出版社 ,2020。 [4] 方睿 ,刁任宏 ,吳四九 .網(wǎng)絡(luò)數(shù)據(jù)庫原理及應(yīng)用 [M].成都：四川大學(xué)出版社 ,2020。 [5] Christian Nagel. 高級編程 (第四版 ) [M].北京：清華大學(xué)出版社， 2020。 [6] Microsoft， Microsoft SQL Server 2020 聯(lián)機幫助文檔 [EB]， SQL Server2020。 第 26 頁 共 28 頁