【正文】 Y 退 出 數(shù)據(jù)備份流程圖 : 按貨物型號(hào) 按供應(yīng)商 輸入所查詢值 是否繼續(xù)查詢 退 出 Y N N 輸入所查詢關(guān)系 Y 顯示結(jié)果 N Y 開 始 選擇盤符 備 份？ Y Y N N 數(shù)據(jù)恢復(fù)流程圖 : 備 份 結(jié) 束 開 始 選擇盤符 恢 復(fù)？ 恢 復(fù) 結(jié) 束 Y Y N N 打印流程圖： 入庫(kù)信息修改流程圖： 開 始 打印預(yù)覽 頁(yè)面設(shè)置 是否打印 開始打印 結(jié) 束 N Y Y N N Y 入庫(kù)信息刪除流程圖： 開 始 是否修改 是否保存 繼續(xù)修改？ 結(jié)束 Y N 顯示結(jié)果 Y N 輸入內(nèi)容 N 開 始 顯示內(nèi)容 第三章 SIMS 功能分析 一 系統(tǒng)管理模塊功能分析 銷售管理系統(tǒng)（ SIMS）是專為中小企業(yè)研發(fā)的計(jì)算機(jī)自動(dòng)化管理軟件，該軟件充分發(fā)揮了計(jì)算機(jī)快捷、準(zhǔn)確、方便、高效率等特點(diǎn)，從而提高了貨物管理工作的效率，同時(shí)也為管理人員節(jié)省了大量的時(shí)間。并對(duì)整個(gè)銷售管理系統(tǒng)設(shè)置了安全性、保密性，使其進(jìn)一步規(guī)范化、科學(xué)化管理。 第一章 設(shè)計(jì)方案 一 開發(fā)背景 現(xiàn)代科學(xué)技術(shù)的飛速發(fā)展，改變了世界，也改變了人類的生活，作為新世紀(jì)的大學(xué)生，應(yīng)該站在時(shí)代發(fā)展的最前列，掌握現(xiàn)代科學(xué)技術(shù)知識(shí)，調(diào)整 自己的知識(shí)結(jié)構(gòu)和能力結(jié)構(gòu)，以適應(yīng)社會(huì)發(fā)展的要求。 本系統(tǒng)具有特點(diǎn)： 1. 通用性：適用于規(guī)模不同的企業(yè)。 本系統(tǒng)能為企業(yè)繁重的工作帶來(lái)極大的方便，提高了工作效率及工作準(zhǔn)確性，能準(zhǔn)確無(wú)誤地查找貨物的綜合信息，為企業(yè)減少了許多工作細(xì)節(jié)。銷售管理系統(tǒng)包括系統(tǒng)管理、備分、查詢、添加、打印輸出、修改等功能。 二、現(xiàn)有資源 1) 人員：軟件人員 4 人，要求接受過(guò)軟件工程的基礎(chǔ)訓(xùn)練，掌握 Microsoft Visual Studio 提供的 Visual 。 二 需求 分析 由于現(xiàn)代社會(huì)某些企業(yè)對(duì)貨物管理系統(tǒng)的許可認(rèn)定，越來(lái)越復(fù)雜，因此查找難度大，不便于管理，這樣給貨物管理帶來(lái)很大的難度，且費(fèi)時(shí)費(fèi)工，因此需要有一個(gè)功能強(qiáng)大的軟件，能夠?qū)ω浳锝y(tǒng)一合理的管理，而且目前市場(chǎng)上缺乏這件軟件。 3)經(jīng)濟(jì)可行性 一個(gè)實(shí)用性較強(qiáng)的系統(tǒng)，要求開發(fā)成本底，對(duì)計(jì)算機(jī)配置的要求也不是過(guò)高，使得系統(tǒng)工作在一個(gè)較為合適的環(huán)境中，本銷售管理系統(tǒng)正是基于這點(diǎn)開發(fā)出來(lái)的。同時(shí)，它為我們更好的管理數(shù)據(jù)庫(kù)提供了保證；在使用該系統(tǒng)后，讓我們真的可以做到“高枕是否刪除 顯示結(jié)果 繼續(xù)刪除？ 結(jié) 束 Y N Y N 無(wú)憂”。選中其 一，然后在文本框中選擇所要查詢的值，最后點(diǎn)擊“查找”按鈕，則在相對(duì)應(yīng)的位置中顯示出來(lái)，可用游動(dòng)條來(lái)進(jìn)行查看。 4 Data 控件：連接數(shù)據(jù)庫(kù)。如果正確系統(tǒng)提示密碼修改成功。備份可以防止因表和 SIMS 遭受破壞、介質(zhì)失效或用戶錯(cuò)誤而造成的數(shù)據(jù)災(zāi)難。定義 str = If Right(str, 1) \ Then str = str + \ End If = str amp。設(shè)置入庫(kù)日期 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub gys_Change() = True 39。text1 獲得焦點(diǎn) End If If KeyCode = vbKeyEscape Then 39。DBList1 可見 39。格式化金額 For i = 1 To 100 If (i, 1) Then (i, 9) = Format((i, 9), ) (, 10) = Val((, 9)) * Val((, 8)) (i, 10) = Format((i, 10), ) End If Next i End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) = 1 If KeyCode = vbKeyReturn Then = False If = 1 Then With If .RecordCount 0 Then 39。當(dāng) 為空時(shí) = False 39。 Format(lsph, 0000) End If Else = Date amp。查詢庫(kù)存商品信息 = SELECT * FROM KC For i = 1 To 100 If (i, 1) And (i, 8) Then 39。設(shè)置控件不可見 = False: = False: = True: = False End Sub Private Sub Comqx_Click() 39。 tmpsql1 = lsql = True End Sub Private Sub Form_Load() = amp。調(diào)用函數(shù) End If End Sub Private Sub Form_Load() = amp?；剀嚝@得焦點(diǎn) If KeyCode = vbKeyReturn And Index 16 Then gys(Index + 1).SetFocus If KeyCode = vbKeyReturn And Index = 9 Then = 1 If KeyCode = vbKeyReturn And Index = 16 Then End Sub Private Sub SSTab1_Click(PreviousTab As Integer) If 0 Then If = 2 And = False Then MsgBox (您正在處理數(shù)據(jù) ,請(qǐng)取消數(shù)據(jù)處理 ,在執(zhí)行本操作 !) = 0 Else End If End If End Sub Private Sub CmdMD_Click(Index As Integer) Select Case Index Case Is = 0 39。保存修改記錄 Dim A As String A = MsgBox(您確實(shí)要修改這條數(shù)據(jù)嗎 ?, vbYesNo) If A = vbYes Then For i = 0 To 16 If gys(i).Text Then (i) = gys(i).Text gys(i).Enabled = False Next i = False: = False: = True For i = 0 To 3 CmdMD(i).Enabled = True Next i = True: = True: End If End Sub Private Sub ComSaveM_Click() 39。第 9 行按升序排序 End Sub Private Sub Command2_Click() = True Unload Me End Sub 價(jià)格管理程序代碼： Public Sub eval() 39。計(jì)算庫(kù)存金額 Call eval 39。 amp。確認(rèn)修改操作員信息 = select * from ma where 操作員 = 39。 \, amp。用戶可以使用本軟件對(duì)商品的進(jìn)、銷、存紀(jì)錄進(jìn)行管 理，及時(shí)的掌握商品的進(jìn)、銷、存情況。 畢業(yè)設(shè)計(jì)是整個(gè)教學(xué)過(guò)程的最后環(huán)節(jié)，是學(xué)生綜合運(yùn)用所學(xué)知識(shí)解決實(shí)際問(wèn)題能力的考查。 下霸唱本人口滑筆快，編造杜撰出來(lái)的？ 其實(shí)我國(guó)養(yǎng)貓養(yǎng)狗的歷史長(zhǎng)而久矣，也曾遺留下來(lái)無(wú)數(shù)的養(yǎng)寵秘訣。 第六章 附 錄 開發(fā)小組人員分工一覽 表 日常業(yè)務(wù)登記模塊：蘇兆民 閆新民 庫(kù)存管理模塊： 霍憲斌 閆新民 查詢統(tǒng)計(jì)模塊： 李業(yè)森 霍憲斌 業(yè)務(wù)信息管理模塊：蘇兆民 李業(yè)森 打印報(bào)表模塊： 閆新民 蘇兆民 系統(tǒng)設(shè)置和幫助： 霍憲斌 李業(yè)森 參 考 文 獻(xiàn) 書 名 作者 出版社 VB 程序設(shè)計(jì)簡(jiǎn)明教程 龔沛曾 陸慰民 楊志強(qiáng) 高等教育出版社 VB 數(shù)據(jù)庫(kù)開發(fā) 入門與范例解析 郭 勝 夏邦貴 機(jī)械工業(yè)出版社 VB 程序設(shè)計(jì)教程 譚浩強(qiáng) 清華大 學(xué)出版社 VB 程序設(shè)計(jì)題典 劉圣才 李春葆 清華大學(xué)出版社 VB For Windows 語(yǔ)言參考詳解 周民光 王復(fù)康 北京航空航天大學(xué)出版社 結(jié) 束 語(yǔ) 通過(guò)使用 VB 編程，使人真正體會(huì)到了可視化編程的優(yōu)點(diǎn)，自己動(dòng)手開發(fā)小規(guī)模的應(yīng)用系統(tǒng)，學(xué)會(huì)一種規(guī)范化的編程方法，使我加深了對(duì)軟件的理解。 \ = 0 MsgBox 數(shù)據(jù)已恢復(fù)完畢。確認(rèn)數(shù)據(jù)備份 YesNo = MsgBox(準(zhǔn)備好了嗎？ , vbNo + vbQuestion) If YesNo = vbNo Then Exit Sub End If On Error GoTo errprompt = 11 MkDir ( amp。 \倉(cāng)庫(kù) .mdb 39。 amp。初始化查詢統(tǒng)計(jì)庫(kù)存商品信息 = select count(*)as 品種 ,sum(庫(kù)存 )as 合計(jì)庫(kù)存 ,sum(庫(kù)存金額 )as 合計(jì)庫(kù)存金額 from kc Call eval 39。自動(dòng)識(shí)別數(shù)據(jù)庫(kù)路徑 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub Command1_Click() 39。允許用戶添加新記錄 For i = 0 To 16 gys(i).Text = gys(i).Enabled = True Next i = True: = False: = True: = True For i = 0 To 3 CmdMD(i).Enabled = False Next i = False: = False: = False = 0: gys(0).SetFocus End Sub Private Sub ComModify_Click() 39。 like + Chr(34) + + * + Chr(34) + ) Call viewdata 39。 向 bo1 添加查詢項(xiàng)目列表 X = Array(供應(yīng)商編號(hào) , 供應(yīng)商全稱 , 簡(jiǎn)稱 , 地址 , 所屬地區(qū) , 郵政編碼 , 電話 , 傳真 ) For i = 0 To 7 (X(i)) Next i = 供應(yīng)商全稱 39。 39。更新 kc表中的 庫(kù)存 及 庫(kù)存金額 (庫(kù)存 ) = Val((i, 8)) + Val((庫(kù)存)) ( 庫(kù) 存 金 額 ) = Val(( 庫(kù)存 )) * Val((進(jìn)價(jià) )) End If End If Next i : 3