軟件工程-課程設(shè)計(jì)-銷(xiāo)售管理系統(tǒng)_第1頁(yè)
軟件工程-課程設(shè)計(jì)-銷(xiāo)售管理系統(tǒng)_第2頁(yè)
軟件工程-課程設(shè)計(jì)-銷(xiāo)售管理系統(tǒng)_第3頁(yè)
軟件工程-課程設(shè)計(jì)-銷(xiāo)售管理系統(tǒng)_第4頁(yè)
軟件工程-課程設(shè)計(jì)-銷(xiāo)售管理系統(tǒng)_第5頁(yè)
已閱讀5頁(yè),還剩8頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

銷(xiāo)售管理系統(tǒng).項(xiàng)目簡(jiǎn)介隨著計(jì)算機(jī)技術(shù)的迅猛發(fā)展,存在于網(wǎng)絡(luò)的企業(yè)銷(xiāo)售管理系統(tǒng)將逐步代替?zhèn)鹘y(tǒng)的管理模式進(jìn)入企業(yè)。為了更高效得完成銷(xiāo)售方面的工作,也可以有更多的時(shí)間處理更多的別的事務(wù),企業(yè)也將擺脫原有的管理形勢(shì)完全進(jìn)入信息化管理。銷(xiāo)售管理系統(tǒng)在企業(yè)的管理過(guò)程中起著巨一個(gè)銷(xiāo)售管理系統(tǒng),設(shè)計(jì)者的目標(biāo)是滿足公司運(yùn)營(yíng)和日常管理的需要,具有對(duì)產(chǎn)品,客戶管理的功能??蛻舻卿涗N(xiāo)售管理系統(tǒng)進(jìn)行售后服務(wù)查詢,銷(xiāo)售員可以對(duì)銷(xiāo)售的產(chǎn)品進(jìn)行登記,并將銷(xiāo)售情況反饋給數(shù)據(jù)庫(kù)。為管理的方便性和信息傳遞的快速性提供了一個(gè)很好的平臺(tái)。系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)售后服務(wù)及銷(xiāo)售登記自動(dòng)化??傊?,銷(xiāo)售管理系統(tǒng)要實(shí)現(xiàn)登陸驗(yàn)證、商品銷(xiāo)售管理、商品銷(xiāo)售報(bào)表管理、客戶信息管理四大部分.客戶對(duì)功能的需求1〉查看自己的信息,了解自己近期的購(gòu)買(mǎi)情況。2>查看產(chǎn)品的信息,熟悉產(chǎn)品情況。2>查看售后服務(wù)信息.2。銷(xiāo)售人員對(duì)功能的需求1〉查看自己的信息,了解自己近期的銷(xiāo)售情況。2〉查看產(chǎn)品的信息,熟悉產(chǎn)品情況.3〉登記銷(xiāo)售產(chǎn)品。4〉添加新產(chǎn)品,并填寫(xiě)產(chǎn)品相關(guān)信息。售后服務(wù)人員對(duì)功能的需求1>查看售后服務(wù)信息。2〉添加售后服務(wù)信息。 分析模型時(shí)序圖銷(xiāo)售管理系統(tǒng)頂層圖客戶管理第三層DFD圖客戶管理子系統(tǒng)銷(xiāo)售管理第三層DFD圖銷(xiāo)售管理子系統(tǒng)售后服務(wù)管理第三層DFD圖售后服務(wù)管理子系統(tǒng)4.客戶登錄動(dòng)態(tài)時(shí)序圖為四。 模塊活動(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)涉及到三類(lèi)使用者,不可能每一類(lèi)用戶都具有相同的操作權(quán)限,如前所說(shuō),必然會(huì)早成系統(tǒng)的混亂和崩潰,嚴(yán)重影響其安全性和有效性。所以采取在通常的注冊(cè),登錄模式下加上用戶類(lèi)型的選擇,非常簡(jiǎn)潔地就完成了對(duì)用戶類(lèi)型的區(qū)別及權(quán)限的劃分。2>在模塊的詳細(xì)設(shè)計(jì)后,便能得出實(shí)現(xiàn)該部分的具體流程,如圖用戶注冊(cè)模塊程序流程圖登錄模塊程序流程圖活動(dòng)圖為:2??蛻艄芾砟K1〉模塊功能描述顯示客戶的基本信息。庫(kù)戶可以查看自己的等級(jí)和交易次數(shù)。2>在模塊的詳細(xì)設(shè)計(jì)后,便能得出實(shí)現(xiàn)該部分的具體流程,如圖3-8??蛻艄芾砟K流程圖活動(dòng)圖為:銷(xiāo)售管理模塊1>模塊功能描述在這個(gè)模塊可以登記銷(xiāo)售記錄。并且在提交記錄時(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)該部分的具體流程,如圖銷(xiāo)售管理模塊流程圖活動(dòng)圖為數(shù)據(jù)庫(kù)設(shè)計(jì)客戶信息表2。商品進(jìn)貨表商品銷(xiāo)售表六。運(yù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"非法登錄,密碼錯(cuò)誤!",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銷(xiāo)售管理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=”P(pán)rovider二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添加修改銷(xiāo)售記錄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ù)沒(méi)有輸入完整,請(qǐng)重新輸入!”,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'在庫(kù)存表中將庫(kù)存數(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

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論