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

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

2、陸驗(yàn)證、商品銷售管理、商品銷售報(bào)表管理、客戶信息管理四大部分。1.客戶對(duì)功能的需求1查看自己的信息，了解自己近期的購(gòu)買情況。2查看產(chǎn)品的信息，熟悉產(chǎn)品情況。2查看售后服務(wù)信息。2.銷售人員對(duì)功能的需求1查看自己的信息，了解自己近期的銷售情況。2查看產(chǎn)品的信息，熟悉產(chǎn)品情況。3登記銷售產(chǎn)品。4添加新產(chǎn)品，并填寫(xiě)產(chǎn)品相關(guān)信息。3.售后服務(wù)人員對(duì)功能的需求1查看售后服務(wù)信息。2添加售后服務(wù)信息。三. 分析模型時(shí)序圖銷售管理系統(tǒng)頂層圖1.客戶管理第三層DFD圖 客戶管理子系統(tǒng)2.銷售管理第三層DFD圖 銷售管理子系統(tǒng)3.售后服務(wù)管理第三層DFD圖 售后服務(wù)管理子系統(tǒng)4.客戶登錄動(dòng)態(tài)時(shí)序圖為四. 模塊活

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

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

5、nd 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 If rs(password

6、) = PassWord.Text Then Main.Show Unload Me Else MsgBox 非法登錄，密碼錯(cuò)誤！, 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 SubPrivate Sub U

7、serName_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.Show Me.Enabl

8、ed = False Case 4 UserM.Show Me.Enabled = False End SelectEnd Sub進(jìn)貨管理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 Then Adodc1.Rec

9、ordset.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 To 7 GoodText(

10、i).Enabled = False Next MsgBox 更新記錄成功!, vbOKOnly, 提示 Cmd(6).Enabled = False Case 6 刪除 If MsgBox(確定刪除當(dāng)前記錄,數(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= & App.Path &

11、人事.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) Main.Enabled =

12、 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 Then Adodc1.Re

13、cordset.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.Fields(id) M

14、anageSale.Show Me.Enabled = False Case 7 刪除 If MsgBox(確定刪除當(dāng)前記錄,數(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 goodcount from save

15、 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;Persist Security I

16、nfo=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.Enabled = TrueEnd

17、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.4.0;Data Sour

18、ce= & App.Path & 人事.mdb;Persist Security Info=False If GoodText(0) = Or GoodText(3) = Or GoodText(4) = Then MsgBox 數(shù)據(jù)沒(méi)有輸入完整,請(qǐng)重新輸入!, 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, con

19、n, 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= & GNum.Text & ,

20、conn, 1, 3 在庫(kù)存表中將庫(kù)存數(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 SelectEnd Sub

21、Private 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 goodnum, conn, 1,

22、 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(goodcoun