1、2014 級高級語言程序設計探 探 探 探 探石家莊鐵道大學四方學院集中實踐報告課題名稱電腦銷售管理系統系、土木工程系專業班級 指導教師2015年6 月25日、設計任務及要求:設計任務：電腦銷售管理系統 要 求：電腦銷售的工作人員可以登錄系統，工作人員包括系統的管理員和銷 售員，兩者可以分別進行自己的權限內的管理，管理員可以進行進貨管理和庫存管 理；而銷售員可以進行銷售管理二、指導教師評語:三、成績指導教師簽名:電腦銷售管理系統的開發1 選題的意義制作該系統的原因是改變傳統的電腦交易模式，消除以往供應商與顧客之間的交易不明 情況，幫助顧客更快、更準確的根據自己的需要來找到所需電腦，以提高工作準

2、確度和工作 效率。在該系統制作的過程中我運用了所學的數據庫的創建和連接、函數過程、控件數組、條 件語句（If語句、Select Case語句）、循環語句等數據結構和知識點。2 系統功能需求分析2.1 系統概述 本系統包括用戶登錄、供應商信息管理、電腦信息管理、以及供應商與顧客之間的交易 管理等功能。用戶可以根據自己的需要方便快捷的選擇自己所需要的電腦。2.2 系統的組成及各模塊的功能 電腦銷售管理系統的組成主要包括以下幾點功能： 用戶登錄功能： 進貨管理功能： 銷售管理功能： 庫存管理功能：.沒有權限的用戶不能使用該軟件。用戶可以及時了解進貨情況。用戶可以及時了解銷售情況。用戶可

3、以及時查看庫存，以此實現交易順利進行。5.6.人員信息管理功能：用戶可以根據自己的需要的人員信息。 銷售員管理功能：銷售員可以對銷售情況進行管理，并可對庫存進行查詢。2.3 系統的運行環境1. 系統使用環境操作系統： Windows 2000/XP系統支持： Visual basic 6.0 及以上版本支持庫 數據庫： Access硬件環境： 硬盤：剩余使用空間1GB以上內存： 32MB 以上顯卡： SVGA 顯示適配器2. 系統開發環境操作系統： Windows 2000/XP系統支持： Visual basic 6.03系統設計3.1總體結構設計管理（銷售）員登陸界面管理系統銷售系統電腦銷

4、售查詢人員信息管理人員信息查詢庫存查詢庫存管理銷售管理進貨管理電腦銷售查詢進電腦查詢進電腦錄入圖1總體模塊圖3.2數據庫實現表1人員信息表字段號類型寬度備注人員編號數字255姓名文本255性別文本255年齡數字255出生日期日期255籍貫文本255職位文本255表2電腦信息表字段名類型寬度備注產品名稱文本255型號文本255內存文本255屏幕尺寸數字255操作系統文本255品牌文本255數量數字255表3進電腦信息表字段名類型寬度備注電腦名稱文本255進入日期日期255單價貨幣255臺數文本255表4電腦銷售表字段名類型寬度備注電腦名稱文本255出售日期日期255數目數字255臺數數字2554

5、系統實現4.1登錄模塊的設計與實現口 FomnS歡迎使用系統:登陸員:矍陸網:圖里登陸圖2登陸模塊程序代碼:Private Sub Comma nd1_Click()If Text1.Text = 20145321 And Text2.Text = 11111 ThenMsgBox 您已成功登入！ , vbOKOnly + vbInformation ,登陸成功” 銷售系統-ShowMe.HideElseMsgBox 賬號或密碼錯誤請從新輸入 ”Text1.Text =Text2.Text =Text1.SetFocusEnd IfEnd Sub4.2其他（銷售員登陸）模塊的設計與實現1.銷售

