軟件工程 課程設(shè)計 銷售管理系統(tǒng)

《軟件工程 課程設(shè)計 銷售管理系統(tǒng)》由會員分享，可在線閱讀，更多相關(guān)《軟件工程 課程設(shè)計 銷售管理系統(tǒng)（25頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、一.項目簡介 隨著計算機技術(shù)的迅猛發(fā)展，存在于網(wǎng)絡(luò)的企業(yè)銷售管理系統(tǒng)將逐步代替?zhèn)鹘y(tǒng)的管理模式進(jìn) 入企業(yè)。為了更高效得完成銷售方面的工作，也可以有更多的時間處理更多的別的事務(wù)，企 業(yè)也將擺脫原有的管理形勢完全進(jìn)入信息化管理。銷售管理系統(tǒng)在企業(yè)的管理過程中起著巨 大的作用 二.功能需求 一個銷售管理系統(tǒng)，設(shè)計者的目標(biāo)是滿足公司運營和日常管理的需要，具有對產(chǎn)品，客戶管 理的功能。客戶登錄銷售管理系統(tǒng)進(jìn)行售后服務(wù)查詢，銷售員可以對銷售的產(chǎn)品進(jìn)行登記 并將銷售情況反饋給數(shù)據(jù)庫。為管理的方便性和信息傳遞的快速性提供了一個很好的平臺 系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)售后服務(wù)及銷售登記自動化。總之，銷售管理系統(tǒng)

2、要實現(xiàn)登陸驗 證、商品銷售管理、商品銷售報表管理、客戶信息管理四大部分。 1. 客戶對功能的需求 1＞查看自己的信息，了解自己近期的購買情況。 2＞查看產(chǎn)品的信息，熟悉產(chǎn)品情況。 2＞查看售后服務(wù)信息。 2. 銷售人員對功能的需求 1＞查看自己的信息，了解自己近期的銷售情況。 2＞查看產(chǎn)品的信息，熟悉產(chǎn)品情況。 3＞登記銷售產(chǎn)品。 4＞添加新產(chǎn)品，并填寫產(chǎn)品相關(guān)信息。 3. 售后服務(wù)人員對功能的需求 1＞查看售后服務(wù)信息。 三加售分析模型時序圖 銷售管理系統(tǒng)頂層圖 銷售啾 -銷害統(tǒng)計報農(nóng) 銷售管理 系統(tǒng) 銷售部門 :人力、經(jīng)； 理 售后服等人

3、 ― U r tJ ?: 客廠 1 W -銷售信息- :

4、 客「信蟹后服務(wù) 1.客戶管理 第三層 DFD 圖 客戶管理子系統(tǒng) 客八 客八 審杳客戶 登陸信息 進(jìn)入銷售 管理系統(tǒng) 進(jìn)入售厲 服務(wù)管理 無效信息 銷售信息 客戶信息 ::■:: 客戶信息 _一客「信息有效 !:： ：: 客戶信息有效 ! i ! \ ! ： !…I “!M…I 售

5、后服務(wù)信息 : ； :::: : ? 2. 銷售管理 第三層DFD圖銷售管理子系統(tǒng) 銷售人員信息有效 新產(chǎn)品佶息 銷售人員倍息 進(jìn)入銷售管 理丟統(tǒng) 荀査銷售 人員登錄 .信息. 登記銷害信 息 登記產(chǎn)品信 息 產(chǎn)品信息 客戶信息 銷售信息 銷:人］ ::■:: 無效信息 」一L” 銷售單 ……/：... X 3. 售后服務(wù)管理 第三層 DFD 圖 售后服務(wù)管理子

