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