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

頁腳內(nèi) 職業(yè)生涯規(guī)劃書一.項目簡介企業(yè)也將擺脫原有的管理形勢完全進入信息化管理。銷售管理系統(tǒng)在企業(yè)的管理過程中起著巨大的作用二.功能需求陸驗證、商品銷售管理、商品銷售報表管理、客戶信息管理四大部分。1>查看自己的信息，了解自己近期的購買情況。息。1>查看自己的信息，了解自己近期的銷售情況。4>添加新產(chǎn)品，并填寫產(chǎn)品相關(guān)信息。2>添加售后服務(wù)信息。三.分析模型時序圖銷售管理系統(tǒng)頂層圖頁腳內(nèi)職業(yè)生涯規(guī)劃職業(yè)生涯規(guī)劃書職業(yè)生涯規(guī)劃職業(yè)生涯規(guī)劃書2.銷售管理3.售后服務(wù)管理職業(yè)生涯規(guī)劃職業(yè)生涯規(guī)劃書頁腳內(nèi)4.客戶登錄動態(tài)時序圖為頁腳內(nèi) 職業(yè)生涯規(guī)劃書四.模塊活動圖，登錄流程圖1>模塊功能描述用戶類型的選擇，非常簡潔地就完成了對用戶類型的區(qū)別及權(quán)限的劃分。2>在模塊的詳細設(shè)計后，便能得出實現(xiàn)該部分的具體流程，如圖頁腳內(nèi)職業(yè)生涯規(guī)劃職業(yè)生涯規(guī)劃書用戶注冊模塊程序流程圖職業(yè)生涯規(guī)劃職業(yè)生涯規(guī)劃書登錄模塊程序流程圖頁腳內(nèi)職業(yè)生涯規(guī)劃職業(yè)生涯規(guī)劃書頁腳內(nèi)職業(yè)生涯規(guī)劃書2.客戶管理模塊1>模塊功能描述2>在模塊的詳細設(shè)計后，便能得出實現(xiàn)該部分的具體流程，如圖3-8?？蛻艄芾砟K流程圖頁腳內(nèi)職業(yè)生涯規(guī)劃職業(yè)生涯規(guī)劃書頁腳內(nèi)職業(yè)生涯規(guī)劃書3.銷售管理模塊1>模塊功能描述在這個模塊可以登記銷售記錄。并且在提交記錄時，更新數(shù)據(jù)庫：(1)更新客戶信息。如果是“老客戶”系統(tǒng)會按照客戶等級給出對應(yīng)的優(yōu)惠價。該產(chǎn)品數(shù)量。2>在模塊的詳細設(shè)計后，便能得出實現(xiàn)該部分的具體流程，如圖銷售管理模塊流程圖活動圖為頁腳內(nèi)職業(yè)生涯規(guī)劃職業(yè)生涯規(guī)劃書五.數(shù)據(jù)庫設(shè)計1.客戶信息表頁腳內(nèi) 職業(yè)生涯規(guī)劃書是是否是主鍵是否否否否否否否否數(shù)據(jù)類型VarCharVarCharVarCharnCharVarCharncharVarChartext說明客戶編號客戶名稱客戶簡稱采購主管采購主管聯(lián)系方式客戶地址客戶電話傳真?zhèn)渥⒆侄蝛hidkhnamegyshjchzhugteladrkhtelaxbzh否否否是是是否是是是否為空2.商品進貨表harharhar是否否否否否否否否否否否否否否是否否否是否是頁腳內(nèi)職業(yè)生涯規(guī)劃書3.商品銷售表是是否是主鍵是否否否否否否否否數(shù)據(jù)類型VarCharVarCharNumericVarCharSmalldatetVarChartext說明銷售編號商品名稱商品名稱首拼銷售價格銷售數(shù)量銷售人員銷售日期客戶簡稱備注字段xshbhshpmchshpshpxshjgxshshlxshryxshrqkhbzh是是是否是是是否為空否否否六.運行界面與代碼1.登陸窗口DimconnAsADODB.ConnectionDimrsAsADODB.RecordsetPrivateSubCmdOk_Click()IfUserName.Text<>""AndPassWord.Text<>""ThenSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordset頁腳內(nèi) 職業(yè)生涯規(guī)劃書conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\人事.mdb;PersistSecurityInfo=False"rs.Open"select*fromusermanagewhereusername='"& 職業(yè)生涯規(guī)劃書`2.主界面PrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexCase0GoodsInShowMe.Enabled=FalseCase1owMe.Enabled=FalseCase2ataShowMe.Enabled=FalseCase3TotalShowMe.Enabled=FalseCase4UserM.ShowMe.Enabled=FalsedSelectndSub`進貨管理PrivateSubCmd_Click(IndexAsInteger)SelectCaseIndex頁腳內(nèi) 職業(yè)生涯規(guī)劃書Adodc1.Recordset.MoveFirstRecordsetBOFThenAdodc1.Recordset.MovePreviousEndIfCase一條RecordsetEOFThenAdodc1.Recordset.MoveNextEndIfAdodc1.Recordset.MoveLastAdodc1.Recordset.AddNewFori=0To7GoodText(i).Enabled=TrueextCmd(6).Enabled=TrueFori=0To7GoodText(i).Enabled=TrueextCmd(6).Enabled=True頁腳內(nèi) 職業(yè)生涯規(guī)劃書Adodc1.Recordset.UpdateFori=0To7GoodText(i).Enabled=FalseextMsgBox錄成功!",vbOKOnly,"提示"Cmd(6).Enabled=FalseIfMsgBox("確定刪除當(dāng)前記錄,數(shù)據(jù)將不可恢復(fù)?",vbOKCancel,"提示")=vbOKThenAdodc1.Recordset.DeleteEndIfEndSelectEndSubPrivateSubForm_Load()Source="&App.Path&"\人事.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromsave"Fori=0To6SetGoodText(i).DataSource=Adodc1GoodText(i).DataField=Adodc1.Recordset.Fields(i).NameNextAdodc1.RefreshSetDataGrid1.DataSource=Adodc1EndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=True頁腳內(nèi) 職業(yè)生涯規(guī)劃書ndSubDimconnAsADODB.ConnectionDimrsAsADODB.RecordsetPublicidAsStringPublicactionAsStringPrivateSubCmd_Click(IndexAsInteger)SelectCaseIndexRecordsetBOFThenAdodc1.Recordset.MoveFirstEndIfRecordsetBOFThenAdodc1.Recordset.MovePreviousEndIfCase一條RecordsetEOFThenAdodc1.Recordset.MoveNextEndIfRecordsetEOFThenAdodc1.Recordset.MoveLastEndIf頁腳內(nèi) 職業(yè)生涯規(guī)劃書actionadd"ManageSale.ShowMe.Enabled=FalseactionmodifyordsetFieldsidManageSale.ShowMe.Enabled=FalseIfMsgBox("確定刪除當(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='"& 職業(yè)生涯規(guī)劃書Source="&App.Path&"\人事.mdb;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromsaleorderbyid"Fori=0To6SetGoodText(i).DataSource=Adodc1GoodText(i).DataField=Adodc1.Recordset.Fields(i+1).NameextAdodc1.RefreshSetDataGrid1.DataSource=Adodc1ndSubPrivateSubForm_Unload(CancelAsInteger)Main.Enabled=TruendSubCase0頁腳內(nèi) 職業(yè)生涯規(guī)劃書Setrs=NewADODB.Recordsetconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\人事.mdb;PersistSecurityInfo=False"MsgBox新輸入!",vbOKOnly,"提示"ExitSubEndIfIfSaleData.action="add"Thenrs.Open"select*fromsale",conn,1,3rs.AddNewnEndIfconn在庫存表中將庫存數(shù)量減去已售出的數(shù)量fSaleDataactionaddThenrs("goodcount")=rs("goodcount")-GoodText(0).Textrs("goodcount")=rs("goodcount")-(GoodText(0).Text-頁腳內(nèi) 職業(yè)生涯規(guī)劃書EndIfteseMsgBox新成功!",vbOKOnly,"提示"SaleDataAdodcRefreshUnloadMeCase1UnloadMedSelectndSubPrivateSubForm_Load()Setconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\人事.mdb;PersistSecurityInfo=False"DimsalemanAsStringIfSaleData.action="add"Then1n1頁腳內(nèi) 職業(yè)生涯規(guī)劃書GNum.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")alenameGNum.Text=GNum.List(0)GNum.Enabled=Falseseconn,1,1SaleNum.Max=GoodText(0).Text+rs("goodcount")salecountGoodTextTextEndIflosers.Open"selectsa