6、系統(tǒng) 售拓服務(wù)信息 售后服務(wù)信息 登記售后 服務(wù)信息 進(jìn)入售療 服務(wù)管理 .系統(tǒng), 審查售后服 務(wù)人員登錄 、信息， 、析 售后服務(wù)人員信息 七….…i??…I……7………:………:... 售后服務(wù)人員佶息有效 售后服 務(wù)人員- 無效信息 4. 客戶登錄動態(tài)時序圖為 導(dǎo)審戶登錄信息 Lg 吁 CkiTi Raines sRu It? Dst Access 11血卿 3: Loginfslnng, string) 5i Ci ?ckLogin(stnngJ String) 7刖匱回瑩乗感功 ￡

7、 四. 模塊活動圖，登錄流程圖 1.注冊、登陸模塊 1＞模塊功能描述 該模塊主要實現(xiàn)對用戶能否進(jìn)入系統(tǒng)的確認(rèn)以及對進(jìn)入系統(tǒng)的用戶權(quán)限的設(shè)定；因為本系統(tǒng) 涉及到三類使用者，不可能每一類用戶都具有相同的操作權(quán)限，如前所說，必然會早成系統(tǒng) 的混亂和崩潰，嚴(yán)重影響其安全性和有效性。所以采取在通常的注冊，登錄模式下加上用戶 類型的選擇，非常簡潔地就完成了對用戶類型的區(qū)別及權(quán)限的劃分。 2＞在模塊的詳細(xì)設(shè)計后，便能得出實現(xiàn)該部分的具體流程，如圖 足杏F主冊 足 否 足否汨:冊功^力 主頁 冊 単工初主腳f再也 游各 淄加至u數(shù)他丿忙 用戶注冊模塊程序流程圖

8、 登錄模塊程序流程圖 活動圖為： o 輸入用戶 名，密碼進(jìn) 行查詢」 用戶打幵登 陸頁面4 選擇用戶信 息查詢項」 用戶登入系 統(tǒng)J 系統(tǒng)提示用 戶名無效」 2.客戶管理模塊 1＞模塊功能描述 顯示客戶的基本信息。 庫戶可以查看自己的等級和交易次數(shù)。 2＞在模塊的詳細(xì)設(shè)計后，便能得出實現(xiàn)該部分的具體流程，如圖3-8。

9、 是 川始 是沓怦理員一 隠加刪除成M 添加也除客廠信 恩 査石客戶信息 僧看恰偲成期 佯陸孔不 客戶管理模塊流程圖 活動圖為 3.銷售管理模塊 1 > 模塊功能描述 在這個模塊可以登記銷售記錄。并且在提交記錄時，更新數(shù)據(jù)庫： (1)更新客戶信息。如果是“老客戶”系統(tǒng)會按照客戶等級給出對應(yīng)的優(yōu)惠價 (2)更新產(chǎn)品信息。主要是更新該產(chǎn)品數(shù)量。 2>在模塊的詳細(xì)設(shè)計后，便能得出實現(xiàn)該部分的具體流程，如圖 輸入日期」 選擇查看商

10、品銷售記錄」 銷售人員登 錄系統(tǒng)」 進(jìn)行查詢」 日期無效」 五.數(shù)據(jù)庫設(shè)計 1.客戶信息表 字段 數(shù)據(jù)類型 是否是主鍵 是否為空 說明 khid Int 是 否 客戶編號 khname VarChar 否 否 客戶名稱 gyshjch VarChar 否 否 客戶簡稱 zhg VarChar 否 是 采購主管 zhugtel nChar 否 是 采購主管 聯(lián)系方式

11、 adr VarChar 否 是 客戶地址 khtel nchar 否 否 客戶電話 fax VarChar 否 是 傳真 bzh text 否 是 備注 商品進(jìn)貨表 字段 數(shù)據(jù)類型 是否是主鍵 是否為空 說明 jhbh int 是 否 進(jìn)貨編號 shpmch VarChar 否 否 商品名稱 shpshp Char 否 否 商品名稱首拼 ddw Char 否 否 大單位 xdw Char 否 是 小單位 jhchb numeric 否 否 進(jìn)貨成本 xsh

