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

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

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

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

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

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

6、ion 實(shí)例化連接對象 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è)計(jì) 4.1登錄窗體4.1.1界面設(shè)計(jì)設(shè)計(jì)好的登錄界面如圖5所示。窗體上有二個(gè)Label、兩個(gè)TextBox、一個(gè)按鈕。圖5 登錄窗體4.1.2相關(guān)屬性設(shè)置創(chuàng)建一個(gè)窗體，并添加相關(guān)控件設(shè)置

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

8、菜單項(xiàng)表菜單名稱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ù)管理，則這個(gè)窗體成為MDI窗體的子窗體。并添加相控件設(shè)置其相關(guān)屬性?？梢詤⒖此袝Y料，并可以管理數(shù)據(jù)庫，添加，修改，刪除書籍的類型、價(jià)格、書名、作者等，界面如圖7所示。圖7 數(shù)據(jù)管理窗口4.3.2請選購圖書子窗體(1)新建窗體，將其屬性MDIChild設(shè)置成True，Name屬性設(shè)為qinggouxu

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

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

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

12、的過程，介紹了開發(fā)應(yīng)用系統(tǒng)時(shí)的系統(tǒng)分析，功能設(shè)計(jì)，數(shù)據(jù)庫設(shè)計(jì)以及數(shù)據(jù)庫的實(shí)現(xiàn)，具體描述了實(shí)例中各種Visual Basic 6.0對象的設(shè)計(jì)方法，較為系統(tǒng)、綜合、全面地總結(jié)了Visual Basic 6.0的應(yīng)用。7參考文獻(xiàn)1 劉天惠. Visual Basic程序設(shè)計(jì)教程M.北京：清華大學(xué)出版社，2010.2：210-221.2 余芳.中文access2003應(yīng)用實(shí)例教程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ā)與實(shí)例M.

13、北京：人民郵電出版社，2009.11: 41-46.5 王新民，張彥玲. Visual Basic程序設(shè)計(jì)與數(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.計(jì)算機(jī)應(yīng)用.2010,3(06):2-5.8附錄：各功能模塊的主要代碼8.1登錄窗體代碼Command1的點(diǎn)擊事件。Private Sub Command1_Click()If Text1.Text = 123 And Text2.Text = 123

14、ThenUnload Me主窗體.ShowElseMsgBox 登錄失敗，重新登錄！Text1.Text = Text2.Text = Text1.SetFocusEnd If8.2主窗體代碼本項(xiàng)目中，子菜單事件都是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(編號(hào)) = CStr(Text1.Text)Adodc2.Recordset.Fields(所購書籍) = CStr(Text2.Text)Adodc2.Recordset.Fields(價(jià)格合計(jì)) = 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(