VB圖書(shū)銷售管理系統(tǒng).doc

XXXXXVB程序設(shè)計(jì)課程設(shè)計(jì)報(bào)告題目：圖書(shū)銷售管理系統(tǒng)所在院系：信息技術(shù)學(xué)院學(xué) 生： XX指導(dǎo)老師： XX日 期：二XXXXXXX摘 要：圖書(shū)作為一種關(guān)系到人們工作、學(xué)習(xí)及生活等各個(gè)方面的特殊商品,在人們的生活水平日益提高的同時(shí),它的地位也越來(lái)越重要, 然而圖書(shū)品種繁多,銷售模式特殊，隨著信息化的快速發(fā)展和業(yè)務(wù)量的不斷增大,傳統(tǒng)的手工管理手段已經(jīng)無(wú)法適應(yīng)圖書(shū)銷售業(yè)的發(fā)展，如今，圖書(shū)銷售業(yè)需要實(shí)現(xiàn)銷售業(yè)務(wù)的計(jì)算機(jī)管理,迫切需要開(kāi)發(fā)出相應(yīng)的銷售管理軟件，從而加強(qiáng)對(duì)圖書(shū)銷售的管理,通過(guò)計(jì)算機(jī)來(lái)完成大量本來(lái)由工作人員手工完成的工作,真正達(dá)到合理和充分利用現(xiàn)有資源,減輕工作壓力的效果。因此, 開(kāi)發(fā)一個(gè)圖書(shū)銷售管理系統(tǒng)是很有必要的,除此之外，圖書(shū)銷售管理系統(tǒng)也有著廣泛的市場(chǎng)前景和實(shí)際的應(yīng)用價(jià)值。經(jīng)過(guò)分析，使用微軟公司的Visual Basic6.0開(kāi)發(fā)工具及Access數(shù)據(jù)庫(kù),設(shè)計(jì)了圖書(shū)銷售管理系統(tǒng)。 關(guān)鍵字：圖書(shū)銷售管理系統(tǒng),數(shù)據(jù)庫(kù),Visual Basic6.0 Abstract： As a particular commodity,books affect peoples work , study and life and so on.At the same time , peoples living standards are rising quickly, now , it plays a more and more important role, however, a wide variety of books and special sales mode, With the rapid development of information technology and the growing volume of business, the traditional management tools have not adapted the development of the bookselling industry, today, industry sales of books need to achieve sales of computer management. it is urgent to develop relevant sales management software , so that people can strengthen the Book sales management, using computers to finish the large amount of work which was finished by hand before ,people can really make full use of existing resources and alleviate the pressure of work. As a result, it is very necessary to develop a Book Selling Management System., in addition, the book sales management systems also have broad market prospects and practical application. After analysis, using Microsofts Visual Basic6.0 and Access database development tool to design the book sales management system.Key words: Book Selling Management System, database, Visual Basic6.0一：開(kāi)發(fā)環(huán)境介紹： 1.1 Visual Basic簡(jiǎn)介Visual Basic簡(jiǎn)稱VB,是Microsoft公司推出的一種 Windows應(yīng)用程序開(kāi)發(fā)工具。是當(dāng)今世界上使用最廣泛的編程語(yǔ)言之一，它也被公認(rèn)為是編程效率最高的一種編程方法。 早在1991年，為了簡(jiǎn)化Windows應(yīng)用程序的開(kāi)發(fā)，微軟公司推出了Visual Basic1.0,如今的最新版本是Visual Basic 6.0。Visual Basic 6.0集成開(kāi)發(fā)環(huán)境包含標(biāo)題欄、菜單欄、工具欄、窗體設(shè)計(jì)器窗口、工程資源管理器窗口、工程窗口、窗體布局窗口和屬性窗口。Visual Basic 6.0 的特點(diǎn)有：可視化的設(shè)計(jì)平臺(tái)、面向?qū)ο蟮脑O(shè)計(jì)方法、事件驅(qū)動(dòng)的編程機(jī)制、結(jié)構(gòu)化的設(shè)計(jì)語(yǔ)言、充分利用Windows資源、開(kāi)放的數(shù)據(jù)庫(kù)功能與網(wǎng)絡(luò)支持。 二：系統(tǒng)需求分析與功能模塊2.1 系統(tǒng)需求分析一般的圖書(shū)銷售管理系統(tǒng)包括，進(jìn)貨管理，銷售管理，庫(kù)存管理，退貨管理，銷售統(tǒng)計(jì),信息維護(hù)等功能。以下介紹一下銷售管理系統(tǒng)的一些必備功能，每個(gè)功能由若干相關(guān)的子模塊構(gòu)成。 進(jìn)貨管理 包括進(jìn)書(shū)錄入及查詢 銷售管理 主要對(duì)銷售的情況進(jìn)行記錄及瀏覽銷售情況 庫(kù)存管理 主要對(duì)庫(kù)存量進(jìn)行錄入與查詢。 退貨管理 對(duì)顧客退回來(lái)的書(shū)籍進(jìn)行管理，包括退貨錄入及查詢 銷售統(tǒng)計(jì) 主要是對(duì)銷售業(yè)績(jī)進(jìn)行統(tǒng)計(jì)，以報(bào)表的形式顯示銷售業(yè)績(jī) 信息維護(hù) 主要包括圖書(shū)信息維護(hù)，人員信息維護(hù)及用戶信息維護(hù)，其中只有管理員可以對(duì)人員信息進(jìn)行維護(hù)，管理員可以更改所有用戶的信息，用戶只能修改個(gè)人信息。2.2 系統(tǒng)的功能可用如圖2-1所示框圖表示。系統(tǒng)登陸圖書(shū)銷售管理系統(tǒng)進(jìn)貨管理銷售管理庫(kù)存管理退貨管理銷售統(tǒng)計(jì)信息維護(hù) 圖2-1 2.3 數(shù)據(jù)庫(kù)設(shè)計(jì) 本系統(tǒng)的數(shù)據(jù)庫(kù)采用 Microsoft Access 2003 2.3.1 建立ccess 數(shù)據(jù)庫(kù) 啟動(dòng)ccess 2003，選擇文件，新建，空數(shù)據(jù)庫(kù)(books_sale.mdb)，如圖2-2所示 圖2-2 2.3.2 創(chuàng)建表在上面的基礎(chǔ)上，選擇主菜單中的插入-表格，根據(jù)要求設(shè)計(jì)相應(yīng)的表格，本系統(tǒng)中設(shè)計(jì)的表格如下所示: tb_login (用戶登錄信息表) tb_buybooks(圖書(shū)進(jìn)貨錄入表) tb_personnelinfo(人員信息維護(hù)表) tb_sale (圖書(shū)銷售表) tb_store（圖書(shū)庫(kù)存表） tb_withdraw(圖書(shū)退貨表)三：系統(tǒng)具體實(shí)現(xiàn)3.1 歡迎界面 在此界面中引用了一個(gè)第三方控件（ccrpprg6），它是一個(gè)進(jìn)度條控件。首先要加載此控件，具體方法是把壓縮包c(diǎn)crpprg6.zip解壓縮,然后在工具箱的空白處單擊鼠標(biāo)右鍵，從彈出的快捷菜單中啟動(dòng)部件窗口，如圖3-1所示。 圖3-1點(diǎn)擊瀏覽按鈕，從存放ccrpProgressBar控件的文件夾中找到ccrpprg.ocx文件。點(diǎn)擊應(yīng)用后ccrpProgressBar控件就添加到工具箱中了。向窗體中添加一個(gè)ccrpProgressBar控件和一個(gè)Timer控件Timer控件的Interval值設(shè)置為100，與ccrpProgressBar控件的默認(rèn)值一致。在timer1的timer事件中添加如下代碼If i = 100 Then Frm_before.Hide Timer1.Enabled = False 定時(shí)器停止工作 Frm_login.ShowElse i 不為100則進(jìn)度條向前進(jìn) ccrpProgressBar1.Value = i i = i + 2End If. 使本窗體透明,新建一個(gè)模塊Module1，添加如下代碼Public Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long AnimateWindow是一個(gè)窗口打開(kāi)和關(guān)閉時(shí)產(chǎn)生動(dòng)畫(huà)效果的新函數(shù)，因?yàn)槭且粋€(gè)新的函數(shù), 所以在此定義Public Const WS_EX_LAYERED = &H80000Public Const GWL_EXSTYLE = (-20)Public Const LWA_ALPHA = &H2 表示把窗體設(shè)置成半透明樣式 Public Const LWA_COLORKEY = &H1 不顯示窗體中的透明色 Public Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long) As LongPublic Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long在form的load 事件中加入如下代碼Timer1.Enabled = TrueTimer1.Interval = 100 定時(shí)器開(kāi)始工作Frm_before.Visible = Truertn = GetWindowLong(Me.hwnd, GWL_EXSTYLE) 取窗口的原先樣式rtn = rtn Or WS_EX_LAYERED 使窗體添加上新的樣式WS_EX_LAYEREDSetWindowLong Me.hwnd, GWL_EXSTYLE, rtn 把新的樣式賦給窗體SetLayeredWindowAttributes Me.hwnd, 0, 150, LWA_ALPHA 把窗體設(shè)置成半透明樣式,第二個(gè)參數(shù)表示透明程度取值范圍0 -255, 為0時(shí)就是一個(gè)全透明的窗體了3.2 系統(tǒng)登錄. 在窗體上加個(gè)adodc1控件,登錄的主要代碼為Dim i As IntegerAdodc1.RefreshAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveFirstFor i = 1 To Adodc1.Recordset.RecordCountIf 控件名.Text = Then 如果控件中的內(nèi)容為空，則顯示提示 MsgBox 請(qǐng)選擇用戶類型！, vbOKOnly + vbInformation, 注意ElseIf (Combo1.Text = Adodc1.Recordset.Fields(userkind) And (Trim(Text1.Text) =Adodc1.Recordset.Fields(name)And(Trim(Text2.Text)=Adodc1.Recordset.Fields(password) Then 判斷用戶名與密碼是否相符 Frm_main.Show Unload Me Exit SubElse MsgBox 無(wú)效的密碼，請(qǐng)重試！, 登陸 Exit SubEnd IfNext若當(dāng)前用戶是新用戶，則可以單擊新用戶注冊(cè)進(jìn)行注冊(cè),主要代碼如下:.在Module1中加入如下代碼:Option ExplicitPublic con As ADODB.ConnectionPublic rst As ADODB.RecordsetPublic Sub OpenDataBase()Set con = New ADODB.Connectioncon.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=books_sale.mdb;Persist Security Info=FalseSet rst = New ADODB.Recordsetcon.OpenEnd Sub在caption屬性為”新用戶注冊(cè)”的按紐的click事件中添加如下形式的代碼Call OpenDataBase rst.Open tb_login, con, adOpenStatic, adLockOptimistic, -1 If Text1.Text = Then 提示不能為空 ElseIf Text2.Text = Then 提示不能為空 Else For i = 1 To rst.RecordCount If Text1.Text = rst.Fields(name).Value Then MsgBox 該用戶已存在，請(qǐng)重新輸入用戶名！, vbOKOnly + vbExclamation, 用戶 Exit Sub Else rst.MoveNext End If Next I 判斷新的用戶名是否與已存在的用戶重名 rst.AddNew rst.Fields(字段名) = Text.Text rst.Update rst.Requery rst.Close MsgBox 新用戶添加成功!, vbOKOnly + vbInformation, 提示 Unload Me End If3.3 主界面選擇VB IDE中的菜單欄中的工具菜單編輯器，進(jìn)行如下（圖3-2）設(shè)置 圖3-2加oolbar控件,單擊如圖3-3中的添加6個(gè)按紐,并分別設(shè)置其標(biāo)題及關(guān)鍵字,對(duì)應(yīng)的 與中的數(shù)值要一致。 圖3-3在toolbar1的buttonclick事件中加入如下形式代碼Select Case Button.KeyCase 關(guān)鍵字語(yǔ)句End Select加ImageList控件,然后右擊打開(kāi)如圖3-4的屬性頁(yè)，選擇圖像，單擊，添加個(gè)圖片 圖3-4在圖3-3中選擇通用，然后設(shè)置其圖像列表為ImageList1即添加StatusBar,timer控件 在statusbar的屬性頁(yè)中，選擇窗格，然后單擊，插入相應(yīng)的窗格 在timer1的timer事件中加入語(yǔ)句StatusBar1.Panels(3).Text = Time 顯示當(dāng)前系統(tǒng)時(shí)間在form的load事件中的主要代碼如下StatusBar1.Panels(1).Text = 歡迎使用圖書(shū)銷售管理系統(tǒng)！StatusBar1.Panels(2).Text = Format(Date, dddddd) 以完整日期表示法顯示當(dāng)前系統(tǒng)中的日期If Frm_login.Combo1.Text = 0 Then Me.personnelim.Enabled = False如果登錄的用戶為一般用戶則該用戶不能對(duì)人員信息進(jìn)行維護(hù)3.4 進(jìn)貨管理進(jìn)書(shū)錄入在確定按紐的click事件中加入如下形式代碼Call OpenDataBase rst.Open 表名, con, adOpenStatic, adLockOptimistic, -1 rst.AddNew rst.Fields(表中字段名) = Text1.Text rst.Update rst.Requery rst.Close MsgBox 新書(shū)添加成功!, vbOKOnly + vbInformation, 提 示”在form 的load 事件中加入如下語(yǔ)句DTPicker1.Value = Date 使Dtpicker1的當(dāng)前值為系統(tǒng)日期進(jìn)書(shū)查詢 在“查詢“按紐的click 事件中添加如下代碼 Dim sql As Stringsql = select * from tb_buybooks whereIf Combo1.Text = ThenMsgBox 請(qǐng)選擇圖書(shū)進(jìn)貨日期！, vbOKOnly + vbExclamationCombo1.SetFocusExit SubElsesql = sql & ISBN = & Trim(Combo1.Text) & End IfAdodc1.RecordSource = sqlAdodc1.Refresh 查詢指定日期的進(jìn)書(shū)情況 3.5 銷售管理圖書(shū)銷售錄入（代碼同進(jìn)書(shū)錄入的代碼）圖書(shū)銷售瀏覽 . 在from的load 事件中添加如下代碼 Call OpenDataBase rst.Open tb_sale, con, adOpenStatic, adLockOptimistic, -1.在通用代碼段中添加如下形式代碼Public Sub viewdatas()On Error Resume NextText.Text = rst.Fields(字段名”)Value 把數(shù)據(jù)庫(kù)中的字段值賦給相應(yīng)的控件End Sub.在”第一本”按紐的click事件中加入如下代碼 rst.MoveFirst 移到表中的第一條記錄Call viewdatas. 在”上一本”按紐的click事件中加入如下代碼 If rst.BOF Then 判斷是否是第一條記錄MsgBox 已經(jīng)是第一條記錄！, vbOKOnly + vbInformationElserst.MovePrevious 向前移一條記錄Call viewdatasEnd If. 在”下一本”按紐的click事件中加入如下代碼 If rst.EOF Then 判斷是否是最后一條記錄MsgBox 已經(jīng)是最后一條記錄！, vbOKOnly + vbInformationElserst.MoveNext 向后移一條記錄Call viewdatasEnd If. 在”最末本”按紐的click事件中加入如下代碼 rst.MoveLast 移到最后一條記錄Call viewdatas3.6 庫(kù)存管理庫(kù)存錄入 （代碼同進(jìn)書(shū)錄入的代碼）庫(kù)存查詢 在“查詢“按紐的click事件中添加如下代碼Dim txtSQL As String txtSQL = select * from tb_store If Text7.Text = Then sMeg = 請(qǐng)輸入圖書(shū)編號(hào)！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Text7.SetFocus Exit Sub Else txtSQL = txtSQL & where ISBN = & Trim(Text7.Text) & End If Adodc1.RecordSource = txtSQL 重新給數(shù)據(jù)源賦值 Adodc1.Refresh Adodc1的記錄源設(shè)置如圖3-5所示: 圖3-53.7退貨管理退貨錄入 （代碼同進(jìn)書(shū)錄入的代碼）退貨查詢 (同庫(kù)存查詢)3.8 銷售統(tǒng)計(jì)圖書(shū)銷售業(yè)績(jī)報(bào)表 .選擇VB IDE 的菜單欄中的工程 添加Data report,添加一個(gè)數(shù)據(jù)報(bào)表，名稱使用默認(rèn)的Datareport1。 .設(shè)定 Datareport對(duì)象的DataSource屬性為Environment1。 .設(shè)定Datareport對(duì)象的DataMember屬性為 Command1。 .右擊設(shè)計(jì)器，在彈出的快捷菜單中單擊“檢索結(jié)構(gòu)”選項(xiàng)。 .向相應(yīng)的節(jié)添加相應(yīng)的控件。報(bào)表Datareport1的設(shè)計(jì)界面如圖3-6 所示。 圖3-6在主窗體的菜單欄中選擇銷售統(tǒng)計(jì)-圖書(shū)銷售業(yè)績(jī)報(bào)表，加入語(yǔ)句DataReport1.Show3.9信息維護(hù)圖書(shū)信息維護(hù)(同圖書(shū)銷售瀏覽)人員信息維護(hù)添加一些常用按紐之后，然后在人員信息維護(hù)中加一個(gè)（CommonDialog）按紐，在“瀏覽圖片”的click事件中添加如下代碼With Me.CommonDialog1.DialogTitle = 選擇要導(dǎo)入的圖片.Filter = 選擇圖片類型|*.jpg|*.bmp|*.bmp|*.gif|*.*|*.jpg.ShowOpen.InitDir = App.PathMe.Picture1.Picture = LoadPicture(Me.CommonDialog1.FileName)End With用戶信息維護(hù)在Form的 load事件中加入如下代碼If Frm_login.Combo1.Text = 0 Then 判斷當(dāng)前使用者是管理員還是一般用戶Me.Combo1.Text = Frm_login.Text1.Text 若為一般用戶則該用戶名賦值給Combo1.Text，否則，則把所有用戶名都加到Combo1中ElseSet s = New ADODB.ConnectionDim str As Stringstr = provider=microsoft.jet.oledb.4.0;data source= & App.Path & books_sale.mdb;persist security info=falses.Open strSet c = New ADODB.Recordsetc.Open select * from tb_login, str, 1, 1c.MoveFirstWhile Not c.EOFCombo1.AddItem (c.Fields(name).Value)c.MoveNextWendEnd If在“確定”按紐的click事件中加入如下代碼Call OpenDataBaserst.Open tb_login, con, adOpenStatic, adLockOptimistic, -1Adodc1.RecordSource = select password from tb_login where name = combo1.textIf Text1.Text rst.Fields(password).Value Then 判斷輸入的原密碼是否與數(shù)據(jù)庫(kù)中的相同MsgBox 您輸入的原密碼不正確，請(qǐng)重新輸入！, vbOKOnly + vbInformation, 提示Elserst.Fields(password) = Text2.Textrst.Updaterst.Requeryrst.CloseMsgBox 密碼修改成功！, vbOKOnly + vbInformation, 提示Unload MeEnd If四：調(diào)試過(guò)程.系統(tǒng)運(yùn)行時(shí)的第一個(gè)界面如圖4-1所示 圖4-1.然后進(jìn)入登錄界面,如圖4