VB圖書銷售系統(tǒng)

1、1課程設(shè)計題目圖書銷售管理系統(tǒng)2功能描述圖書銷售管理系統(tǒng)是為了對書店銷售實行計算機化的管理，以提高工作效率，方便用戶。主要功能有對店內(nèi)藏書、圖書查詢、數(shù)據(jù)管理、銷售統(tǒng)計等進行管理和基本資料管理以及對系統(tǒng)自身的用戶權(quán)限管理。處理過程。系統(tǒng)管理主要任務(wù)是提高系統(tǒng)安全性和對系統(tǒng)提供良好的維護，如用戶權(quán)限可以為用戶提供權(quán)限服務(wù)。本系統(tǒng)圖書銷售管理系統(tǒng)是以利用現(xiàn)代計算機及存儲于服務(wù)器的數(shù)據(jù)庫來實現(xiàn)管理信息的增加、刪除、保存、統(tǒng)計等功能，以滿足書店銷售管理部門的實際要求為目標(biāo)。本設(shè)計追求的是簡潔、易操作的用戶界面和功能完善、穩(wěn)定的操作系統(tǒng)。3概要設(shè)計3.1編寫目的和背景圖書銷售管理在手工操作時代，工作非常

2、繁瑣，需要大量的人力、物力和財力，極大的浪費了書店的資源，對于書店的管理人員來說，書店管理包括圖書進貨管理、圖書查詢管理、圖書銷售管理等等。而這些項目在過去手工操作時代，需要手工記錄這些事情，不但麻煩，還經(jīng)常出錯，給廣大用戶帶來很多不便。為了更好的為廣大住戶服務(wù)，我們決定開發(fā)一套圖書銷售管理系統(tǒng)，幫助書店管理人員從復(fù)雜的圖書銷售管理之中解放出來。使之更加方便、快捷以提高工作效率。3.2系統(tǒng)主要功能結(jié)構(gòu)圖書銷售管理系統(tǒng)主要有三個功能模塊：圖書信息管理、圖書銷售管理、退出系統(tǒng)。其中推出系統(tǒng)有退出一個窗體用于退出系統(tǒng)。點擊確定的時候詢問用戶是否真的退出系統(tǒng)，點擊是退出，點擊否則返回系統(tǒng)。圖書信息管理

3、中能修改、查詢、添加、刪除等，用來管理書籍的書名，作業(yè)，出版社，出版時間，價格等信息。購買圖書中可以購買書籍查看訂單等。圖書銷售管理系統(tǒng)模塊如圖1所示。圖書銷售管理系統(tǒng)圖書信息管理圖書銷售管理添加圖書信息查詢圖書信息刪除圖書信息購買書籍查看訂單退出系統(tǒng)修改圖書信息圖1 頂層數(shù)據(jù)流圖3.2.1系統(tǒng)功能模塊分析(1)登陸模塊包括系統(tǒng)登錄窗體，用戶可通過登錄窗體進入系統(tǒng)。(2)系統(tǒng)主窗體模塊設(shè)計系統(tǒng)主窗體。系統(tǒng)主窗體使用MDI窗體，在窗體中通過菜單來，執(zhí)行各項系統(tǒng)功能。包括信息管理、查詢、密碼修改和窗口等主要功能，在接下來設(shè)計的窗體中，將它們的MDIChild屬性設(shè)置為True。(3)數(shù)據(jù)管理模塊在

4、主窗體點擊數(shù)據(jù)管理菜單時，則進入數(shù)據(jù)理界面，可以對書籍基本信息進行添加、刪除、修改、查詢等功能。(4) 圖書銷售模塊主要設(shè)計圖書的銷售以及圖書編號、類型、圖書名稱、狀態(tài)、作者、價格、出版社、入庫時間等基本資料。以及對上述基本資料的上一條信息、購買、查詢、下一條信息、查看定單、取消等操作。方便用戶了解圖書的基本資料和庫存情況。3.3數(shù)據(jù)庫設(shè)計針對一般圖書銷售管理系統(tǒng)的需求，通過對銷售管理工作過程的內(nèi)容和數(shù)據(jù)流程的分析，設(shè)計數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)。本實例根據(jù)具體情況設(shè)計規(guī)劃出學(xué)生個人信息實體、家長情況實體、用戶實體等。這里的數(shù)據(jù)庫采用Access，用ADODC作為鏈接數(shù)據(jù)對象。書籍個人信息實體屬性圖如圖

5、2所示。書籍信息實體書編號書名作者出版社時間類型狀態(tài)價格圖書2實體屬性圖3.3.1建立Access數(shù)據(jù)庫啟動Access，建立一個空的數(shù)據(jù)庫：圖書系統(tǒng).mdb，使用程序設(shè)計器建立系統(tǒng)需要的表格如下。購書統(tǒng)計表，如圖3所示；圖書資料表，如圖4所示。圖3 購書統(tǒng)計表圖4 圖書資料3.3.2連接數(shù)據(jù)庫在Visual Basic環(huán)境下，在程序設(shè)計的公共模塊中，先定義ADO鏈接對象。語句如下：Public cn As ADODB.Connection 連接的定義Public rs As ADODB.Recordset 記錄集的定義Sub main() Set cn = New ADODB.Connect

