【導讀】無論是一個銷售公司還是一個銷售商店，都有很多的銷售數據需要管理。理規(guī)范、運作高效的企事業(yè)單位的必然要求。本系統(tǒng)——銷售管理信息系統(tǒng)，就是為了實現(xiàn)。各銷售單位高效管理而設計的。的貨加入現(xiàn)存商品庫，再從銷售庫中減去，進行退貨登記；

　　

【正文】 sqltotal, conn, adOpenKeyset, adLockPessimistic = (0) End Select End Sub Private Sub Form_Load() 39。= 39。 Set = 39。 Set = 39。 Set = 39。 Set = 39。 Set = 39。 Set = 39。 Set = 39。 Set = End Sub 查詢員工銷售額窗體 圖 8 查詢員工銷售額窗體 圖 河南理工大學數據庫課程設計 21 查詢員工銷售額窗體實現(xiàn)的代碼： Dim rs_check As New Private Sub cmdallem_Click() allem = True 39。 Call ShowGrade End Sub Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdquery_Click() allem = False 39。 Call ShowGrade End Sub Private Sub Form_Load() 39。讓窗體居中 Call MakeCenter(Me) = connStr allem = True Call ShowGrade End Sub Private Sub ShowGrade() If allem = False Then Dim strsql As String strsql = select 業(yè)務員編號 ,員工姓名 ,sum(總金額 ) as 銷售總金額 _ amp。 from sell,employee where 號 = _ amp。 and = amp。 _ amp。 group by 業(yè)務員編號 ,員工姓名 strsql, conn, adOpenKeyset, adLockPessimistic = adCmdText = strsql If = True Then MsgBox 此員工號不存在！ , vbOKOnly + vbInformation, 注意 Unload Me Exit Sub End If Else strsql = select 業(yè)務員編號 ,員工姓名 ,sum(總金額 ) _ amp。 as 銷售總金額 from sell,employee where _ amp。 = group by 業(yè)務員編號 ,員工姓名 河南理工大學數據庫課程設計 22 = adUseClient strsql, conn, adOpenKeyset, adLockPessimistic = adCmdText = strsql End If = False 39。不可增加 = False 39。不可刪除 = False End Sub 查詢現(xiàn)存貨物窗體 圖 9 查詢現(xiàn)存貨表子菜單 現(xiàn)存貨物窗體實現(xiàn)代碼： Private Sub cmdallgoods_Click() all = True 39。 Call QueryGoods End Sub Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdquery_Click() all = False strgname = strtype = 39。 Call QueryGoods End Sub Private Sub Form_Load() = connStr Dim X0 As Long Dim Y0 As Long 39。讓窗體居中 河南理工大學數據庫課程設計 23 Call MakeCenter(Me) End Sub Private Sub QueryGoods() Dim rs_check As New Dim strsql As String If all = False Then If strgname = Then strsql = select * from goods where 型號 like 39。 _ amp。 strtype amp。 %39。 ElseIf strtype = Then strsql = select * from goods where 商品名 like 39。 _ amp。 strgname amp。 %39。 Else strsql = select * from goods where 商品名 =39。 _ amp。 strgname amp。 39。and 型號 = 39。 amp。 strtype amp。 39。 End If Else strsql = select * from goods End If 39。strgname 和 strtype 變量是前面定義的公共變量，用來傳 遞查詢窗體中的商品名和型號 = strsql strsql, conn, adOpenKeyset, adLockPessimistic = strsql If = True Then MsgBox 此型號商品沒有進貨！ , vbOKOnly + vbInformation, 注意 Exit Sub End If 39。End If End Sub 登陸界面 圖 15 登陸界面 河南理工大學數據庫課程設計 24 登陸界面實現(xiàn)的代碼： Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdLogin_Click() 39。首先檢查用戶是否輸入了用戶名和密碼 If = Then MsgBox 請輸入用戶名！ , vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請輸入密碼！ , vbOKOnly + vbInformation, 注意 Exit Sub End If Dim rstUser As New Dim sql As String sql = select * from userdb where 用戶名 = 39。 amp。 amp。 39。 and _ amp。 密碼 = 39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 用戶名或密碼錯誤，無法登錄 , vbOKOnly + vbInformation, Exit Sub Else MsgBox 正確登錄 , vbOKOnly + vbExclamation, 39。打開窗體 = True = True = True = True = True = True = True Unload Me End If End Sub Private Sub Form_Load() Call MakeCenter(Me) End Sub 五、系統(tǒng)使用說明 本系統(tǒng)是 使用 Microsoft SQL Server 2021 作為后臺數據庫，編程工具是 Microsoft Visual 河南理工大學數據庫課程設計 25 Basic 中文版，完成銷售管理等功能。運行本程序是，應該首先配置本程序使用的數據庫，配置方法如下： 啟動 SQL Server 查詢分析器，在查詢命令窗口中輸入以下代碼，便可成功配置數據庫。 ==================================================== sp_Attach_db @dbName = N39。SellSystem39。, @FileName1 = N39。C: \ SellSystem \39。, @FileName2 = N39。C:\ SellSystem \ SellSystem 39。 ==================================================== 需要注意的是， @FileName1 = N39。C: \ SellSystem \39。用于指定數據庫文件夾路徑，當 路徑發(fā)生變化時，也要相應調整上述代碼。 數據庫成功配置后，運行本程序，在進入該主界面之前，會自動彈出動態(tài)鏈接數據庫的界面，如圖 17 所示，必須經過權限的檢驗才能使用該系統(tǒng) ，權限檢驗之后便可進行相關的操作來管理銷售信息。 用戶名為 yy，密碼為 yy。 六、總結 及致謝 本系統(tǒng)對于繁雜的的 銷售信息實現(xiàn)了數據規(guī)范化、自動化的電腦管理，從而能夠滿足管理規(guī)范、運作高效的要求。 通過以上的分析 可知此系統(tǒng)能夠 實現(xiàn)系統(tǒng)登錄、交易管理、進貨統(tǒng)計、銷售統(tǒng)計、業(yè)績查看、查看數據表等功能。 但是，系統(tǒng)中存在有一些不足之處，例如，在退貨登記方面不能很好的記錄信息，與維護方面也有欠缺。 總起來說，這次課程設計還是很成功的，自己在這個過程 中學到了很多知識，更重要的是獲取了更多的經驗，了解了數據庫設計和軟件開發(fā)的一般流程，為以后實際工作奠定了良好的基礎！ 回顧此次課程設計，其中波折與辛苦著實不少。從一開始的選課題，到最后能看到系統(tǒng)正確運行，個中滋味，唯有體會方能知曉。 原以為課程設計不會花費很多的時間，可是真正下手做，才感覺難題接二 連三。在創(chuàng)建數據庫方面，主要是每個表之間的聯(lián)系，這些如果不注意，幾乎難以把握其在功能模塊設計的完整與正確性。另外，在功能模塊設計其間，需要對編程環(huán)境有一定的認識，不一定說要非常熟練，對于基本的窗體設計還是要運籌帷幄的。當然，再使用 Visual Basic ，難在與數據庫的連接。對于這些問題，確確實實讓我收獲了不少，讓我對數據庫系統(tǒng)的開發(fā)有了更深層次的認識。 這 些 點點滴滴都給我留下了不可磨滅的印象，也為我以后的發(fā)展奠定了堅實的基礎。 此外，對于本系統(tǒng)的設計，不得不感謝劉老師與同學的耐心的授解，讓我在 設計其間撥云見日，減去了很多麻煩。當然，還應感謝能夠有這次機會親自設計一個系統(tǒng)并且正確的運行，這對我來說怎么能不激動呢！ 七、參考文獻 [1] 求是科技 . SQL Server 2021 數據庫開發(fā)技術與工程實踐 . 北京：人民郵電出版社， 2021 [2] 錢雪忠，羅海馳，陳國俊 . 數據庫原理及技術課程設計 . 北京：清華大學出版社， 2021 [3] 陳世洪 , 王曉海 , 廖建華 . SQL Server 2021管理、開發(fā)及應用實例詳解 . 北京：人民郵電出版社， 2021 [4] 劉韜 , 駱娟 , 何旭洪 . Visual Basic 數據庫系統(tǒng)開發(fā)實例導航 . 北京 :： 人民郵電出版社 ，2021 [5] 郭勝 ,夏邦貴等 . Visual Basic 數據庫開發(fā)入門與范例解析 . 北京 :： 機械工業(yè)出版社 ， 2021 [6] 趙文濤 . 數據庫系統(tǒng)原理 . 徐州：中國礦業(yè)大學出版社， 2021