【正文】 數(shù)據(jù)備份流程圖 : 查詢方式 按貨物名稱 按貨物型號 按供應(yīng)商 輸入所查詢值 是否繼續(xù)查詢 退 出 Y N N 輸入所查詢關(guān)系 Y 顯示結(jié)果 N N Y Y 開 始 選擇盤符 Y N 數(shù)據(jù)恢復(fù)流程圖 : 備 份？ 備 份 結(jié) 束 Y N 開 始 選擇盤符 恢 復(fù)？ 恢 復(fù) 結(jié) 束 Y Y N N 打印流程圖： 開 始 打印預(yù)覽 頁面設(shè)置 是否打印 開始打印 結(jié) 束 N Y Y N N Y 入庫信息修改流程圖： 入庫信息刪除流程圖： 開 始 是否修 改 是否保存 繼續(xù)修改？ 結(jié)束 Y N 顯示結(jié)果 Y N 輸入內(nèi)容 N 開 始 第三章 SIMS 功能分析 一 系統(tǒng)管理模塊功能分析 銷售管理系統(tǒng)（ SIMS）是專為中小企業(yè)研發(fā)的計算機(jī)自動化管理軟件，該軟件充分發(fā)揮了計算機(jī)快捷、準(zhǔn)確、方便、高效率等特點(diǎn)，從而提高了貨物管理工作的效率，同時也為管理人員節(jié)省了大量的時間。并對整個銷售管理系統(tǒng)設(shè)置了安全性、保密性，使其進(jìn)一步規(guī)范化、科學(xué)化管理。 第一章 設(shè)計方案 一 開發(fā)背景 現(xiàn)代科學(xué)技術(shù)的飛速發(fā)展，改變了世界，也改變了人類的生活，作為新世紀(jì)的大學(xué)生，應(yīng)該站在時代發(fā)展的最前列，掌握現(xiàn)代科學(xué)技術(shù)知識，調(diào)整 自己的知識結(jié)構(gòu)和能力結(jié)構(gòu)，以適應(yīng)社會發(fā)展的要求。 本系統(tǒng)具有特點(diǎn)： 1. 通用性：適用于規(guī)模不同的企業(yè)。 本系統(tǒng)能為企業(yè)繁重的工作帶來極大的方便，提高了工作效率及工作準(zhǔn)確性，能準(zhǔn)確無誤地查找貨物的綜合信息，為企業(yè)減少了許多工作細(xì)節(jié)。銷售管理系統(tǒng)包括系統(tǒng)管理、備分、查詢、添加、打印輸出、修改等功能。 二、現(xiàn)有資源 1) 人員：軟件人員 4 人，要求接受過軟件工程的基礎(chǔ)訓(xùn)練，掌握 Microsoft Visual Studio 提供的 Visual 。 二 需求 分析 由于現(xiàn)代社會某些企業(yè)對貨物管理系統(tǒng)的許可認(rèn)定，越來越復(fù)雜，因此查找難度大，不便于管理，這樣給貨物管理帶來很大的難度，且費(fèi)時費(fèi)工，因此需要有一個功能強(qiáng)大的軟件，能夠?qū)ω浳锝y(tǒng)一合理的管理，而且目前市場上缺乏這件軟件。 3)經(jīng)濟(jì)可行性 一個實(shí)用性較強(qiáng)的系統(tǒng)，要求開發(fā)成本底，對計算機(jī)配置的要求也不是過高，使得系統(tǒng)工作在一個較為合適的環(huán)境中，本銷售管理系統(tǒng)正是基于這點(diǎn)開發(fā)出來的。同時，它為我們更好的管理數(shù)據(jù)庫提供了保證；在使用該系統(tǒng)后，讓我們真的可以做到“高枕無憂”。選中其 一，然后在文本框中選擇所要查詢的值，最后點(diǎn)擊“查找”按鈕，則在相對應(yīng)的位置中顯示出來，可用游動條來進(jìn)行查看。 4 Data 控件：連接數(shù)據(jù)庫。如果正確系統(tǒng)提示密碼修改成功。備份可以防止因表和 SIMS 遭受破壞、介質(zhì)失效或用戶錯誤而造成的數(shù)據(jù)災(zāi)難。定義 str = If Right(str, 1) \ Then str = str + \ End If = str amp。設(shè)置入庫日期 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) 為空時 = False 39。 Format(lsph, 0000) End If Else = Date amp。查詢庫存商品信息 = 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ù) ,請取消數(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 價格管理程序代碼： Public Sub eval() 39。計算庫存金額 Call eval 39。 amp。確認(rèn)修改操作員信息 = select * from ma where 操作員 = 39。 \, amp。用戶可以使用本軟件對商品的進(jìn)、銷、存紀(jì)錄進(jìn)行管 理，及時的掌握商品的進(jìn)、銷、存情況。 畢業(yè)設(shè)計是整個教學(xué)過程的最后環(huán)節(jié)，是學(xué)生綜合運(yùn)用所學(xué)知識解 決實(shí)際問題能力的考查。 t was not until midafternoon that the inspector ambled up on hi。 第六章 附 錄 開發(fā)小組人員分工一覽表 日常業(yè)務(wù)登記模塊：蘇兆民 閆新民 庫存管理模塊： 霍憲斌 閆新民 查詢統(tǒng)計模塊： 李業(yè)森 霍憲斌 業(yè)務(wù)信息管理模塊：蘇兆民 李業(yè)森 打印報表模塊： 閆新民 蘇兆民 系統(tǒng)設(shè)置和幫助： 霍憲斌 李業(yè)森 參 考 文 獻(xiàn) 書 名 作者 出版社 VB 程序設(shè)計簡明教程 龔沛曾 陸慰民 楊志強(qiáng) 高等教育出版社 VB 數(shù)據(jù)庫開發(fā) 入門與范例解析 郭 勝 夏邦貴 機(jī)械工業(yè)出版社 VB 程序設(shè)計教程 譚浩強(qiáng) 清華大學(xué)出版社 VB 程序設(shè)計題典 劉圣才 李春葆 清華大學(xué)出版社 VB For Windows 語言參考詳解 周民光 王復(fù)康 北京航空航天大學(xué)出版社 結(jié) 束 語 通過使用 VB 編程，使人真正體會到了可視化編程的優(yōu)點(diǎn)，自己動手開發(fā)小規(guī)模的應(yīng)用系統(tǒng)，學(xué)會一種規(guī)范化的編程方法，使我加深了對軟件的理解。 \ = 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。 \倉庫 .mdb 39。 amp。初始化查詢統(tǒng)計庫存 商品信息 = select count(*)as 品種 ,sum(庫存 )as 合計庫存 ,sum(庫存金額 )as 合計庫存金額 from kc Call eval 39。自動識別數(shù)據(jù)庫路徑 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)商編號 , 供應(yīng)商全稱 , 簡稱 , 地址 , 所屬地區(qū) , 郵政編碼 , 電話 , 傳真 ) For i = 0 To 7 (X(i)) Next i = 供應(yīng)商全稱 39。 39。更新 kc表中的 庫存 及 庫存金額 (庫存 ) = Val((i, 8)) + Val((庫存 )) (庫存金額 ) = Val((庫存 )) * Val((進(jìn)價 )) End If End If Next i : 39。 \倉庫 .mdb) 39。創(chuàng)建入庫票號 If 0 Then If Not