【正文】 , 6) If (i, 7) Then (單位 ) = (i, 7) If (i, 8) Then (庫存 ) = (i, 8) If (i, 9) Then (進價 ) = (i, 9) If (i, 10) Then (庫存金額 ) = (i, 10) 39。更新表 39。查詢庫存商品信息 = SELECT * FROM KC For i = 1 To 100 If (i, 1) And (i, 8) Then 39。 \倉庫 .mdb) 39。清空數(shù)據(jù) For i = 1 To 100 For j = 1 To 11 (i, j) = Next j Next i = 1: = 1 39。 0001 End If 39。 Format(lsph, 0000) End If Else = Date amp。創(chuàng)建入庫票號 If 0 Then If Not Then If (票號 ) Then lsph = Right(Trim((票號 )), 4) + 1 = Date amp。計算合計金額，合計數(shù)量 End Sub Private Sub Comdj_Click() 39。當記錄大于零時 = True 39。當 為空時 = False 39。賦值給 If = 1 Then 39。調(diào)用函數(shù) If KeyCode = vbKeyRight Then Call 39。賦值給 mf1 表格 If .Fields(商品名稱 ) Then (, 1) = .Fields(商品名稱 ) If .Fields(簡稱 ) Then (, 2) = .Fields(簡稱 ) If .Fields(批號 ) Then (, 3) = .Fields(批號 ) If .Fields(產(chǎn)地 ) Then (, 4) = .Fields(產(chǎn)地 ) If .Fields(規(guī)格 ) Then (, 5) = .Fields(規(guī)格 ) If .Fields(包裝 ) Then (, 6) = .Fields(包裝 ) If .Fields(單位 ) Then (, 7) = .Fields(單位 ) If .Fields(進價 ) Then (, 9) = .Fields(進價 ) = 7 End If End With End If Call 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。text1 可見 End If End Sub Private Sub mf1_entercell() = 1 Call 39。按向上鍵 gys 獲得焦點 End Sub Private Sub mf1_Click() If = 1 And ( 1, 8) Then 39。按回車鍵 = True = 1: = 1 39。DBList1 可見 39。DBList1 不可見 End If If KeyCode = vbKeyPageDown Then 39。按回車鍵 39。grid1 不可見 39。text1 獲得焦點 End If If KeyCode = vbKeyEscape Then 39。到達第 8 列 = False Else MsgBox (無數(shù)據(jù)選擇 !!!) = False 39。賦值給 mf1 表格 If .Fields(商品名稱 ) Then (, 1) = .Fields(商品名稱 ) If .Fields(簡稱 ) Then (, 2) = .Fields(簡稱 ) If .Fields(批號 ) Then (, 3) = .Fields(批號 ) If .Fields(產(chǎn)地 ) Then (, 4) = .Fields(產(chǎn)地 ) If .Fields(規(guī)格 ) Then (, 5) = .Fields(規(guī)格 ) If .Fields(包裝 ) Then (, 6) = .Fields(包裝 ) If .Fields(單位 ) Then (, 7) = .Fields(單位 ) If .Fields(進價 ) Then (, 9) = .Fields(進價 ) = 39。賦值給 = False End Sub Private Sub grid1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then 39。設置入庫日期 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub Private Sub gys_Change() = True 39。定義 mf1 表的固定行數(shù)、固定列數(shù) 39。定義 mf1 表的總行數(shù)、總列數(shù) 39。 \倉庫 .mdb = str amp。定義 str = If Right(str, 1) \ Then str = str + \ End If = str amp。定義一個整型變量 Private Sub Form_Load() 39。定義數(shù)據(jù)庫 Dim rs1 As Recordset 39。 第四章 程序清單及程序界面 日常業(yè)務登記程序代碼： Dim s, y, i 39。備份可以防止因表和 SIMS 遭受破壞、介質(zhì)失效或用戶錯誤而造成的數(shù)據(jù)災難。備份是恢復受損 SIMS 最容易，把意外損失降低到最小的保障方法。 該打印模塊中的各項都采用了簡單的界面，在使用上操作簡便，可用性強，用戶可根據(jù)條件自由的實現(xiàn)組合打印、瀏覽結(jié)果等操作，因此，大大提高了打印質(zhì)量和準確性。 四、打印功能 為了提高 SIMSR 透明度與清晰度，我們開發(fā)小組在該系統(tǒng)中加入了打印模塊。如果正確系統(tǒng)提示密碼修改成功。 最后，修改密碼。 2 修改密碼 如果遺忘密碼之后，必須借助于具有管理該系統(tǒng)軟件的內(nèi)部人員進行對密碼查詢修改，具體步驟如下： 首先，內(nèi)部人員打開該系統(tǒng)，輸入正確的密碼 其次，進入該系統(tǒng)的操作界面即顯示主菜單的情況下。 三 系統(tǒng)維護 1 進入到本模塊，可以對用戶進行瀏覽，添加和刪除。 4 Data 控件：連接數(shù)據(jù)庫。 3)、 Borderstyle：用來標簽的邊框，可以取值為 1，既標簽帶有邊框 。 通過 VISUAL BASIC 的窗體控件工具欄中，本模塊中用到的控件簡單的分為五類 ： 1：標簽、 DATA GRID 2：文本框、列表框、組合框 3：制類：命令按鈕、單選按鈕 4：器類： FRAME 5：接類： DATA 在以上控件中，每個控件含有多種屬性，其各控件屬如下： 1 標簽的值 ： 1)、 Alignment：將屬性設置為 0，即從標簽的左邊開始顯示標題。 貨物信息的添加與修改 通過本模塊可以對貨物進行添加、修改、刪除的操作，采用了VISUAL BASIC 內(nèi)嵌的 DATA 數(shù)據(jù)控件，是訪問數(shù)據(jù)庫的一種方便的工具，它能夠利用三種 Recordset 對象來訪問數(shù)據(jù)庫中的數(shù)據(jù)，數(shù)據(jù)控件提供有限的不需編程而能訪問現(xiàn)存數(shù)據(jù)庫的功能，允許將VISUAL BASIC 的窗體與數(shù)據(jù)庫方便地進行連接。選中其 一，然后在文本框中選擇所要查詢的值，最后點擊“查找”按鈕，則在相對應的位置中顯示出來，可用游動條來進行查看。 二 貨物信息管理 貨物信息管理模塊顧名思義就是對貨物信息進行管理，用它可以將手工管理變?yōu)橛嬎銠C自動管理的系統(tǒng)，充分發(fā)揮了計算機快捷、準確、方便、高效率等特點，現(xiàn)在貨物數(shù)量的不斷增加，貨物信息管理趨向了復雜化和多元化，越來越多的貨物信息均采用了計算機化的管理模式，查詢、添加、和修改等操作都使用了計算機的數(shù)據(jù)庫技術，比起以前使用帳本的方法有了很大的進步，提供了很大的方便，本次程序設計的目的是編 制一個對貨物信息添加、修改、查詢和打印等操作，為了使用戶進一步了解我們開發(fā)的銷售管理系統(tǒng)，現(xiàn)將各子模塊的功能介紹下： 查詢模塊 查詢模塊是銷售管理系統(tǒng)不可缺少的重要組成部分，它可以對要涉及到大部分工作，進行貨物相關數(shù)據(jù)信息的輸入，貨物因其他原因進行調(diào)整，所以在庫中的數(shù)據(jù)進行編輯之前，首先查詢、瀏覽一下，查看其中的內(nèi)容，顯示出用戶所需要的查詢結(jié)果。為了防止此類事件的發(fā)生在用戶進行系統(tǒng)操作時，都會出現(xiàn)信息提示框，提示 用戶是否繼續(xù)操作，因此在很大程度上避免錯誤的發(fā)生。如果說把 SIMS 比做說是保險庫的話，那么系統(tǒng)管理模塊就是這個保險庫的鑰匙。同時，它為我們更好的管理數(shù)據(jù)庫提供了保證；在使用該系統(tǒng)后，讓我們真的可以做到“高枕無憂”。 顯示內(nèi)容 是否刪除 顯示結(jié)果 繼續(xù)刪除？ 結(jié) 束 Y N Y N 系統(tǒng)管理是當今數(shù)據(jù)庫軟件的一個必不可少的組成部分。自 SIMS 研發(fā)成功以后，與以前各管理方法 相比，其功能有了質(zhì)的飛躍。開發(fā)次系統(tǒng)對計算機硬件和軟件配置都不需要特別的要求，且開發(fā)周期短，故在經(jīng)濟上可行。 3)經(jīng)濟可行性 一個實用性較強的系統(tǒng)，要求開發(fā)成本底，對計算機配置的要求也不是過高，使得系統(tǒng)工作在一個較為合適的環(huán)境中，本銷售管理系統(tǒng)正是基于這點開發(fā)出來的。 2)操作可行性 本系統(tǒng)將諸多功能盡可能在一個界面內(nèi)完成，以便于用戶操作。 三 可行性分析 一個完整的銷售管理系統(tǒng)即要有高度的可靠性又要有安全的可靠保密性，它即要求靈活簡便，操作要求簡單 易行，用戶界面要求簡單友好，同時又具有一定的美觀性，是用戶菜單方便，不繁瑣，便于查詢、統(tǒng)計和打印，使冗余的操作變的十分簡便，讓人操作起來能得心應手。它能完成任意標準的分類管理貨物的入庫、出庫、銷售、查看貨物等功能。 二 需求 分析 由于現(xiàn)代社會某些企業(yè)對貨物管理系統(tǒng)的許可認定，越來越復雜，因此查找難度大，不便于管理，這樣給貨物管理帶來很大的難度，且費時費工，因此需要有一個功能強大的軟件，能夠?qū)ω浳锝y(tǒng)一合理的管理，而且目前市場上缺乏這件軟件。因此為管理人員節(jié)省了大量的時間。新的世紀需要具有豐富的現(xiàn)代化科學技術知識；能夠獨立解決所面臨的任務；有活力、有創(chuàng)新意識的新型人才。 3) 操作系統(tǒng) Windows Me 4) 鼠標或其他定位設備。 二、現(xiàn)有資源 1) 人員：軟件人員 4 人，要求接受過軟件工程的基礎訓練，掌握 Microsoft Visual Studio 提供的 Visual 。 概 要 銷售管理系統(tǒng) (SIMS) 軟件設計步驟流程圖如下： 一、目的 本系統(tǒng)宗旨在用微機計算機對企業(yè)的貨物信息進行管理其內(nèi)容包括貨物的稱、型號、價格等信息管理。 2. 界面友好：提供給管理員良好的操作界面 3. 準確性：通過良好的用戶界面，可快準確地實現(xiàn)信息查詢 總之， SIMS 系統(tǒng)的設計開發(fā)，為管理人員提高了工作效率和工作質(zhì)量 ，由于時間倉促，本小組又是第一次嘗試大的軟件開發(fā)，經(jīng)驗欠缺，加之經(jīng)驗水平有限，系統(tǒng)可能不完善，敬請用戶批評指正。 本文既對面向?qū)ο蟮某绦蛟O計理念作了一定的闡述，同時 Visual 的窗口、項目管理器、窗體設計器、按鈕、數(shù)據(jù)表格、 ADO和 DATA 控件與數(shù)據(jù)庫的連接、標簽組合框、框架、文本框、菜單設計器以及系統(tǒng)的運行和使用等作了相關的介紹并插入了大量圖片加以說明。銷售管理系統(tǒng)包括系統(tǒng)管理、備分、查詢、添加、打印輸出、修改等功能。在面向?qū)ο蟪绦蛟O計方面，Visual 全面支持面向?qū)δ愠绦蛟O計包括數(shù)據(jù)抽象、封裝、對象與屬性、類與成員、繼承與多態(tài)。 為了使此系統(tǒng)簡單易學易用、功能強大、軟件費用支出低、見效快等特點， 我們選擇 Visual 開發(fā)此系統(tǒng)。目 錄 前言 概要 第一章