電腦銷售管理系統(tǒng)-

1、2014級(jí)高級(jí)語(yǔ)言程序設(shè)計(jì) 石家莊鐵道大學(xué)四方學(xué)院集中實(shí)踐報(bào)告書(shū)課題名稱電腦銷售管理系統(tǒng)姓 名學(xué) 號(hào)系、 部土木工程系專業(yè)班級(jí)指導(dǎo)教師劉 仁 芬2015年 6 月 25日 一、設(shè)計(jì)任務(wù)及要求：設(shè)計(jì)任務(wù)：電腦銷售管理系統(tǒng)要 求：電腦銷售的工作人員可以登錄系統(tǒng)，工作人員包括系統(tǒng)的管理員和銷售員，兩者可以分別進(jìn)行自己的權(quán)限內(nèi)的管理，管理員可以進(jìn)行進(jìn)貨管理和庫(kù)存管理；而銷售員可以進(jìn)行銷售管理 二、指導(dǎo)教師評(píng)語(yǔ)： 三、成績(jī) 指導(dǎo)教師簽名： 年 月 日 電腦銷售管理系統(tǒng)的開(kāi)發(fā)1選題的意義制作該系統(tǒng)的原因是改變傳統(tǒng)的電腦交易模式，消除以往供應(yīng)商與顧客之間的交易不明情況，幫助顧客更快、更準(zhǔn)確的根據(jù)自己的需要來(lái)

2、找到所需電腦，以提高工作準(zhǔn)確度和工作效率。在該系統(tǒng)制作的過(guò)程中我運(yùn)用了所學(xué)的數(shù)據(jù)庫(kù)的創(chuàng)建和連接、函數(shù)過(guò)程、控件數(shù)組、條件語(yǔ)句（If語(yǔ)句、Select Case語(yǔ)句）、循環(huán)語(yǔ)句等數(shù)據(jù)結(jié)構(gòu)和知識(shí)點(diǎn)。2 系統(tǒng)功能需求分析2.1系統(tǒng)概述本系統(tǒng)包括用戶登錄、供應(yīng)商信息管理、電腦信息管理、以及供應(yīng)商與顧客之間的交易管理等功能。用戶可以根據(jù)自己的需要方便快捷的選擇自己所需要的電腦。2.2系統(tǒng)的組成及各模塊的功能電腦銷售管理系統(tǒng)的組成主要包括以下幾點(diǎn)功能：1. 用戶登錄功能：沒(méi)有權(quán)限的用戶不能使用該軟件。2. 進(jìn)貨管理功能：用戶可以及時(shí)了解進(jìn)貨情況。3. 銷售管理功能：用戶可以及時(shí)了解銷售情況。4. 庫(kù)存管理

3、功能：用戶可以及時(shí)查看庫(kù)存，以此實(shí)現(xiàn)交易順利進(jìn)行。5. 人員信息管理功能：用戶可以根據(jù)自己的需要的人員信息。6. 銷售員管理功能：銷售員可以對(duì)銷售情況進(jìn)行管理，并可對(duì)庫(kù)存進(jìn)行查詢。2.3系統(tǒng)的運(yùn)行環(huán)境1.系統(tǒng)使用環(huán)境 操作系統(tǒng)：Windows 2000/XP 系統(tǒng)支持：Visual basic 6.0及以上版本支持庫(kù) 數(shù)據(jù)庫(kù)：Access 硬件環(huán)境： 硬盤(pán)：剩余使用空間1GB以上 內(nèi)存：32MB以上 顯卡：SVGA顯示適配器2.系統(tǒng)開(kāi)發(fā)環(huán)境 操作系統(tǒng)：Windows 2000/XP 系統(tǒng)支持：Visual basic 6.0 3系統(tǒng)設(shè)計(jì)3.1總體結(jié)構(gòu)設(shè)計(jì)管理（銷售）員登陸界面 管理系統(tǒng)銷售系統(tǒng)

4、退出庫(kù)存管理銷售管理退出人員信息管理庫(kù)存管理銷售管理進(jìn)貨管理庫(kù)存查詢電腦銷售錄入電腦銷售查詢?nèi)藛T信息查詢庫(kù)存查詢進(jìn)電腦錄入進(jìn)電腦查詢電腦銷售查詢圖1 總體模塊圖3.2數(shù)據(jù)庫(kù)實(shí)現(xiàn)表1 人員信息表字段號(hào)類型寬度備注人員編號(hào)數(shù)字255姓名文本255性別文本255年齡數(shù)字255出生日期日期255籍貫文本255職位文本255表2電腦信息表字段名類型寬度備注產(chǎn)品名稱文本255型號(hào)文本255內(nèi)存文本255屏幕尺寸數(shù)字255操作系統(tǒng)文本255品牌文本255數(shù)量數(shù)字255表3進(jìn)電腦信息表字段名類型寬度備注電腦名稱文本255進(jìn)入日期日期255單價(jià)貨幣255臺(tái)數(shù)文本255表4電腦銷售表字段名類型寬度備注電腦名稱文本

