【文章內(nèi)容簡(jiǎn)介】 站管理 品名管理 查詢運(yùn)單 刪除運(yùn)單 修改運(yùn)單 新增運(yùn)單 新增客戶 修改客戶 刪除客戶 匯總結(jié)算 結(jié)算管理 運(yùn)單業(yè)務(wù)，如新增加、查詢運(yùn)單、修改運(yùn)單和刪除運(yùn)單。 客戶管 理模塊：對(duì)物流管理系統(tǒng)的客戶信息進(jìn)行管理，通過(guò)這個(gè)模塊可以新增加客戶、查詢客戶信息、修改客戶信息和刪除客戶信息。 結(jié)算管理模塊：通過(guò)結(jié)算管理模塊，對(duì)物流管理系統(tǒng)的業(yè)務(wù)單據(jù)做結(jié)算管理，在這個(gè)模塊中，可以查詢結(jié)算單據(jù)、逐條瀏覽結(jié)算單據(jù)、全部瀏覽結(jié)算單據(jù)、打印結(jié)算單據(jù)、匯總結(jié)算單據(jù)、打印匯總結(jié)算單據(jù)。 系統(tǒng)管理模塊：在系統(tǒng)管理模塊中，可以對(duì)物流管理系統(tǒng)中的車站信息和品名信息進(jìn)行設(shè)置，包括新增加信息、修改信息和刪除信息，已經(jīng)對(duì)用戶密碼修改的設(shè)置功能。 退出系統(tǒng)模塊：退出物流信息管理系統(tǒng)。 各功能模塊設(shè)計(jì) 用戶 登陸表單 新建立 FRMLOGIN 表單 是用來(lái)確定進(jìn)入系統(tǒng)的身份驗(yàn)證 用戶輸入密碼后，經(jīng)過(guò)系統(tǒng)確認(rèn)后，方可以進(jìn)入系統(tǒng)，否則進(jìn)入不了系統(tǒng)。防止無(wú)關(guān)的人員進(jìn)入系統(tǒng)中，違規(guī)操作業(yè)務(wù)。 新建立 MAINFORM 這個(gè)表單是主界面表單，是物流系統(tǒng)操作管理的主要界面。在這個(gè)界面中，用戶可以進(jìn)行系統(tǒng)的所有操作，通過(guò)主界面上端的菜單選擇進(jìn)入各個(gè)模塊。包括運(yùn)單增加、客戶管理、結(jié)算管理、系統(tǒng)管理和退出系統(tǒng)。 新建 FRMTRAFFICADD 表單 用來(lái)增加物流系統(tǒng)的新接待業(yè)務(wù) 在新增運(yùn)單管理模塊中，用戶輸入車號(hào)、車類型、品名、 發(fā)貨日期、發(fā)站、到站、發(fā)貨人、收貨人、貨物類型、重量、運(yùn)輸費(fèi)用等各個(gè)信息，自動(dòng)在表單下面出現(xiàn)合計(jì)信息。 新建 FRMTRAFFIC 表單，查看運(yùn)單表單，用來(lái)查詢、瀏覽、修改和刪除所接受的物流業(yè)務(wù)。選擇表單可以瀏覽、修改和刪除運(yùn)單單據(jù)。 新建立 FRMQUERY 表單，用來(lái)查詢物流系統(tǒng)的運(yùn)單，在該表單中可以通過(guò)輸入車站號(hào)、品名、發(fā)站、到站、發(fā)貨人、收貨人、發(fā)貨日期等信息來(lái)查詢運(yùn)單業(yè)務(wù)。 新建立 FRMTRAFFICUPDATE 表單，用來(lái)更改物流系統(tǒng)的業(yè)務(wù)表單，通過(guò)該表單可以修改業(yè)務(wù)單據(jù)中的各個(gè)項(xiàng)目信息。 新建 FRMCLIENTADD 表單，用來(lái)新增加物流系統(tǒng)的客戶管理，在該表單中，可以輸入客戶的各種信息，包括姓名、性別、工作單位、聯(lián)系電話、手機(jī)號(hào)碼、傳真、聯(lián)系地址和備注等信息。 新建 FRMCLIENT 表單，用來(lái)查看、修改和刪除客戶信息，在該表單中，通過(guò)各個(gè)功能按鈕，完成對(duì)客戶信息的查詢、修改和刪除等操作。在下面的列表中可以方便的查看客戶的各種信息。 新建 FRMCHANGEPASSWORD 表單，來(lái)修改客戶信息，通過(guò)這個(gè)表單，可以對(duì)已經(jīng)存在的客戶信息進(jìn)行修改。修改后點(diǎn)擊修改按鈕，就可以保存客戶的修改信 息了。 新建 FRMBILLMANGE 結(jié)算管理表單，用來(lái)管理物流系統(tǒng)業(yè)務(wù)的結(jié)算信息。在這個(gè)表單中，通過(guò)查詢按鈕可以彈出查詢信息表單，查詢結(jié)算信息。點(diǎn)擊單條預(yù)覽按鈕可以對(duì)信息單條預(yù)覽。單條打印按鈕則彈出 word 文檔的單條管理記錄，可以供用戶打印單條信息。全部預(yù)覽和全部打印則是對(duì)信息的全部瀏覽和全部信息的打印處理。 新建 FRMSTATION 表單，用來(lái)管理物流系統(tǒng)，所有經(jīng)過(guò)的車站信息，在這個(gè)表單中，輸入物貨信息管理系統(tǒng)中所有經(jīng)過(guò)的車站，即可以接受物品貨運(yùn)到達(dá)的地方。 新建 FRMPRODUCT 表單，用來(lái)管理系統(tǒng)的品名設(shè)置，通過(guò)這個(gè)表單，可以對(duì)物流管理系統(tǒng)中，所有接待的物品品名進(jìn)行提前設(shè)置，可以方便用戶在添加運(yùn)單管理時(shí)對(duì)貨運(yùn)信息的輸入。 新建 FRMCHANGEPASSWORD 表單，用來(lái)修改用戶密碼。在這個(gè)表單中，對(duì)系統(tǒng)登陸用戶的密碼進(jìn)行修改和設(shè)置。 新建 FRMREPORT 表單，用來(lái)匯總結(jié)算信息，在該表單中，通過(guò)上部的各個(gè)功能按鈕對(duì)運(yùn)單進(jìn)行結(jié)算功能、預(yù)覽功能和打印功能的管理。界面設(shè)置如下圖： 總 結(jié) 在對(duì)物流管理系統(tǒng)設(shè)計(jì)開(kāi)始這前， 本人對(duì)此了解不是很多，在老師和同學(xué)的幫助下，慢慢對(duì)物流管理系統(tǒng)有了一定了解。物流是專門的一門課程，在現(xiàn)代的物流概念中已經(jīng)延伸為一門特殊的學(xué)問(wèn)。想要對(duì)他進(jìn)行深入的學(xué)習(xí)還是需要花費(fèi)很多精力的。在對(duì)物流認(rèn)識(shí)后，我們按照軟件工程的生命周期方法學(xué)來(lái)完成設(shè)計(jì)，并根據(jù)軟件工程的設(shè)計(jì)思想逐步完成了物流管理系統(tǒng)。短短三個(gè)月的設(shè)計(jì)和開(kāi)發(fā)過(guò)程中遇到很多的問(wèn)題，自己經(jīng)過(guò)不斷學(xué)習(xí)的過(guò)程中我體會(huì)到： 1．，從設(shè)計(jì)初的不懂到最后能夠順利完成，我體會(huì)到在實(shí)踐中學(xué)習(xí)的重要性。經(jīng)過(guò)這次的實(shí)習(xí)使我能夠完整地做出了一個(gè)系統(tǒng)。讓我更深入理解開(kāi)發(fā)一個(gè) 系統(tǒng)的重要性。 2．在設(shè)計(jì)過(guò)程中，遇到不懂的問(wèn)題我會(huì)利用上網(wǎng)跟大家交流。這樣使我很快地解決問(wèn)題。 總之，在這次的畢業(yè)設(shè)計(jì)中，使我深刻體會(huì)到要做好一個(gè)完整的事情，需要有系統(tǒng)的思維方式和方法，對(duì)待一個(gè)新的問(wèn)題，要耐心、要善于運(yùn)用已有的資源來(lái)充實(shí)自己。同時(shí)我也深刻的認(rèn)識(shí)到，在對(duì)待一個(gè)新事物時(shí)，一定要從整體考慮，完成一步之后再作下一步，這樣對(duì)于系統(tǒng)而言才能更加有效。通過(guò)此次畢業(yè)設(shè)計(jì)，我不但對(duì) vb 和數(shù)據(jù)庫(kù)設(shè)計(jì)開(kāi)發(fā)有了深刻的認(rèn)識(shí)，積累了使用軟件工程的思想來(lái)開(kāi)發(fā)軟件的經(jīng)驗(yàn)，同時(shí)最重要的是摸索出了一套考慮問(wèn)題和解決問(wèn)題的方 法 . 這對(duì)于我將來(lái)走上工作崗位受益匪淺。 參考文獻(xiàn) [1] 《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)》 周珂?zhèn)? 編著 [2] 《 Visual Basic 程序設(shè)計(jì)教程》 劉端新 汪遠(yuǎn)征 編著 [3] 《 Visual Basic 企業(yè)辦公系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航》 劉 萌 周學(xué)明 編著 [4] Visual Basic 使用指南 作者： Bob Reselman , Richard Peasley , Wayne ：電子工業(yè)出版社 [5] 中文版 Microsoft Office 自學(xué)通作者： Ned Snell 出版社：機(jī)械工業(yè)出版社 [6] Visual Basic 中文版控件大全作者： Microsoft 出版社；電子工業(yè)出版社 [7] 中文 Access 2020 9 時(shí)教程 作者： Craig Eddy ， Timothy Buchanan出版社：機(jī)械工業(yè)出版社 致謝 在這次畢業(yè)設(shè)計(jì)中，我們從指導(dǎo)老師身上學(xué)到了很多東西。老師認(rèn)真負(fù)責(zé)的工 作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我們受益匪淺。無(wú)論在學(xué)習(xí)中還是在實(shí)踐中，都給予了我很大的幫助，對(duì)于我們以后的工作和學(xué)習(xí)都是一種巨大的幫助和財(cái)富，感謝老師細(xì)心而又耐心的輔導(dǎo)。 特別感謝老師，為我們的系統(tǒng)設(shè)計(jì)和論文提出的寶貴意見(jiàn)，通過(guò)老師的指導(dǎo)，使我們看到了設(shè)計(jì)的不足，我們只有通過(guò)不斷的努力改進(jìn)系統(tǒng)的不足，爭(zhēng)取用更優(yōu)秀的設(shè)計(jì)來(lái)回報(bào)老師的辛勤工作。 最后，再次感謝各位老師和同學(xué)對(duì)我們?cè)O(shè)計(jì)提供的幫助和支持。 附錄代碼清單 各個(gè)功能模塊具體代碼： FRMLOGIN Private Sub cmdCancel_Click() LoginSucceeded = False Unload Me End Sub Private Sub cmdOK_Click() If trycount = 5 Then If (Trim(txtUserName) = ) Or (Trim(txtPassword) = ) Then trycount = trycount + 1 MsgBox 用戶名密碼不能為空 !, , 信息提示 Else Dim strsql As String Dim rs As New strsql = SELECT PASSWORD FROM MYUSERS WHERE USERNAME = 39。 amp。 Trim(txtUserName) amp。 39。 Set rs = (strsql) If Not ( Or ) Then If Trim(txtPassword) = (PASSWORD) Then trycount = 0 LoginSucceeded = True Else trycount = trycount + 1 MsgBox 無(wú)效的密碼，請(qǐng)重試 !, , 信息提示 SendKeys {Home}+{End} End If Else trycount = trycount + 1 MsgBox 無(wú)效的 密碼，請(qǐng)重試 !, , 信息提示 SendKeys {Home}+{End} End If End If Else MsgBox 非法用戶 !, , 信息提示 Unload Me End If End Sub MAINFORM Private Sub MDIForm_Load() = 歡迎使用物流管理系統(tǒng) = * = * = * = * End Sub Private Sub MDIForm_Unload(Cancel As Integer) 39。關(guān) 閉所有窗體 Unload frmBillManage Unload frmChangePassword Unload frmClient Unload frmClientAdd Unload frmClientUpdate Unload frmLogin Unload frmProduct Unload frmQuery Unload frmReport Unload frmStation Unload frmTraffic Unload frmTrafficAdd Unload frmTrafficUpdate End Sub Private Sub ParticularPrint_Click() End Sub Private Sub ProductManage_Click() End Sub Private Sub ReportPrint_Click() End Sub Private Sub StationManage_Click() End Sub Private Sub TrafficAdd_Click() End Sub Private Sub TrafficView_Click() End Sub FRMTRAFFICADD Private Sub Form_Load() = 0 = 0 = * = * 39。取得最大 ID Dim inum As Integer Dim strsql As String Dim DB As New clsDataBase Dim rs As New strsql = SELECT MAX(ID) AS MAXID FROM TRAFFIC Set