6、ion 實例化連接對象 cn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & personinfo.mdb;Persist Security Info=False 給連接賦字符串 cn.Open 打開連接 Set rs = New ADODB.Recordset frmdl.ShowEnd Sub4詳細(xì)設(shè)計 4.1登錄窗體4.1.1界面設(shè)計設(shè)計好的登錄界面如圖5所示。窗體上有二個Label、兩個TextBox、一個按鈕。圖5 登錄窗體4.1.2相關(guān)屬性設(shè)置創(chuàng)建一個窗體，并添加相關(guān)控件設(shè)置

7、其屬性，如下表所示。表1登錄窗體的屬性控件名稱屬性值Label1Caption用戶名Label2Caption密碼TextBox2PasswordChar*TextBox1Text123Button1Caption確定4.2界面設(shè)計設(shè)計好的界面如圖6所示。圖6圖書銷售管理系統(tǒng)界面這是一個多文檔界面（MDI）應(yīng)用程序，可以同時顯示多個文檔，每個文檔顯示在各自的窗體中。菜單應(yīng)用程序中，有3個菜單項分別實現(xiàn)相應(yīng)的功能。4.2.1創(chuàng)建主窗體首先創(chuàng)建一個工程，命名為圖書銷售管理系統(tǒng)，選擇“工程”“添加MDI窗體”命令，則在項目中添加了主窗體，并設(shè)置相關(guān)屬性。下面主要介紹窗體上菜單的實現(xiàn)。如表2所示。表2

8、菜單項表菜單名稱Text屬性功能描述Shujvguanli數(shù)據(jù)管理頂級菜單，調(diào)出數(shù)據(jù)管理窗體Qinggoumaitushu請購選圖書頂級菜單，調(diào)出購買窗體Gongjv工具頂級菜單，退出系統(tǒng)4.3子窗體模塊4.3.1數(shù)據(jù)管理子窗體新建窗體，將其屬性MDIChild設(shè)成True，Name屬性為數(shù)據(jù)管理，則這個窗體成為MDI窗體的子窗體。并添加相控件設(shè)置其相關(guān)屬性。可以參看所有書籍資料，并可以管理數(shù)據(jù)庫，添加，修改，刪除書籍的類型、價格、書名、作者等，界面如圖7所示。圖7 數(shù)據(jù)管理窗口4.3.2請選購圖書子窗體(1)新建窗體，將其屬性MDIChild設(shè)置成True，Name屬性設(shè)為qinggouxu

9、antushu，則這個窗體成為MDI窗體的子窗體。并添加相控件設(shè)置其相關(guān)屬性，界面如圖8所示。圖8 購買圖書窗體數(shù)據(jù)環(huán)境設(shè)計器為數(shù)據(jù)訪問提供了一個交互式的設(shè)計環(huán)境。在設(shè)計時，首先是建立Connection對象并指定連接的數(shù)據(jù)庫，然后創(chuàng)建Command對象來連接指定的數(shù)據(jù)表，從而獲得對數(shù)據(jù)表的連接操作，最后把它們綁定到數(shù)據(jù)報表設(shè)計器上。之后建立DataReport，設(shè)置其DataSource與DataMember屬性來確定數(shù)據(jù)來源。點擊購買按鈕后向數(shù)據(jù)庫提交購買的數(shù)據(jù)，并可以查看訂單顯示購買的書籍，合計價格操作，如圖9所示。圖9 查看訂單窗口4.3.3退出系統(tǒng)窗體新建窗體，將其屬性MDIChil

10、d設(shè)置成True，Name屬性設(shè)為gongjv，則這個窗體成為MDI窗體的子窗體。并添加相控件設(shè)置其相關(guān)屬性，界面如圖10所示。圖10 退出系統(tǒng)5效果及存在問題 在設(shè)計本管理系統(tǒng)的過程中，從界面設(shè)計到代碼的編寫都曾遇到諸多的問題，但本著循序漸進穩(wěn)扎穩(wěn)打的原則，逐步去解決問題，程序慢慢變得功能強大，知道最后能夠正常運行，為此付出了一定的時間和經(jīng)歷。體統(tǒng)可以實現(xiàn)書籍信息的管理，圖書銷售的管理。但是不足的地方是在書籍信息管理中添加書籍時，不能重復(fù)添加相同的書籍，導(dǎo)致程序有瑕疵。6心得體會通過近一周的程序設(shè)計，假日酒店管理系統(tǒng)設(shè)計完畢。但是由于是初次使用Visual Basic 6.0軟件設(shè)計，所以該