5、255出售日期日期255數(shù)目數(shù)字255臺(tái)數(shù)數(shù)字2554系統(tǒng)實(shí)現(xiàn)4.1登錄模塊的設(shè)計(jì)與實(shí)現(xiàn)圖2 登陸模塊程序代碼：Private Sub Command1_Click()If Text1.Text = "20145321" And Text2.Text = "11111" ThenMsgBox "您已成功登入！", vbOKOnly + vbInformation, "登陸成功"銷售系統(tǒng).ShowMe.HideElseMsgBox "賬號(hào)或密碼錯(cuò)誤請(qǐng)從新輸入"Text1.Text = "

6、"Text2.Text = ""Text1.SetFocusEnd IfEnd Sub4.2其他（銷售員登陸）模塊的設(shè)計(jì)與實(shí)現(xiàn)1.銷售員登陸界面圖3 銷售模塊Private Sub FDF_Click()EndEnd SubPrivate Sub fghj_Click()庫(kù)存查詢.Show銷售系統(tǒng).HideEnd SubPrivate Sub hjh_Click()電腦銷售查詢.Show銷售系統(tǒng).HideEnd SubPrivate Sub sfddf_Click()電腦銷售錄入.Show銷售系統(tǒng).HideEnd Sub(1).電腦銷售錄入模塊圖4 銷售錄入模塊P

7、rivate Sub Command2_Click()電腦銷售錄入.Hide銷售系統(tǒng).ShowEnd SubPrivate Sub Command4_Click()Dim f%, n%f = Text3.Textn = Adodc5.Recordset.Fields("數(shù)量").ValueAdodc2.Recordset.AddNewAdodc2.Recordset.Fields("電腦名稱") = Text1.TextAdodc2.Recordset.Fields("出售日期") = Text2.TextAdodc2.Records

8、et.Fields("數(shù)量") = Text3.TextAdodc2.Recordset.Fields("成交價(jià)") = Text4.TextAdodc5.Recordset.Fields("數(shù)量").Value = Str(Val(Adodc5.Recordset.Fields("數(shù)量").Value) - f)MsgBox "購(gòu)買成功！", vbExclamation + vbOKOnlyEnd SubPrivate Sub Form_Load()Text1.Text = dnmcText2

9、.Text = DateAdodc5.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database2.accdb;Persist Security Info=False"Adodc5.CommandType = adCmdTableAdodc5.RecordSource = "電腦庫(kù)存"Adodc5.RefreshEnd Sub (2).電腦銷售查詢模塊圖5 銷售查詢模塊Private Sub Command1_Click()Adodc1.CommandType =

10、adCmdTextAdodc1.RecordSource = "select*from 電腦銷售 where 電腦名稱='" & Text1.Text & "'"Adodc1.RefreshText2.Text =("出售日期")Text3.Text =("數(shù)目")Text4.Text = ("成交價(jià)")End SubPrivate Sub Command2_Click()電腦銷售查詢.Hide電腦銷售系統(tǒng).ShowEnd Sub（3）.庫(kù)存查詢模塊圖6 庫(kù)存查詢

11、模塊Private Sub Command1_Click()dnmc = Adodc5.Recordset.Fields("電腦名稱")電腦銷售錄入.ShowEnd SubPrivate Sub Command2_Click()庫(kù)存查詢.Hide電腦銷售系統(tǒng).ShowEnd Sub5設(shè)計(jì)體會(huì)5.1總結(jié)VB小學(xué)期的課程如期完成，感覺(jué)很欣慰，雖然遇到過(guò)很多問(wèn)題，但在自己的努力以及老師和同學(xué)的幫助下都一一化解了，而且我覺(jué)得自己通過(guò)這次課程設(shè)計(jì)學(xué)到了很多東西，以前只知道學(xué)習(xí)課本上的固定原理和知識(shí)，很少用于自己實(shí)踐，而這次課程設(shè)計(jì)完全將自己在書(shū)本上學(xué)到的東西實(shí)踐操作出來(lái)。說(shuō)實(shí)話開(kāi)始感

12、覺(jué)很迷茫，好像什么都不會(huì)，可是后來(lái)慢慢適應(yīng)了，也知道如何操作了，也就一如既往的堅(jiān)持了下來(lái)。不過(guò)付出就會(huì)有回報(bào)，所以我獲得的遠(yuǎn)比我想象的多，這是慢慢積累的過(guò)程。5.2存在的主要問(wèn)題在本程序的創(chuàng)建過(guò)程中，我遇到的最大的問(wèn)題就是所需要代碼的繁雜，需要一遍遍不厭其煩的翻書(shū)去看。還有就是在數(shù)據(jù)庫(kù)的建立和連接。再有就是在程序設(shè)計(jì)好之后，經(jīng)常出問(wèn)題，只能再改。參考文獻(xiàn)1 孫春來(lái)，韓正清等. Visual basic 6.0中文版編程基礎(chǔ)與范例，電子工業(yè)出版社，出版日期：2001-1-1.2 知寒工作室.中文Visual basic 6簡(jiǎn)明案例教程機(jī)械工業(yè)出版社，出版日期：1999-4-13 徐健平，趙永.Visual basic基礎(chǔ)教程機(jī)械工業(yè)出版社 出版日期：2000-5-14 張魯.Visual basic 6.0編程技巧與實(shí)例分析，水利水電出版社 出版日期：1999-10-15 張