【正文】 urce=“ amp。修改 action = ”modify“ id = (”id“) = FalseCase 7 39。最尾條If Not Then End IfCase 4 39。上一條If Not Then End IfCase 2 39。Persist Security Info=False“ = ”select * from save“ For i = 0 To 6 Set GoodText(i).DataSource = Adodc1 GoodText(i).DataField = (i).Name Next Set = Adodc1 End SubPrivate Sub Form_Unload(Cancel As Integer) = True End Sub`銷售管理Dim conn As Dim rs As Public id As String Public action As String Private Sub Cmd_Click(Index As Integer)Select Case Index Case 0 39。 amp。刪除If MsgBox(”確定刪除當(dāng)前記錄,數(shù)據(jù)將不可恢復(fù)?“, vbOKCancel, ”提示“)= vbOK Then End If End Select End SubPrivate Sub Form_Load() = ”P(pán)rovider=。修改 For i = 0 To 7 GoodText(i).Enabled = True Next Cmd(6).Enabled = TrueCase 6 39。最尾條Case 4 39。上一條If Not Then End IfCase 2 39?！? conn, 1, 1 If Not Then If rs(”password“)= Then Unload Me Else MsgBox ”非法登錄，密碼錯(cuò)誤！“, vbOKOnly, ”警告“ End If Else MsgBox ”非法登錄，找不到該用戶！“, vbOKOnly, ”警告“ End If Else MsgBox ”用戶名或密碼不能為空！“, vbOKOnly, ”提示“ End If End SubPrivate Sub PassWord_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Call CmdOk_Click End If End SubPrivate Sub UserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Call CmdOk_Click End If End Sub`Private Sub Cmd_Click(Index As Integer)Select Case Index Case 0 = False Case 1 = False Case 2 = False Case 3 = False Case 4 = False End Select End Sub`進(jìn)貨管理Private Sub Cmd_Click(Index As Integer)Select Case Index Case 0 39。 amp。Persist Security Info=False“ ”select * from usermanage where username=39。 amp。2在模塊的詳細(xì)設(shè)計(jì)后，便能得出實(shí)現(xiàn)該部分的具體流程，如圖銷售管理模塊流程圖活動(dòng)圖為字段khidkhnamegyshjchzhgzhugteladrkhtelfaxbzh數(shù)據(jù)類型IntVarCharVarCharVarCharnCharVarCharncharVarChartext是否是主鍵是否否否否否否否否是否為空否否否是是是否是是說(shuō)明客戶編號(hào)客戶名稱客戶簡(jiǎn)稱采購(gòu)主管采購(gòu)主管聯(lián)系方式客戶地址客戶電話傳真?zhèn)渥⒆侄螖?shù)據(jù)類型intVarCharCharCharCharnumeriumericint是否是主鍵是否否否否否否否是否為空說(shuō)明進(jìn)貨編號(hào)商品名稱商品名稱首拼大單位小單位進(jìn)貨成本jhbhshpmchshpshpddwxdwjhchbxshjgjhshulgyshjhrqbzh否否否否是否否否銷售價(jià)格進(jìn)貨數(shù)量供應(yīng)商進(jìn)貨日期備注VarCharsmalldatetimeVarChar否否否是否是 字段xshbhshpmchshpshpxshjgxshshlxshryxshrqkhbzh數(shù)據(jù)類型IntVarCharVarCharNumericIntVarCharSmalldatetimeVarChartext是否是主鍵是否否否否否否否否是否為空否否否是是是否是是說(shuō)明銷售編號(hào)商品名稱商品名稱首拼銷售價(jià)格銷售數(shù)量銷售人員銷售日期客戶簡(jiǎn)稱備注Dim conn As Dim rs As Private Sub CmdOk_Click()If “ And ”“ Then Set conn = New Set rs = New ”P(pán)rovider=。(2)更新產(chǎn)品信息。并且在提交記錄時(shí)，更新數(shù)據(jù)庫(kù)：(1)更新客戶信息。2在模塊的詳細(xì)設(shè)計(jì)后，便能得出實(shí)現(xiàn)該部分的具體流程，如圖38。2在模塊的詳細(xì)設(shè)計(jì)后，便能得出實(shí)現(xiàn)該部分的具體流程，如圖用戶注冊(cè)模塊程序流程圖登錄模塊程序流程圖活動(dòng)圖為：1模塊功能描述顯示客戶的基本信息。銷售管理系統(tǒng)頂層圖第三層DFD圖 客戶管理子系統(tǒng)第三層DFD圖 銷售管理子系統(tǒng)第三層DFD圖 售后服務(wù)管理子系統(tǒng)，登錄流程圖、登陸模塊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)重影響其安全性和有效性。1查看售后服務(wù)信息。3登記銷售產(chǎn)品。1查看自己的信息，了解自己近期的銷售情況。2查看產(chǎn)品的信息，熟悉產(chǎn)品情況?？傊N售管理系統(tǒng)要實(shí)現(xiàn)登陸驗(yàn)證、商品銷售管理、商品銷售報(bào)表管理、客戶信息管理四大部分。為管理的方便性和信息傳遞的快速性提供了一個(gè)很好的平臺(tái)。銷售管理系統(tǒng)在企業(yè)的管理過(guò)程中起著巨大的作用一個(gè)銷售管理系統(tǒng)，設(shè)計(jì)者的目標(biāo)是滿足公司運(yùn)營(yíng)和日常管理的需要，具有對(duì)產(chǎn)品，客戶管理的功能。第一篇：軟件工程 課程設(shè)計(jì) 銷售管理系統(tǒng)隨著計(jì)算機(jī)技術(shù)的迅猛發(fā)展，存在于網(wǎng)絡(luò)的企業(yè)銷售管理系統(tǒng)將逐步代替?zhèn)鹘y(tǒng)的管理模式進(jìn)入企業(yè)。為了更高效得完成銷售方面的工作，也可以有更多的時(shí)間處理更多的別的事務(wù)，企業(yè)也將擺脫原有的管理形勢(shì)完全進(jìn)入信息化管理?？蛻舻卿涗N售管理系統(tǒng)進(jìn)行售后服務(wù)查詢，銷售員可以對(duì)銷售的產(chǎn)品進(jìn)行登記，并將銷售情況反饋給數(shù)據(jù)庫(kù)。系統(tǒng)開(kāi)發(fā)的總體任務(wù)是實(shí)現(xiàn)售后服務(wù)及銷售登記自動(dòng)化。1查看自己的信息，了解自己近期的購(gòu)買(mǎi)情況。2查看售后服務(wù)信息。2查看產(chǎn)品的信息，熟悉產(chǎn)品情況。4添加新產(chǎn)品，并填寫(xiě)產(chǎn)品相關(guān)信息。2添加售后服務(wù)信息。所以采取在通常的注冊(cè)，登錄模式下加上用戶類型的選擇，非常簡(jiǎn)潔地就完成了對(duì)用戶類型的區(qū)別及權(quán)限的劃分。庫(kù)戶可以查看自己的等級(jí)和交易次數(shù)。客戶管理模塊流程圖活動(dòng)圖為： 模塊功能描述在這個(gè)模塊可以登記銷售記錄。如果是“老客戶”系統(tǒng)會(huì)按照客戶等級(jí)給出對(duì)應(yīng)的優(yōu)惠價(jià)。主要是更新該產(chǎn)品數(shù)量。Data Source=“ amp。 ”?！?amp。 ”39。第一條Case 1 39。下一條If Not Then End IfCase 3 39。添加 For i = 0 To 7 GoodText(i).Enabled = True Next Cmd(6).Enabled = TrueCase 5 39。保存 For i = 0 To 7 GoodText(i).Enabled = False Next MsgBox ”更新記錄成功!“, vbOKOnly, ”提示“ Cmd(6).Enabled = FalseCase 6 39。Data Source=“ amp。 ”。第一條If Not Then End IfCase 1 39。下一條If Not Then End IfCase 3 39。添加 action = ”add“ = FalseCase 5 39。刪除If MsgBox(”確定刪除當(dāng)前記錄,數(shù)據(jù)將不可恢復(fù)?“, vbOKCancel, ”提示“)= vbOK Then Set conn = New Set rs = New ”P(pán)rovider=。 amp。Persist Security Info=False“ ”select goodcount from save where goodnum=39。 GoodText(0).Text amp?！? conn, 1, 3 rs(”goodcount“)= rs(”goodcount“)+ GoodText(5).Text End If End Select End SubPrivate Sub Form_Load() = ”P(pán)rovider=。 amp。Persist Security Info=False“ = ”select * from sale order by id“ For i = 0 To 6 Set GoodText(i).DataSource = Adodc1 GoodText(i).DataField = (i + 1).Name Next Set = Adodc1 End SubPrivate Sub Form_Unload(Cancel As Integer) = True End Sub添加修改銷售記錄Dim conn As Dim rs As Public salecount As LongPrivate Sub Combo1_Change()End SubPrivate Sub Cmd_Click(Index As Integer)Select Case Index Case 0 Set conn = New Set rs = New ”P(pán)rovider=。 amp。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 IfIf = ”add“ Then ”select * from sale“, conn, 1, 3 Else ”select * from sale where id=“ amp?！?amp。 ”39。在庫(kù)存表中將庫(kù)存數(shù)量減去已售出的數(shù)量 If = ”add“ Then rs(”goodcount“)= rs(”goodcount“)(GoodText(0).Textsalecount)End If MsgBox ”數(shù)據(jù)更新成功!“, vbOKOnly, ”提示“ Unload Me Case 1 Unload MeEnd Select End SubPrivate Sub Form_Load()Set conn = New Set rs = New ”P(pán)rovider=。 amp。Persist Security Info=False“ Dim saleman As StringIf = ”add“ Then ”select goodnum from save order by goodnum“, conn, 1, 1 Do While Not rs(0) Loop = (0)Else ”select * from sale where id=“ amp。“ amp。 ”39。Data Source=“ amp。 ”。“ amp。 ”39。鑒于此目的，編寫(xiě)了一個(gè)小型的個(gè)人賬本管理系統(tǒng)。對(duì)于業(yè)務(wù)較多的用戶來(lái)說(shuō)此系統(tǒng)就不是一個(gè)很好的選擇。l 修改模塊功能：對(duì)已有數(shù)據(jù)進(jìn)行修改更新操作對(duì)記錄進(jìn)行修改 對(duì)記錄刪除。性能需求因?yàn)橄到y(tǒng)本身較小，實(shí)際使用的人群的特點(diǎn)，響應(yīng)時(shí)間可能有不同的要求。必須充分考慮軟件的異常處理機(jī)制以及軟件的復(fù)用性，以增強(qiáng)軟件的健壯性。所開(kāi)發(fā)出來(lái)的軟件必須是可維護(hù)的，要有可以升級(jí)的空間，要預(yù)留接口，方便后面軟件的升級(jí)。l 第一次運(yùn)行的結(jié)果如圖所示l 收入l 支出l 查詢l 統(tǒng)計(jì)l 管理l 退出三、詳細(xì)設(shè)計(jì)進(jìn)行項(xiàng)目詳細(xì)設(shè)計(jì)工作；寫(xiě)出詳細(xì)設(shè)計(jì)說(shuō)明書(shū)。編碼分工：各個(gè)模塊核心代碼 查詢模塊：// CSelect 消息處理程序void CSelect::OnBnClickedOk(){ // TODO: 在此添加控件通知處理程序代碼UpdateData(true)。((),type)。((),kind)。CTime t = CTime::GetCurrentTime()。CString year,month,day。tmonth=()。if(date==“今天”){(_T(“%d”),tyear)。else(_T(“%d”),tmonth)。//確定查詢else(_T(“%d”),tday)。end=year+_T(“”)+month+_T(“”)+day。ADOConn m_AdoConn。CString sql。amp。”+kind+“39?！?start+“39。_RecordsetPtr m_pRecordset。()。(0,0,(_bstr_t)m_pRecordsetGetCollect(_T(”時(shí)間“)))。(0,2,(_bstr_t)m_pRecordsetGetColl