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

.. .. ..銷售管理系統(tǒng)一.項目簡介隨著計算機(jī)技術(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)是滿足公司運(yùn)營和日常管理的需要 ，具有對產(chǎn)品，客戶管理的功能。客戶登錄銷售管理系統(tǒng)進(jìn)行售后服務(wù)查詢 ，銷售員可以對銷售的產(chǎn)品進(jìn)行登記，并將銷售情況反饋給數(shù)據(jù)庫 。為管理的方便性和信息傳遞的快速性提供了一個很好的平臺。系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)售后服務(wù)及銷售登記自動化 ?？傊?，銷售管理系統(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)信息 。專業(yè).專注 ... .. ..3.售后服務(wù)人員對功能的需求1>查看售后服務(wù)信息 。2>添加售后服務(wù)信息 。三.分析模型時序圖銷售管理系統(tǒng)頂層圖1.客戶管理第三層DFD圖 客戶管理子系統(tǒng)專業(yè).專注 ... .. ..2.銷售管理專業(yè).專注 ... .. ..第三層DFD圖銷售管理子系統(tǒng)3.售后服務(wù)管理第三層DFD圖售后服務(wù)管理子系統(tǒng)專業(yè).專注 ... .. ..4.客戶登錄動態(tài)時序圖為專業(yè).專注 ... .. ..四.模塊活動圖，登錄流程圖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)該部分的具體流程，如圖專業(yè).專注 ... .. ..用戶注冊模塊程序流程圖專業(yè).專注 ... .. ..登錄模塊程序流程圖活動圖為：專業(yè).專注 ... .. ..專業(yè).專注 ... .. ..2.客戶管理模塊1>模塊功能描述顯示客戶的基本信息 。庫戶可以查看自己的等級和交易次數(shù) 。2>在模塊的詳細(xì)設(shè)計后 ，便能得出實現(xiàn)該部分的具體流程 ，如圖3-8?？蛻艄芾砟K流程圖活動圖為：專業(yè).專注 ... .. ..專業(yè).專注 ... .. ..3.銷售管理模塊1>模塊功能描述在這個模塊可以登記銷售記錄 。并且在提交記錄時 ，更新數(shù)據(jù)庫：(1)更新客戶信息。如果是“老客戶”系統(tǒng)會按照客戶等級給出對應(yīng)的優(yōu)惠價 。更新產(chǎn)品信息。主要是更新該產(chǎn)品數(shù)量。2>在模塊的詳細(xì)設(shè)計后 ，便能得出實現(xiàn)該部分的具體流程 ，如圖專業(yè).專注 ... .. ..銷售管理模塊流程圖活動圖為專業(yè).專注 ... .. ..五.數(shù)據(jù)庫設(shè)計客戶信息表專業(yè).專注 ... .. ..字段數(shù)據(jù)類型是否是主鍵khidInt是khnameVarChar否gyshjchVarChar否zhgVarChar否zhugtelnChar否adrVarChar否khtelnchar否faxVarChar否bzhtext否商品進(jìn)貨表字段數(shù)據(jù)類型是否是主鍵jhbhint是shpmchVarChar否shpshpChar否ddwChar否xdwChar否jhchbnumeric否xshjgnumeric否jhshulint否gyshVarChar否jhrqsmalldatetime否bzhVarChar否

是否為空否否否是是是否是是是否為空否否否否是否否否是否是

說明客戶編號客戶名稱客戶簡稱采購主管采購主管聯(lián)系方式客戶地址客戶電話傳真?zhèn)渥⒄f明進(jìn)貨編號商品名稱商品名稱首拼大單位小單位進(jìn)貨成本銷售價格進(jìn)貨數(shù)量供應(yīng)商進(jìn)貨日期備注專業(yè).專注 ... ..商品銷售表字段數(shù)據(jù)類型是否是主鍵xshbhInt是shpmchVarChar否shpshpVarChar否xshjgNumeric否xshshlInt否xshryVarChar否xshrqSmalldatet否imekhVarChar否bzhtext否六.運(yùn)行界面與代碼登陸窗口DimconnAsADODB.ConnectionDimrsAsADODB.RecordsetPrivateSubCmdOk_Click()