12、jg numeric 否 否 銷售價格 jhshul int 否 否 進(jìn)貨數(shù)量 gysh VarChar 否 是 供應(yīng)商 jhrq smalldatetime 否 否 進(jìn)貨日期 bzh VarChar 否 是 備注 3.商品銷售表 字段 數(shù)據(jù)類型 是否是主鍵 是否為空 說明 xshbh Int 是 否 銷售編號 shpmch VarChar 否 否 商品名稱 shpshp VarChar 否 否 商品名稱首 拼 xshjg Numeric 否 是 銷售價格 xshshl Int 否

13、 是 銷售數(shù)量 xshry VarChar 否 是 銷售人員 xshrq Smalldatet ime 否 否 銷售日期 kh VarChar 否 是 客戶簡稱 bzh text 否 1是 備注 六.運行界面與代碼 1.登陸窗口 Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub CmdOk_Click() If UserName.Text <> "" And PassWord.Text <> "" Then Set conn = New ADOD

14、B.Connection Set rs = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\人事.mdb;Persist Security Info二False" rs. Open "select * from usermanage where username='" & UserName. Text & "'", conn, 1, 1 If Not rs.EOF Then If rs("password") = PassWord.Text Th

15、en Main.Show Unload Me Else MsgBox "非法登錄，密碼錯誤！", vbOKOnly, "警告" End If Else MsgBox "非法登錄，找不到該用戶！", vbOKOnly, "警告" End If Else MsgBox "用戶名或密碼不能為空！", vbOKOnly, "提示" End If End Sub Private Sub PassWord_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call CmdOk_Click End If End Sub

16、 Private Sub UserName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call CmdOk_Click End If End Sub '2.主界面 Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 GoodsIn.Show Me.Enabled = False Case 1 Saler.Show Me.Enabled = False Case 2 SaleData.Show Me.Enabled = Fal

17、se Case 3 SaleTotal.Show Me.Enabled = False Case 4 UserM.Show Me.Enabled = False End Select End Sub '進(jìn)貨管理 Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 '第一條 Case 1 '上一條 If Not Adodc1.Recordset.BOF Then End If Case 2 '下一條 If Not Adodc1.Recordset.EOF Then End

18、 If Case 3 '最尾條 Case 4 '添加 For i = 0 To 7 GoodText(i).Enabled = True Next Cmd(6).Enabled = True Case 5 '修改 For i = 0 To 7 GoodText(i).Enabled = True Next Cmd(6).Enabled = True Case 6 '保存 For i = 0 To 7 GoodText(i).Enabled = False Next MsgBox " 更新記錄成功 !", vbOKOnly, " 提示 " Cmd(6

19、).Enabled = False Case 6 ' 刪除 If MsgBox("確定刪除當(dāng)前記錄，數(shù)據(jù)將不可恢復(fù)?", vbOKCancel,"提示 ") = vbOK Then End If End Select End Sub Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source二"& App.Path & "\人事.mdb;Persist Security Info二False" Adodc1.RecordSource = "s

20、elect * from save" For i = 0 To 6 Set GoodText(i).DataSource = Adodc1 GoodText(i).DataField = Adodc1.Recordset.Fields(i).Name Next Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub Private Sub Form_Unload(Cancel As Integer) Main.Enabled = True End Sub 銷售管理 Dim conn As ADODB.Connec

21、tion Dim rs As ADODB.Recordset Public id As String Public action As String Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 '第一條 If Not Adodc1.Recordset.BOF Then End If Case 1 '上一條 If Not Adodc1.Recordset.BOF Then End If Case 2 '下一條 If Not Adodc1.Recordset.EOF Then

22、 End If Case 3 '最尾條 If Not Adodc1.Recordset.EOF Then End If Case 4 '添加 action = "add" ManageSale.Show Me.Enabled = False Case 5 ' 修改 action = "modify" id = Adodc1.Recordset.Fields("id") ManageSale.Show Me.Enabled = False Case 7 ' 刪除 If MsgBox("確定刪除當(dāng)前記錄，數(shù)據(jù)將不可恢復(fù)?", vbOKCancel,"提示 ") =