11、系統(tǒng)還有許多不盡如人意的地方，用戶界面不夠美觀，出錯處理不夠多等方面問題，功能不夠齊全。這些都有待進一步改善。通過這學(xué)期的學(xué)習(xí)和該系統(tǒng)的設(shè)計，學(xué)到了很多東西，對Visual Basic 6.0編程語言和技術(shù)有了一定的了解?？偟膩碚f，該系統(tǒng)的功能穩(wěn)定性和操作的靈活性都有著不小的差距。因此在日后，我會通過學(xué)習(xí)和練習(xí)不斷地完善該系統(tǒng)，使它能應(yīng)用到實際中，在現(xiàn)實生活中得到充分應(yīng)用。我充分的感覺到此次課程設(shè)計的鍛煉對我以后的課程設(shè)計來說，是一次難得的積累知識和經(jīng)驗的機會，它對我編程技巧的提高起了十分重要的作用在本次課程設(shè)計中通過學(xué)生信息管理系統(tǒng)實例介紹用Visual Basic 6.0開發(fā)數(shù)據(jù)庫應(yīng)用程序

12、的過程，介紹了開發(fā)應(yīng)用系統(tǒng)時的系統(tǒng)分析，功能設(shè)計，數(shù)據(jù)庫設(shè)計以及數(shù)據(jù)庫的實現(xiàn)，具體描述了實例中各種Visual Basic 6.0對象的設(shè)計方法，較為系統(tǒng)、綜合、全面地總結(jié)了Visual Basic 6.0的應(yīng)用。7參考文獻1 劉天惠. Visual Basic程序設(shè)計教程M.北京：清華大學(xué)出版社，2010.2：210-221.2 余芳.中文access2003應(yīng)用實例教程M.北京：冶金工業(yè)出版社，2009.3:213-246.3 陳鵬.VB訪問數(shù)據(jù)庫方法簡介J.南京海南大學(xué).2009,12(03):10-13.4 啟明工作室.Visual Basic+Access數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)與實例M.

13、北京：人民郵電出版社，2009.11: 41-46.5 王新民，張彥玲. Visual Basic程序設(shè)計與數(shù)據(jù)庫應(yīng)用M.北京：電子工業(yè)出版社，2008.2: 163-175.6 許軍，亞衛(wèi)忠.VB結(jié)合Access快速開發(fā)數(shù)據(jù)庫管理系統(tǒng)J.華南金融電腦.2009,4(09): 5-7.7 柴明建. Visual Basic數(shù)據(jù)庫訪問技術(shù)漫談J.計算機應(yīng)用.2010,3(06):2-5.8附錄：各功能模塊的主要代碼8.1登錄窗體代碼Command1的點擊事件。Private Sub Command1_Click()If Text1.Text = 123 And Text2.Text = 123

14、ThenUnload Me主窗體.ShowElseMsgBox 登錄失敗，重新登錄！Text1.Text = Text2.Text = Text1.SetFocusEnd If8.2主窗體代碼本項目中，子菜單事件都是Click事件，這里先給出主窗體部分的代碼。Private Sub qinggouxuantushu_Click()請購選圖書.ShowEnd SubPrivate Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecord

15、set As ADODB.Recordset)End SubPrivate Sub MDIForm_Load()End SubPrivate Sub qinggouxuan_Click()請購選圖書.ShowEnd SubPrivate Sub shujvguanli_Click()數(shù)據(jù)管理.ShowEnd SubPrivate Sub tuichu_Click()退出.ShowEnd Sub8.3各子窗體代碼8.3.1數(shù)據(jù)管理子窗體本窗體具有添加(cmd_add)、修改(cmd_update)、查詢(cmd_find)、刪除(cmd_del)等按鈕。代碼如下：Private Sub Comm

16、and1_Click()Adodc1.Recordset.UpdateBatchEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.AddNewEnd SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MovePreviousEnd IfEnd

17、SubPrivate Sub Form_Load()End Sub8.3.2購書子窗體代碼Private Sub Command1_Click()Adodc2.RefreshAdodc2.Recordset.AddNewAdodc2.Recordset.Fields(編號) = CStr(Text1.Text)Adodc2.Recordset.Fields(所購書籍) = CStr(Text2.Text)Adodc2.Recordset.Fields(價格合計) = CInt(Text9.Text)Adodc2.Recordset.UpdateAdodc1.Recordset.MoveNext

18、If Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MovePreviousEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command4_Click()所購圖書.ShowEnd SubPrivate Sub Command5_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF = True Then Adodc1.Recordset.MoveNext MsgBox 這是第一條記錄, vbOKOnly, 消息End If End SubPrivate Sub Command6_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF = True Then Adodc1.Recordset.MovePrevious MsgBox 已是最后一條記錄, vbOKOnly, 消息 End If End SubPrivate Sub Form_Load()End Sub8.3.3查看訂單子窗體代碼Private Sub Command1_Click(