6、員登陸界面*0 FofmlGZil衛311 亙崔售昔理 吏苣理（卽 退atc）圖3銷售模塊Private Sub FDF_Click()EndEnd SubPrivate Sub fghj_Click() 庫存查詢.Show銷售系統.HideEnd SubPrivate Sub hjh_Click（）電腦銷售查詢.Show銷售系統.HideEnd SubPrivate Sub sfddf_Click（）電腦銷售錄入.Show銷售系統.HideEnd Sub(1) .電腦銷售錄入模塊K1iK4AdoJc5山電腦名稱出售日期咸交悄出售退出圖4銷售錄入模塊Private Sub Comma nd2_

7、Click（）電腦銷售錄入.Hide 銷售系統.ShowEnd SubPrivate Sub Comma nd4_Click（）Dim f%, n% f = Text3.Text n = Adodc5.Recordset.Fields（” 數量 ”）.ValueAdodc2.Recordset.AddNewAdodc2.Recordset.Fields（電腦名稱）=Text1.TextAdodc2.Recordset.Fields（出售日期）=Text2.TextAdodc2.Recordset.Fields（數量）=Text3.TextAdodc2.Recordset.Fields（成交價）

8、=Text4.TextAdodc2.Recordset.U pdateAdodc5.Recordset.Fields(” 數量 ”).Value = Str(Val(Adodc5.Recordset.Fields(” 數量 ”).Value) - f)Adodc5.Recordset.U pdateMsgBox 購買成功！ , vbExclamation + vbOKOniyEnd SubPrivate Sub Form_Load()Text1.Text = dnmcText2.Text = DateAdodc5.C onn ecti on Stri ngP rovider=Microsoft

9、.ACE.OLEDB.12.0;DataSource=Database2.accdb; PersistSecurity In fo=FalseAdodc5.Comma ndType = adCmdTableAdodc5.RecordSource =電腦庫存”Adodc5.RefreshEnd Sub(2) .電腦銷售查詢模塊圖5銷售查詢模塊Private Sub Comma nd1_Click()Adodc1.Comma ndType = adCmdTextAdodd.RecordSource = select*from電腦銷售 where 電腦名稱=& Text1.Text & ”Adodd

10、.RefreshText2.Text = Adodc1.Recordset.Fields(出售日期)Text3.Text = Adodc1.Recordset.Fields(數目)Text4.Text = Adodc1.Recordset.Fields (成交價)End SubPrivate Sub Comma nd2_Click()電腦銷售查詢.Hide電腦銷售系統.ShowEnd Sub（3）.庫存查詢模塊圖6庫存查詢模塊Private Sub Comma nd1_Click()dnmc = Adodc5.Recordset.Fields(” 電腦名稱)電腦銷售錄入.ShowEnd Sub

11、Private Sub Comma nd2_Click() 庫存查詢.Hide電腦銷售系統.ShowEnd Sub5設計體會5.1總結VB小學期的課程如期完成，感覺很欣慰，雖然遇到過很多問題，但在自己的努力以及老師 和同學的幫助下都一一化解了，而且我覺得自己通過這次課程設計學到了很多東西，以前只 知道學習課本上的固定原理和知識，很少用于自己實踐，而這次課程設計完全將自己在書本 上學到的東西實踐操作出來。說實話開始感覺很迷茫，好像什么都不會，可是后來慢慢適應 了，也知道如何操作了，也就一如既往的堅持了下來。不過付出就會有回報，所以我獲得的 遠比我想象的多，這是慢慢積累的過程。5.2存在的主要問題

12、在本程序的創建過程中，我遇到的最大的問題就是所需要代碼的繁雜，需要一遍遍不厭其煩的翻書去看。還有就是在數據庫的建立和連接。再有就是在程序設計好之后，經常出問 題，只能再改。參考文獻1孫春來，韓正清等 . Visual basic 6.0 中文版編程基礎與范例 ，電子工業出版社， 出版日期： 2001-1-1.2知寒工作室 .中文 Visual basic 6 簡明案例教程機械工業出版社，出版日期：1999-4-13徐健平，趙永.Visual basic基礎教程機械工業出版社出版日期：2000-5-14張魯. Visual basic 6.0 編程技巧與實例分析 ，水利水電出版社 出版日期： 1999-10-15張磊等 . Visual basi