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

銷售管理系統(tǒng).項目簡介隨著計算機技術(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)品,客戶管理的功能?？蛻舻卿涗N售管理系統(tǒng)進(jìn)行售后服務(wù)查詢,銷售員可以對銷售的產(chǎn)品進(jìn)行登記,并將銷售情況反饋給數(shù)據(jù)庫。為管理的方便性和信息傳遞的快速性提供了一個很好的平臺。系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)售后服務(wù)及銷售登記自動化?？傊N售管理系統(tǒng)要實現(xiàn)登陸驗證、商品銷售管理、商品銷售報表管理、客戶信息管理四大部分.客戶對功能的需求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)信息。售后服務(wù)人員對功能的需求1＞查看售后服務(wù)信息。2〉添加售后服務(wù)信息。 分析模型時序圖銷售管理系統(tǒng)頂層圖客戶管理第三層DFD圖客戶管理子系統(tǒng)銷售管理第三層DFD圖銷售管理子系統(tǒng)售后服務(wù)管理第三層DFD圖售后服務(wù)管理子系統(tǒng)4.客戶登錄動態(tài)時序圖為四。 模塊活動圖，登錄流程圖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)該部分的具體流程，如圖用戶注冊模塊程序流程圖登錄模塊程序流程圖活動圖為：2?？蛻艄芾砟K1〉模塊功能描述顯示客戶的基本信息。庫戶可以查看自己的等級和交易次數(shù)。2＞在模塊的詳細(xì)設(shè)計后,便能得出實現(xiàn)該部分的具體流程，如圖3-8?？蛻艄芾砟K流程圖活動圖為：銷售管理模塊1＞模塊功能描述在這個模塊可以登記銷售記錄。并且在提交記錄時,更新數(shù)據(jù)庫：(1)更新客戶信息。如果是“老客戶”系統(tǒng)會按照客戶等級給出對應(yīng)的優(yōu)惠價。(2)更新產(chǎn)品信息。主要是更新該產(chǎn)品數(shù)量.2＞在模塊的詳細(xì)設(shè)計后，便能得出實現(xiàn)該部分的具體流程，如圖銷售管理模塊流程圖活動圖為數(shù)據(jù)庫設(shè)計客戶信息表2。商品進(jìn)貨表商品銷售表六。運行界面與代碼1。登陸窗口DimconnAsADODB。ConnectionDimrsAsADODB.RecordsetPrivateSubCmdOk_Click()IfUserName。Text〈〉 "“AndPassWord°Text?""ThenSetconn=NewADODB.ConnectionSetrs=NewADODB。Recordsetconn。Open"Provider二Microsoft.Jet。OLEDB.4.O；DataSource二"&App.Path&"\人事.mdb;PersistSecurityInfo二False"rs。Open"select*fromusermanagewhereusername二'" &UserName。Text&"'”，conn,1，1IfNotrs.EOFThenIfrs("password")=PassWord。TextThenMain.ShowUnloadMeElseMsgBox"非法登錄，密碼錯誤！",vbOKOnly，"警告"EndIfElseMsgBox"非法登錄，找不到該用戶！"，vbOKOnly，"警告"EndIfElseMsgBox"用戶名或密碼不能為空!"，vbOKOnly，"提示"EndIfEndSubPrivateSubPassWord_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallCmdOk_ClickEndIfEndSubPrivateSubUserName_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCallCmdOk_ClickEndIfEndSub'2.主界面PrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexCase0GoodsIn.ShowMe.Enabled=FalseCase1Saler.ShowMe.Enabled=FalseCase2SaleData.ShowMe。Enabled=FalseCase3SaleTotal。ShowMe。Enabled=FalseCase4UserM。ShowMe。Enabled=FalseEndSelectEndSub'進(jìn)貨管理PrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexCase0'第一條Adodcl.Recordset。MoveFirstCase1'上一條IfNotAdodcl。Recordset.BOFThenAdodcl。Recordset。MovePreviousEndIfCase2'下一條IfNotAdodcl。Recordset。EOFThenAdodcl。Recordset。MoveNextEndIfCase3'最尾條Adodcl。Recordset.MoveLastCase4'添加Adodc1.Recordset.AddNewFori=0To7GoodText(i)。Enabled=TrueNextCmd(6)。Enabled=TrueCase5'修改Fori=0To7GoodText(i)。Enabled=TrueNextCmd(6)。Enabled=TrueCase6'保存Adodcl。Recordset.UpdateFori=0To7GoodText(i).Enabled=FalseNextMsgBox"更新記錄成功！”,vbOKOnly,”提示"Cmd(6).Enabled=FalseCase6'刪除vbOKCancel，IfMsgBox("確定刪除當(dāng)前記錄，數(shù)據(jù)將不可恢復(fù)？”,提示")=vbOKThenvbOKCancel，Adodcl.Recordset。DeleteEndIfEndSelectEndSubPrivateSubForm_Load()Adodcl。ConnectionString="Provider二MicrosoftJet.OLEDB。4。0;DataSource二"&App。Path&”\人事。mdb;PersistSecurityInfo二False"Adodcl。RecordSource="select*fromsave"Fori=0To6SetGoodText(i).DataSource=Adodc1GoodText(i)。DataField=Adodcl。Recordset。Fields(i)。NameNextAdodc1.RefreshSetDataGridl。DataSource=AdodclEndSubPrivateSubForm_Unload(CancelAsInteger)Main。Enabled=TrueEndSub銷售管理DimconnAsADODB。ConnectionDimrsAsADODB.RecordsetPublicidAsStringPublicactionAsStringPrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexCase0'第一條IfNotAdodcl。Recordset。BOFThenAdodcl.Recordset.MoveFirstEndIfCasel'上一條IfNotAdodcl。Recordset。BOFThenAdodcl。Recordset。MovePreviousEndIfCase2'下一條IfNotAdodcl。Recordset.EOFThenAdodcl。Recordset。MoveNextEndIfCase3'最尾條IfNotAdodcl。Recordset.EOFThenAdodcl。Recordset.MoveLastEndIfCase4'添加action=”add”ManageSale。ShowMe。Enabled=FalseCase5'修改action=”modify"id=Adodcl。Recordset。Fields("id")ManageSale.ShowMe.Enabled=FalseCase7'刪除IfMsgBox("確定刪除當(dāng)前記錄，數(shù)據(jù)將不可恢復(fù)？"，vbOKCancel,"提示”)=vbOKThenSetconn=NewADODB。ConnectionSetrs=NewADODB.Recordsetconn.Open"Provider二Microsoft。Jet.OLEDB。4.0；DataSource二"&App。Path&"\人事。mdb;PersistSecurityInfo二False"rs.Open"selectgoodcountfromsavewheregoodnum='"&GoodText(0)。Text&"'",conn,1,3rs("goodcount")二rs("goodcount”)+GoodText(5)。Textrs。Updaters.CloseAdodcl.Recordset。DeleteEndIfEndSelectEndSubPrivateSubForm_Load（）Adodcl.ConnectionString=”Provider二Microsoft。Jet.0LEDB.4。0;DataSource二"&App。Path&"\人事。mdb;PersistSecurityInfo二False"Adodc1.RecordSource=”select*fromsaleorderbyid"Fori=0To6SetGoodText（i）.DataSource=Adodc1GoodText（i）.DataField=Adodc1。Recordset。Fields（i+1）.NameNextAdodcl。RefreshSetDataGridl。DataSource=AdodclEndSubPrivateSubForm_Unload（CancelAsInteger）Main.Enabled=TrueEndSub添加修改銷售記錄DimconnAsADODB。ConnectionDimrsAsADODB.RecordsetPublicsalecountAsLongPrivateSubCombol_Change（）EndSubPrivateSubCmd_Click（IndexAsInteger）SelectCaseIndexCase0Setconn=NewADODB.ConnectionSetrs=NewADODB。Recordset