23、 vbOK Then Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\人事.mdb;Persist Security Info二False" rs.Open "select goodcount from save where goodnum='" & GoodText(0).Text & "'", conn, 1, 3 rs("goodcount") = rs("go

24、odcount") + GoodText(5).Text rs.Update rs.Close End If End Select End Sub Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source二"& App.Path & "\人事.mdb;Persist Security Info二False" Adodc1.RecordSource = "select * from sale order by id" For i = 0 To

25、6 Set GoodText(i).DataSource = Adodc1 GoodText(i).DataField = Adodc1.Recordset.Fields(i + 1).Name Next Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub Private Sub Form_Unload(Cancel As Integer) Main.Enabled = True End Sub 添加修改銷售記錄 Dim conn As ADODB.Connection Dim rs As ADODB.Rec

26、ordset Public salecount As Long Private Sub Combo1_Change() End Sub Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\人事.mdb;Persist Security

27、 Info二False" If GoodText(0) = "" Or GoodText(3) = "" Or GoodText(4) = "" Then MsgBox "數(shù)據(jù)沒有輸入完整,請重新輸入!", vbOKOnly, "提示" Exit Sub End If If SaleData.action = "add" Then rs.Open "select * from sale", conn, 1, 3 rs.AddNew Else rs.Open "select * from sale where id=" & SaleData.id, conn, 1, 3 End

28、 If rs("Goodnum") = GNum.Text rs("goodname") = GoodText(1).Text rs("danwei") = GoodText(2).Text rs("outdate") = GoodText(3).Text rs("danjia") = GoodText(4).Text rs("outcount") = GoodText(0).Text rs("salename") = SaleName.Text rs.Update rs.Close rs. Open "select * from save where goodnum='"

29、 & GNum. Text & "'", conn, 1, 3 '在庫存表中將庫存數(shù)量減去已售出的數(shù)量 If SaleData.action = "add" Then rs("goodcount") = rs("goodcount") - GoodText(0).Text Else salecount) End If rs.Update rs.Close MsgBox " 數(shù)據(jù)更新成功 !", vbOKOnly, " 提示 " Unload Me Case 1 Unload Me End Select End Sub Private Sub Form_Load(

30、) Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source & "\ 人事 .mdb;Persist Security Info=False" Dim saleman As String If SaleData.action = "add" Then rs.Open "select goodnum from save order by goodnum", Do While Not rs.EOF GNu

31、m.AddItem rs(0) rs.MoveNext Loop GNum.Text = GNum.List(0) Else rs.Open "select * from sale where id=" & SaleData.id & App.Path conn, 1, 1 conn, 1, 1 GNum.AddItem rs("goodnum") GoodText(1).Text = rs("goodname") GoodText(2).Text = rs("danwei") GoodText(3).Text = rs("outdate") GoodText(4).

32、Text = rs("danjia") GoodText(0).Text = rs("outcount") saleman = rs("salename") GNum.Text = GNum.List(0) GNum.Enabled = False rs.Close rs.Open "select * from save where goodnum='" & GNum.Text & "'", conn, 1, 1 SaleNum.Max = GoodText(0).Text + rs("goodcount") salecount = GoodText(0).Text End

33、If rs.Close rs.Open "select salename from saler order by id", conn, 1, 1 Do While Not rs.EOF SaleName.AddItem rs(0) rs.MoveNext Loop If SaleData.action = "add" Then SaleName.Text = SaleName.List(0) Else SaleName.Text = saleman Cmd(0).Caption = " 保存修改 " End If rs.Close End Sub Private

34、Sub Form_Unload(Cancel As Integer) SaleData.Enabled = True End Sub Private Sub GNum_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ 人事 .mdb;Persist Security Info=False" rs.Open "select * from save where goodnum='" & GNum.Text & "'", conn, 1, 1 If Not rs.EOF Then GoodText(1).Text = rs("goodname") GoodText(2).Text = rs("danwei") SaleNum.Max = rs("goodcount") End If End Sub