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

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

2、總之，銷售管理系統(tǒng)要實現(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ù)信息。2添加售后服務(wù)信息。三. 分析模型時序圖銷售管理系統(tǒng)頂層圖1.客戶管理第三層DFD圖 客戶管理子系統(tǒng)2.銷售管理第三層DFD圖 銷售管理子系統(tǒng)3.售后服務(wù)管理第三層DFD圖 售后服務(wù)管理子系統(tǒng)4.客戶登

3、錄動態(tài)時序圖為四. 模塊活動圖，登錄流程圖1.注冊、登陸模塊1模塊功能描述該模塊主要實現(xiàn)對用戶能否進入系統(tǒng)的確認以及對進入系統(tǒng)的用戶權(quán)限的設(shè)定；因為本系統(tǒng)涉及到三類使用者，不可能每一類用戶都具有相同的操作權(quán)限，如前所說，必然會早成系統(tǒng)的混亂和崩潰，嚴重影響其安全性和有效性。所以采取在通常的注冊，登錄模式下加上用戶類型的選擇，非常簡潔地就完成了對用戶類型的區(qū)別及權(quán)限的劃分。2在模塊的詳細設(shè)計后，便能得出實現(xiàn)該部分的具體流程，如圖用戶注冊模塊程序流程圖登錄模塊程序流程圖活動圖為：2.客戶管理模塊1模塊功能描述顯示客戶的基本信息。 庫戶可以查看自己的等級和交易次數(shù)。2在模塊的詳細設(shè)計后，便能得出實現(xiàn)

4、該部分的具體流程，如圖3-8?？蛻艄芾砟K流程圖活動圖為：3.銷售管理模塊1模塊功能描述在這個模塊可以登記銷售記錄。并且在提交記錄時，更新數(shù)據(jù)庫：(1)更新客戶信息。如果是“老客戶”系統(tǒng)會按照客戶等級給出對應(yīng)的優(yōu)惠價。(2)更新產(chǎn)品信息。主要是更新該產(chǎn)品數(shù)量。2在模塊的詳細設(shè)計后，便能得出實現(xiàn)該部分的具體流程，如圖銷售管理模塊流程圖活動圖為五.數(shù)據(jù)庫設(shè)計1.客戶信息表 2.商品進貨表 3.商品銷售表六.運行界面與代碼1.登陸窗口Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPrivate Sub CmdOk_Click() If Us

5、erName.Text And PassWord.Text 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 * from usermanage where username= & UserName.Text & , conn, 1, 1 If Not rs.EOF Then I

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

7、Private Sub UserName_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call CmdOk_Click End IfEnd 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 = False Case 3 SaleTotal.

8、Show Me.Enabled = False Case 4 UserM.Show Me.Enabled = False End SelectEnd Sub進貨管理Private Sub Cmd_Click(Index As Integer) Select Case Index Case 0 第一條 Adodc1.Recordset.MoveFirst Case 1 上一條 If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MovePrevious End If Case 2 下一條 If Not Adodc1.Recordset.EOF Th

9、en Adodc1.Recordset.MoveNext End If Case 3 最尾條 Adodc1.Recordset.MoveLast Case 4 添加 Adodc1.Recordset.AddNew 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 保存 Adodc1.Recordset.Update For i = 0 T

10、o 7 GoodText(i).Enabled = False Next MsgBox 更新記錄成功!, vbOKOnly, 提示 Cmd(6).Enabled = False Case 6 刪除 If MsgBox(確定刪除當前記錄,數(shù)據(jù)將不可恢復(fù)?, vbOKCancel, 提示) = vbOK Then Adodc1.Recordset.Delete End If End SelectEnd SubPrivate Sub Form_Load() Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=

11、& App.Path & 人事.mdb;Persist Security Info=False Adodc1.RecordSource = select * 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 = Adodc1End SubPrivate Sub Form_Unload(Cancel As Integer) M

12、ain.Enabled = TrueEnd Sub銷售管理Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPublic id As StringPublic action As StringPrivate Sub Cmd_Click(Index As Integer) Select Case Index Case 0 第一條 If Not Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End If Case 1 上一條 If Not Adodc1.Recordset.BOF T

13、hen Adodc1.Recordset.MovePrevious End If Case 2 下一條 If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveNext End If Case 3 最尾條 If Not Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If Case 4 添加 action = add ManageSale.Show Me.Enabled = False Case 5 修改 action = modify id = Adodc1.Recordset

14、.Fields(id) ManageSale.Show Me.Enabled = False Case 7 刪除 If MsgBox(確定刪除當前記錄,數(shù)據(jù)將不可恢復(fù)?, vbOKCancel, 提示) = 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 goodco

15、unt from save where goodnum= & GoodText(0).Text & , conn, 1, 3 rs(goodcount) = rs(goodcount) + GoodText(5).Text rs.Update rs.Close Adodc1.Recordset.Delete End If End SelectEnd SubPrivate Sub Form_Load() Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 人事.mdb;Persi

16、st Security Info=False Adodc1.RecordSource = select * from sale order by id For i = 0 To 6 Set GoodText(i).DataSource = Adodc1 GoodText(i).DataField = Adodc1.Recordset.Fields(i + 1).Name Next Adodc1.Refresh Set DataGrid1.DataSource = Adodc1End SubPrivate Sub Form_Unload(Cancel As Integer) Main.Enabl

17、ed = TrueEnd Sub添加修改銷售記錄Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPublic salecount As LongPrivate Sub Combo1_Change()End SubPrivate 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.

18、4.0;Data Source= & App.Path & 人事.mdb;Persist Security 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= & Sal

19、eData.id, conn, 1, 3 End 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= & G

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

21、SelectEnd SubPrivate Sub Form_Load() 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 Dim saleman As String If SaleData.action = add Then rs.Open select goodnum from save order by good

22、num, conn, 1, 1 Do While Not rs.EOF GNum.AddItem rs(0) rs.MoveNext Loop GNum.Text = GNum.List(0) Else rs.Open select * from sale where id= & SaleData.id, conn, 1, 1 GNum.AddItem rs(goodnum) GoodText(1).Text = rs(goodname) GoodText(2).Text = rs(danwei) GoodText(3).Text = rs(outdate) GoodText(4).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) sal