App.Pathconn.Open"Provider二Microsoft。Jet。0LEDB.4。0;DataSource二"

&”\人事。mdb；PersistSecurityInfo二False"App.PathIfGoodText(0)=""OrGoodText(3)=""OrGoodText(4)="IfThenThenMsgBox"數(shù)據(jù)沒有輸入完整，請重新輸入！”,vbOKOnly,"提示”ExitSubEndIfIfSaleData.action="add"Thenconn，1，3rs.Open”select＊fromsale”,conn，1，3Else1，rs.Open"select*fromsalewhereid="&SaleData.id，conn,1，EndIfrs(”Goodnum”)=GNum。Textrs(”goodname")=GoodText(1)。Textrs("danwei”)GoodTextrs(”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(”salename")=SaleName.Textrs.Updaters。Closeconn,rs。Open"selectconn,rs。Open"select3'在庫存表中將庫存數(shù)量減去已售出的數(shù)量1，*fromsavewheregoodnum二'"&GNum。Text&"'",IfSaleDataoaction二”add"Thenrs("goodcount")=rs("goodcount")-GoodText(0).TextElsers("goodcount")=rs("goodcount")-(GoodText(0).Text—salecount)EndIfrs。Updaters。CloseMsgBox”數(shù)據(jù)更新成功!",vbOKOnly，"提示"SaleData.Adodcl。RefreshUnloadMeCase1UnloadMeEndSelectEndSubPrivateSubForm_Load()Setconn=NewADODB。ConnectionSetrs=NewADODB。Recordsetconn。Open"Provider二Microsoft。Jet。OLEDB°4°O；DataSource二"&App.Path&"\人事。mdb；PersistSecurityInfo二False"DimsalemanAsStringIfSaleData.action="add"ThenrSoOpen"selectgoodnumfromsaveorderbygoodnum",conn,1,1DoWhileNotrs.EOFGNum.AddItemrs(0)rs.MoveNextLoopGNum.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=GoodText(0)。Text+r