..是否為空說明否銷售編號否商品名稱商品名稱首否拼是銷售價格是銷售數(shù)量是銷售人員否銷售日期是客戶簡稱是備注專業(yè).專注 ... .. ..IfUserName.Text<>""AndPassWord.Text<>""ThenSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open Source=" &人事.mdb;PersistSecurityInfo=False"rs.Open "select * from usermanage where username='" &UserName.Text&"'",conn,1,1IfNotrs.EOFThenIfrs("password")=PassWord.TextThenMain.ShowUnloadMeElseMsgBox"非法登錄，密碼錯誤！",vbOKOnly,"警告"EndIfElseMsgBox"非法登錄，找不到該用戶！",vbOKOnly,"警告"EndIfElseMsgBox"用戶名或密碼不能為空 ！",vbOKOnly,"提示"EndIfEndSubPrivateSubPassWord_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallCmdOk_Click專業(yè).專注 ... .. ..EndIfEndSubPrivateSubUserName_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallCmdOk_ClickEndIfEndSub`2.主界面PrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexCase0GoodsIn.ShowMe.Enabled=FalseCase1Saler.ShowMe.Enabled=FalseCase2SaleData.ShowMe.Enabled=FalseCase3專業(yè).專注 ... .. ..SaleTotal.ShowMe.Enabled=FalseCase4UserM.ShowMe.Enabled=FalseEndSelectEndSub`進(jìn)貨管理PrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexCase0'第一條Case1'上一條EndIfCase2'下一條專業(yè).專注 ... .. ..EndIfCase3'最尾條Case4'添加Fori=0To7GoodText(i).Enabled=TrueNextCmd(6).Enabled=TrueCase5'修改Fori=0To7GoodText(i).Enabled=TrueNextCmd(6).Enabled=TrueCase6'保存Fori=0To7GoodText(i).Enabled=FalseNext專業(yè).專注 ... .. ..MsgBox"更新記錄成功!",vbOKOnly,"提示"Cmd(6).Enabled=FalseCase6'刪除IfMsgBox("確定刪除當(dāng)前記錄,數(shù)據(jù)將不可恢復(fù)?",vbOKCancel,"提示")=vbOKThenEndIfEndSelectEndSubPrivateSubForm_Load()Adodc1.ConnectionString 人事.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromsave"Fori=0To6SetGoodText(i).DataSource=Adodc1NextAdodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubForm_Unload(CancelAsInteger)專業(yè).專注 ... .. ..Main.Enabled=TrueEndSub`銷售管理DimconnAsADODB.ConnectionDimrsAsADODB.RecordsetPublicidAsStringPublicactionAsStringPrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexCase0'第一條EndIfCase1'上一條EndIfCase2'下一條專業(yè).專注 ... .. ..EndIfCase3'最尾條EndIfCase4'添加action="add"ManageSale.ShowMe.Enabled=FalseCase5'修改action="modify"ManageSale.ShowMe.Enabled=FalseCase7'刪除IfMsgBox("確定刪除當(dāng)前記錄,數(shù)據(jù)將不可恢復(fù)?",vbOKCancel,"提示")=vbOKThenSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open Source=" &人事.mdb;PersistSecurityInfo=False"專業(yè).專注 ... .. ..rs.Open"selectgoodcountfromsavewheregoodnum='"&GoodText(0).Text&"'",conn,1,3rs("goodcount")=rs("goodcount")+GoodText(5).Textrs.Updaters.CloseEndIfEndSelectEndSubPrivateSubForm_Load()Adodc1.ConnectionString 人事.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromsaleorderbyid"Fori=0To6SetGoodText(i).DataSource=Adodc1NextAdodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=True專業(yè).專注 ... .. ..EndSub添加修改銷售記錄DimconnAsADODB.ConnectionDimrsAsADODB.RecordsetPublicsalecountAsLongPrivateSubCombo1_Change()EndSubPrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexCase0Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open Source=" &人事.mdb;PersistSecurityInfo=False"IfGoodText(0)=""OrGoodText(3)=""OrGoodText(4)=""ThenMsgBox"數(shù)據(jù)沒有輸入完整,請重新輸入!",vbOKOnly,"提示"ExitSubEndIf專業(yè).專注 ... .. ..IfSaleData.action="add"Thenrs.Open"select*fromsale",conn,1,3rs.AddNewElsers.Open"select*fromsalewhereid="&SaleData.id,conn,1,3EndIfrs("Goodnum")=GNum.Textrs("goodname")=GoodText(1).Textrs("danwei")=GoodText(2).Textrs("outdate")=GoodText(3).Textrs("danjia")=GoodText(4).Textrs("outcount")=GoodText(0).Textrs("salename")=SaleName.Textrs.Updaters.Closers.Open"select*fromsavewheregoodnum='"&GNum.Text&"'",conn,1,3'在庫存表中將庫存數(shù)量減去已售出的數(shù)量IfSaleData.action="add"Thenrs("goodcount")=rs("goodcount")-GoodText(0).TextElsers("goodcount")=rs("goodcount")-(GoodText(0).Text-salecount)EndIf專業(yè).專注 ... .. ..rs.Updaters.CloseMsgBox"數(shù)據(jù)更新成功!",vbOKOnly,"提示"UnloadMeCase1UnloadMeEndSelectEndSubPrivateSubForm_Load()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open人事.mdb;PersistSecurityInfo=False"DimsalemanAsStringIfSaleData.action="add"Thenrs.Open"selectgoodnumfromsaveorderbygoodnum",conn,1,1DoWhileNotrs.EOFGNum.AddItemrs(0)rs.MoveNextLoop專業(yè).專注 ... .. ..GNum.Text=GNum.List(0)Elsers.Open"select*fromsalewhereid="&SaleData.id,conn,1,1GNum.AddItemrs("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=Falsers.Closers.Open"select*fromsavewheregoodnum='"&GNum.Text&"'",conn,1,1SaleNum.Max=