【正文】 b 出庫查詢 _Click() 39。調(diào)入刪除用戶 Load shanchuyonghu = False End Sub Private Sub 數(shù)據(jù)備份 _Click() 39。 ② 用戶和密碼錯誤提醒病返回錯誤點。用戶名為空，提示信息 MsgBox 沒有輸入用戶名稱 ,請重新輸入 !, vbOKOnly + vbExclamation, 警告 Else select * from login where 用戶名 =39。 添加用戶模塊設計 1. 實現(xiàn)目標 程序啟動后，選擇“系統(tǒng)設置”菜單下的“用戶管理”下的“添加用戶”項，將進入添加用戶模塊。Data Source= amp。 修改用戶模塊設計 1. 實現(xiàn)目標 程序啟動后，選擇“系統(tǒng)設置”菜單下的“用戶管理”下的“修改用戶”項，將進入修改用戶模塊。 amp。 39。該模塊主要實現(xiàn)如下功能： ① 完成刪除用戶和密碼的設置。 amp。 amp。 39。 39。 刪除用戶界面如圖 。 amp。 amp。 ② 支持鼠標和鍵盤操作。 \ If = Then MsgBox 請 輸入用戶名稱 , vbOKOnly + vbExclamation, 警告 Else select * from login where 用戶名 =39。 ② 支持鼠標和鍵盤的操作。 amp。 系統(tǒng)登陸界面如圖 。調(diào)入數(shù)據(jù)恢復 Load shujuhuifu = False End Sub Private Sub 添加用戶 _Click() 39。調(diào)入初期建賬 Load chuqijianzhang = False End Sub Private Sub 供貨商 _Click() 39。公共函數(shù) If = 1 Then Set myform = jinhuodan If = 2 Then Set myform = chuhuodan If Then = 0 = Len() End If If + 1 = 1 Then = + 1 Else If + 1 = 1 Then = + 1 = 1 End If End If End Sub Public Sub moveleft() 39。在模糊查詢中我們用到了 Like語句進行模式匹配。添加入庫商品信息到 jinhuodan表中 If (i, 1) Then (產(chǎn)品名稱 ) = (i, 1) If (i, 2) Then (產(chǎn)品編號 ) = (i, 2) 產(chǎn)品進銷存管理系統(tǒng) 23 If (i, 3) Then (數(shù)量 ) = (i, 3) If (i, 4) Then (進價 ) = (i, 4) If (i, 5) Then (金額 ) = (i, 5) If (i, 6) Then (備注 ) = (i, 6) If Then (供貨商名稱 ) = If Then (經(jīng)手人 ) = If Then (進貨日期 ) = If Then (進貨單號 ) = 39。這里注意，再不知道循環(huán)內(nèi)需要值信多少次語句時，可以用 Do循環(huán)。在程序設計時，當批量錄入數(shù)據(jù)，此種方法就很有優(yōu)勢，在這個系統(tǒng)的進貨單和出貨單部分我都使用了產(chǎn)品進銷存管理系統(tǒng) 22 MSFlexGrid控件來實現(xiàn)。 如何實現(xiàn)權(quán)限設置 為了能達到 依不同的 用戶給與不同的運行權(quán)限 的目標，在這個系統(tǒng)中作了權(quán)限設置的模塊。數(shù)據(jù)恢復是指及時將數(shù)據(jù)庫返回到原來的狀態(tài)。 產(chǎn)品進銷存管理系統(tǒng) 19 表 表 kehu的結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 客戶名稱 文本 50 客戶編號 文本 25 負責人 文本 25 聯(lián)絡人 文本 25 地址 文本 50 電話 文本 25 傳真 文本 25 EMail 文本 50 郵編 文本 25 付款方式 文本 25 付款天數(shù) 文本 50 客戶類別 文本 10 建當日期 日期 /時間 備注 文本 100 6. 登陸 login 登陸 login用來保存用戶名 基于密碼，結(jié)構(gòu)見表 。 圖 167。 3. sql 結(jié)構(gòu)化查詢語言介紹： SQL 是英文 Structured Query Language 的縮寫，意思為結(jié)構(gòu)化查詢語言。 報表 (Report)—— 報表的功能是將數(shù)據(jù)庫中的數(shù)據(jù)分類匯總，然后打印出來，以便分析。 Access 數(shù)據(jù)庫以文件形式保存，文件的擴展名是 MDB。 如表 所示，項目由下列文件組成 ： 產(chǎn)品進銷存管理系統(tǒng) 14 表 文件類型 擴展名 項目文件 *.vbp 窗體文件 *.frm 模塊文件 *.bas 定制控件 *.ocx 類模塊 *.cls 資源文件 *.res 數(shù)據(jù)庫介紹： 數(shù)據(jù)庫是長期存儲在計算機內(nèi)、有組織的、可共享的數(shù)據(jù)集合，它不僅要反映數(shù)據(jù)本身的內(nèi)容，而且要反映數(shù)據(jù)之間的聯(lián)系。 控 件：控件是用戶操作對象的圖形表示，以便向應用程序提供信息。 方 法：對象中的過程。通常我們在設計時初始化窗體和控件的屬性，在運行時響應窗體和控件的事件修改它們的屬性或調(diào)用它們的方法。 Visual Basic 可以開發(fā)各類應用軟件，從開發(fā)個人或小組使用的小工具，到大型企業(yè)應用系統(tǒng)，甚至通過 Inter 的遍及全球的分布式應用程序，都 可在 Visual Basic 提供的工具中各取所需。 產(chǎn)品進銷存管理系統(tǒng)軟件的開發(fā) 1. 可行性研究與計劃 ① 技術(shù)可行性：我使用圖形化界面的軟件 Visual Basic作為開發(fā)工具，其功能強大，內(nèi)容豐富，提供了開發(fā) Windows應用程序最迅速、最簡捷的方法。 表 階 段 基本任務 計劃期 可行性研究與計劃 研究開發(fā)法項目的可行性 開發(fā)期 需求分析 理解和表達用戶的要求 設 計 建立系統(tǒng)的結(jié)構(gòu) 編 程 編寫程序 測 試 發(fā)現(xiàn)錯誤和排除 錯誤 運行期 運行與維護 維護 下面簡述各階段的工作情況： 可行性研究與計劃 需求分析 設 計 編 程 測 試 運 行與維護 產(chǎn)品進銷存管理系統(tǒng) 10 1. 可行性研究與計劃階段 搞清問題的性質(zhì)，確定系統(tǒng)的目標和規(guī)模，從技術(shù)、經(jīng)濟和社會因素等方面分析論證本軟件項目的可行性。特別是在產(chǎn)品的供銷方面，如果能應用計算機 等現(xiàn)代信息技術(shù)，將大大的提高企業(yè)運營管理的效率。商業(yè)的主要職能是將生產(chǎn)廠家制造的產(chǎn)品，快速準確地發(fā)送到各種需求用戶的手中，即銷售。 我國的大部分銷售行業(yè)雖然經(jīng)營實現(xiàn)了專業(yè)化，但是從信息機制上還沒有擺脫原有的模式，企業(yè)發(fā)展動力不足，從而影響了企業(yè)的持續(xù)、穩(wěn)定、快速發(fā)展。 首先，按照軟件開發(fā)的一般過程，通過自頂向下的分析方法，對系統(tǒng)進行分析，并創(chuàng)建系統(tǒng)業(yè)務流程圖。 最后，通過系統(tǒng)的測試，發(fā)現(xiàn)系統(tǒng)中存在的問題并逐漸完善系統(tǒng)并確立系統(tǒng)的開發(fā)環(huán)境，為更好的使用這套系統(tǒng)提供指導。 因此，如何利用計算機等現(xiàn)代信息技術(shù)使企業(yè)擁有快速高效的運營管理，已成為各企業(yè)尤為關注的問題。 產(chǎn)品進銷存管理系統(tǒng) 7 第一章 產(chǎn)品進銷存系統(tǒng)概述 167。 系統(tǒng)實現(xiàn)目標 1． 全面自動化管理，可隨時掌握產(chǎn)品的進貨、銷售、庫存等狀況 2． 能快速、準確的處理產(chǎn)品的進、銷、存等業(yè)務模式 3． 能依不同的用戶給與不同的運行權(quán)限 4． 系統(tǒng)界面友好美觀，操作簡單易行，查詢靈活方便，數(shù)據(jù)存儲安全可靠 5． 系統(tǒng)維護安全、方便、可靠，并且能夠滿足實用性、先進性的要求 167。 4. 編程階段 按模塊說明書的要求為每個模塊編寫程序。 ③ 社會可行性： 軟件使用后，可以使銷售行業(yè)的管理體制得到根本的改革，從而可以創(chuàng)造更多的利潤，是國民生產(chǎn)向著高水平、高效率的方向發(fā)展。甚至可直接使用 VBP 和 VBE 創(chuàng)建的應用程序和對象。在 Visual Basic 中，所有窗體和控件都是對象。 事 件：所謂事件，是由 Visual Basic 預先設置好的、能夠被對象識別的動作。如：計時器、 WinSocket 等。 Access2020 適用于小型商務活動，用以存貯和管理商務活動所需要的數(shù)據(jù)。表由記錄組成，記錄由字段組成，表用來存貯數(shù)據(jù)庫的數(shù)據(jù)，故又稱數(shù)據(jù)表。 模塊 (Module)—— 模塊的功能與宏類似，但它定義的操作比宏更精細和復雜，用戶可以根據(jù)自己的需要編寫程序 。 SQL 語言是非過程關系數(shù)據(jù)庫語言，按其功能可分為 4 大部分： （ 1） 數(shù)據(jù)定義語言（ Data Definition Language ,簡稱 DDL） ,用于定義、撤銷和修改數(shù)據(jù)模式； （ 2） 查詢語言（ Query Language ,簡稱 QL） ,用于查詢數(shù)據(jù)； （ 3） 數(shù)據(jù)操縱語言（ Data Manipulation Language ,簡稱DML），用于增、刪、改數(shù)據(jù)； （ 4） 數(shù)據(jù)控制語言（ Data Control Language ,簡稱 DCL），用于數(shù)據(jù)訪問權(quán)限的控制。 1. 出貨單 chuhuodan 出貨單 chuhuodan用來保存產(chǎn)品出庫的詳細情況，結(jié)構(gòu)見表。 如何實現(xiàn)數(shù)據(jù)備份與數(shù)據(jù)恢復 數(shù)據(jù)對一個單位是至關重要的。 表 FileCopy語句的參數(shù) 參 數(shù) 描 述 source 必要參數(shù)。當用戶登陸進入系統(tǒng)后，其用戶名將顯示在主界面的 StatusBar控件的第四個窗格內(nèi)，被激活的主界面窗體就可根據(jù)所顯示的用戶名在表 quanxianshezhi中查找相應的用戶權(quán)限，根據(jù)各個字段的值來設置菜單可否使用。由于在進貨單和出貨單部分都使用了 MSFlexGrid控件，故在窗體 amainform中可以使用公用函數(shù)來代替在多個程序中頻繁使用的代碼（如 entercell、 moveright、 moveleft、 movereturn），只需調(diào)用所需的函數(shù)即可。下面是以進貨單為例的保存入庫數(shù)據(jù)的一段代碼。這里還是利用循環(huán)語句。主程序界面主要實現(xiàn)如下功能： ① 選擇主界面的菜單或工具欄，調(diào)用相應程序，進行相應操作。 \ 39。調(diào)入客戶 Load kehu = False End Sub Private Sub 庫存賬查詢 _Click() 39。調(diào)入用戶權(quán)限設置 Load yonghuquanxianshezhi = False End Sub 167。Data Source= amp。用戶不存在，提示信息 MsgBox 沒有這個用戶 ,請重新輸入 !, vbOKOnly + vbExclamation, 警告 = = Else If Trim((1)) = Trim() Then Unload Me Else 產(chǎn)品進銷存管理系統(tǒng) 31 MsgBox 密碼不正確 ,請重新輸入 !, vbOKOnly + vbExclamation, 警告 39。 \ 39。 39。 \ 39。 If Trim() = Then MsgBox 請輸入用戶名稱 , vbOKOnly + vbExclamation, 警告 Else select * from login where 用戶名 =39。, , adOpenDynamic, adLockOptimistic (0).Value = (1).Value = (用戶名 ) = (密碼 ) = 39。Data Source= amp。