sql數(shù)據(jù)庫課程設(shè)計(jì)-- 小型超市管理系統(tǒng)

1、<p>　　數(shù)據(jù)庫原理課程設(shè)計(jì)論文</p><p>　　題 目（中） 小型超市管理系統(tǒng) </p><p>　　學(xué)生姓名 </p><p>　　專業(yè)班級(jí) </p><p>　　導(dǎo)師姓名 </p>&l

2、t;p><b>　　二○一三年六月</b></p><p><b>　　目錄</b></p><p><b>　　1．緒論1</b></p><p>　　1.1課題研究意義1</p><p>　　1.2課題研究目的2</p><p>　　2.

3、系統(tǒng)開發(fā)工具2</p><p>　　2.1Visual Basic簡介2</p><p>　　2.1.1面向?qū)ο蟮目梢暬?</p><p>　　2.1.2.事件驅(qū)動(dòng)的編程機(jī)制2</p><p>　　2.1.3.提供強(qiáng)大的數(shù)據(jù)庫訪問工具2</p><p>　　2.2．SQL SERVER 2005數(shù)據(jù)庫的簡介

4、3</p><p>　　3.可行研究和需求分析性3</p><p>　　3.1可行性研究3</p><p><b>　　3.2需求分析4</b></p><p>　　3.3系統(tǒng)層次劃分4</p><p>　　3.3.1系統(tǒng)層次劃分如圖3.1所示4</p><p>

5、　　4.系統(tǒng)總體設(shè)計(jì)5</p><p>　　4.1注冊(cè)及登錄5</p><p>　　4.1.1注冊(cè)功能及代碼（圖4.1）5</p><p>　　4.1.2登錄功能代碼6</p><p>　　4.1.3登錄界面相關(guān)功能與數(shù)據(jù)庫連接的代碼7</p><p>　　4.2登錄后主界面功能及界面及其相關(guān)功能代碼7&l

6、t;/p><p>　　4.2.2主界面相關(guān)功能代碼7</p><p>　　4.3商品信息查詢界面及其相關(guān)功能代碼8</p><p>　　4.3.1查詢商品信息功能代碼9</p><p>　　4.3.2添加商品功能代碼9</p><p>　　4.3.3刪除商品信息功能代碼10</p><p>

7、;　　4.3.4商品信息功能與數(shù)據(jù)庫連接代碼11</p><p>　　4.4銷售記錄查詢界面及其相關(guān)功能代碼12</p><p>　　4.4.1查詢已銷售商品信息功能代碼12</p><p>　　4.4.2添加已銷售商品信息功能代碼13</p><p>　　4.4.3刪除已銷售商品信息功能代碼14</p><p&

8、gt;　　4.4.4銷售商品信息表與數(shù)據(jù)庫連接代碼15</p><p>　　4.5員工信息查詢界面及其相關(guān)功能代碼15</p><p>　　4.5.1添加員工信息功能代碼15</p><p>　　4.5.2查詢員信息功能代碼16</p><p>　　4.5.3刪除員工信息功能代碼17</p><p>　　4.

9、5.4員工信息查詢功能與數(shù)據(jù)庫連接的代碼18</p><p><b>　　5.數(shù)據(jù)設(shè)計(jì)18</b></p><p>　　5.1數(shù)據(jù)庫中各數(shù)據(jù)表的說明18</p><p>　　5.1.1登陸表功能說明及其創(chuàng)建的SQL代碼（表5.1）18</p><p>　　5.1.2商品表說明及及其創(chuàng)建的SQL代碼（表5.2）1

10、9</p><p>　　5.1.3銷售表說明及及其創(chuàng)建的SQL代碼（表5.3）20</p><p>　　5.1.3職工表說明及及其創(chuàng)建的SQL代碼（表5.4）21</p><p>　　6.經(jīng)驗(yàn)與體會(huì)22</p><p><b>　　參考文獻(xiàn)22</b></p><p><b>　

11、　1．緒論</b></p><p>　　隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。而當(dāng)今時(shí)代是飛速發(fā)展的信息時(shí)代，各行各業(yè)都離不開信息處理。計(jì)算機(jī)的最大好處在于可以利用它進(jìn)行信息管理。使用計(jì)算機(jī)進(jìn)行信息管理，不僅提高了工作效率，而且大大的提高了其安全性。</p><p>　　超市管理是超市中不可

12、缺少的重要部分，超市的管理信息量繁多，包含很多信息的數(shù)據(jù)管理?，F(xiàn)今，大多數(shù)大型超市商場都使用計(jì)算機(jī)進(jìn)行信息管理，而小型超市商店仍然采用傳統(tǒng)的人工管理方式，這種管理方式存在著許多缺點(diǎn)，如：效率低、工作量大等，而且，隨著購買者與超市數(shù)量的增長，對(duì)于超市的銷售、進(jìn)貨、退貨、交易管理等等，使更新和維護(hù)都帶來了不少的困難。本系統(tǒng)就是為了改變傳統(tǒng)的超市商店這種現(xiàn)狀所設(shè)計(jì)的。</p><p>　　使用計(jì)算機(jī)對(duì)超市進(jìn)行管理,有著

13、手工管理所無法比擬的優(yōu)點(diǎn)。例如:查看迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠使超市管理進(jìn)入科學(xué)化、正規(guī)化的軌道。</p><p><b>　　1.1課題研究意義</b></p><p>　　首先，該課題屬于管理信息系統(tǒng)范疇。而管理信息系統(tǒng)(Management Information System，簡稱MIS)在現(xiàn)代社會(huì)已深入到各行

14、各業(yè)，是1個(gè)不斷發(fā)展的新學(xué)科,是由人和計(jì)算機(jī)設(shè)備或其他信息處理手段組成并用于管理信息的系統(tǒng)。再加上行業(yè)信息化的熱潮才剛剛開始,特別是中小型企業(yè)的信息化建設(shè)步伐剛剛邁出第1步。管理信息系統(tǒng)的開發(fā)的市場將是非常龐大的。這種需求對(duì)開發(fā)人員在數(shù)量上和素質(zhì)上的要求也是非常迫切的。為了滿足市場的需求以及能在競爭中取勝,系統(tǒng)設(shè)計(jì)人員就不僅僅是單純地滿足用戶對(duì)功能的要求,還要從設(shè)計(jì)方法上來加以改進(jìn)。</p><p>　　其次，面

15、向?qū)ο蠓椒ㄊ?種非常實(shí)用的軟件開發(fā)方法，它一出現(xiàn)就受到軟件技術(shù)人員的青睞，現(xiàn)在已經(jīng)成為計(jì)算機(jī)科學(xué)研究的一個(gè)重要領(lǐng)域，并逐漸成為軟件開發(fā)的1種主要方法。面向?qū)ο蟮某绦蛟O(shè)計(jì)將數(shù)據(jù)及對(duì)數(shù)據(jù)的操作方法封裝在1起,作為1個(gè)互相依存、不可分離的整體。采用這種方法來設(shè)計(jì)系統(tǒng),可以增加系統(tǒng)的安全性。同時(shí)通過繼承與多態(tài)性,使程序具有很高的可重用性,使軟件的開發(fā)和維護(hù)帶來了方便。由于面向?qū)ο蠓椒ǖ耐怀鰞?yōu)點(diǎn),它才被廣大用戶所愛好。 </p>&

16、lt;p><b>　　1.2課題研究目的</b></p><p>　　研究該課題是為了通過對(duì)“小型超市管理系統(tǒng)”的設(shè)計(jì)與實(shí)現(xiàn)，熟悉這類的信息管理系統(tǒng)的開發(fā)原理及流程。在設(shè)計(jì)過程,能夠深入地理解面向?qū)ο笤O(shè)計(jì)方法的優(yōu)越性,獲得這些方面的相關(guān)經(jīng)驗(yàn)。對(duì)1個(gè)即將畢業(yè)的計(jì)算機(jī)專業(yè)本科生來說,又想在軟件行業(yè)領(lǐng)域里有所發(fā)展,研究并應(yīng)用面向?qū)ο笤O(shè)計(jì)方法是百益無1害的,可以使其走向社會(huì)后能夠快速地適應(yīng)行業(yè)

17、需求。這正是本次設(shè)計(jì)的根本目的所在。</p><p><b>　　2.系統(tǒng)開發(fā)工具</b></p><p>　　2.1Visual Basic簡介</p><p>　　2.1.1面向?qū)ο蟮目梢暬?</p><p>　　在Visual Basic6.0中，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法（OOP）， 把程序和數(shù)據(jù)庫封裝在一起視為

18、一個(gè)對(duì)象，而且每個(gè)對(duì)象都是可視的，程序員在設(shè)計(jì)時(shí)只需用現(xiàn)有的工具根據(jù)界面設(shè)計(jì)的要求，直接在“窗體”上畫出諸如“按扭”、“滾動(dòng)條”、“文本框”等不同類型的對(duì)象，并為它們?cè)O(shè)置“屬性”編寫“事件”代碼即可，從而大大簡化了設(shè)計(jì)的復(fù)雜度。</p><p>　　2.1.2.事件驅(qū)動(dòng)的編程機(jī)制</p><p>　　Visual Basic6.0通過事件驅(qū)動(dòng)來執(zhí)行對(duì)象的操作。在事件驅(qū)動(dòng)的程序中，代碼不是按

19、照預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼模塊。每個(gè)對(duì)象都有一個(gè)事件集，每個(gè)事件發(fā)生都要有有相應(yīng)的程序代碼來響應(yīng)，即要執(zhí)行一段程序代碼。事件可以由用戶操作觸發(fā)，也可以由操作系統(tǒng)或其他應(yīng)用程序的消息觸發(fā)，甚至可以由應(yīng)用程序本身的消息觸發(fā)。這些事件的順序決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運(yùn)行時(shí)所經(jīng)過的代碼的路徑是不同的。在程序設(shè)計(jì)時(shí)，不需要建立明顯的開始和結(jié)束的大塊應(yīng)用程序，也不需要指出先執(zhí)行哪部分代碼和按什么順序執(zhí)行代碼，

20、只需編寫一些針對(duì)事件的許多小的模塊子程序（也稱過程）。</p><p>　　2.1.3.提供強(qiáng)大的數(shù)據(jù)庫訪問工具</p><p>　　隨著計(jì)算機(jī)技術(shù)的發(fā)展，數(shù)據(jù)庫越來越顯示出其強(qiáng)大的數(shù)據(jù)存儲(chǔ)和數(shù)據(jù)管理能力。為了滿足人們對(duì)數(shù)據(jù)庫的需要，Visual Basic提供了強(qiáng)大的數(shù)據(jù)庫程序設(shè)計(jì)能力。它不僅能管理Microsoft Access格式的數(shù)據(jù)庫，還能訪問其他外部數(shù)據(jù)庫，如FoxPro，Pa

21、radox等格式的數(shù)據(jù)庫。另外，Visual Basic還提供了開放式數(shù)據(jù)庫連接（ODBC）功能，可以通過直接訪問或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server，Oracle等。在應(yīng)用程序中可以使用結(jié)構(gòu)化查詢語言（SQL）直接訪問Server上的數(shù)據(jù)庫，并提供簡單的面向?qū)ο蟮膸觳僮髅睢⒍嘤脩魯?shù)據(jù)庫的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供SQL網(wǎng)絡(luò)接口，以便于在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服

22、務(wù)器方案。</p><p>　　2.2．SQL SERVER 2005數(shù)據(jù)庫的簡介</p><p>　　SQL 是一種標(biāo)準(zhǔn)，是一門 ANSI 的標(biāo)準(zhǔn)計(jì)算機(jī)語言，用來訪問和操作數(shù)據(jù)庫系統(tǒng)。SQL 語句用于取回和更新數(shù)據(jù)庫中的數(shù)據(jù)。SQL 可與數(shù)據(jù)庫程序協(xié)同工作，比如 MS Access、DB2、Informix、MS SQL Server、Oracle、Sybase 以及其他數(shù)據(jù)庫系統(tǒng)。&l

23、t;/p><p>　　SQL(Structured Query Language)，結(jié)構(gòu)化查詢語言。SQL語言的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進(jìn)行溝通。按照ANSI(美國國家標(biāo)準(zhǔn)協(xié)會(huì))的規(guī)定，SQL被作為關(guān)系型數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言。SQL語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)，從數(shù)據(jù)庫中提取數(shù)據(jù)等。絕大多數(shù)流行的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)都采用了SQL語言標(biāo)準(zhǔn)。雖然很多數(shù)據(jù)庫都對(duì)SQL語句進(jìn)行了再開

24、發(fā)和擴(kuò)展，但是包括Select, Insert, Update, Delete, Create,以及Drop在內(nèi)的標(biāo)準(zhǔn)的SQL命令仍然可以被用來完成幾乎所有的數(shù)據(jù)庫操作。</p><p>　　3.可行研究和需求分析性</p><p>　　軟件開發(fā)最初的工作就是問題定義，也就是確定超市中要求解決的問題是什么；做好軟件定義時(shí)期的工作是降低軟件成本提高軟件質(zhì)量的關(guān)鍵。在軟件開發(fā)的不同階段進(jìn)行修改

25、需要付出的代價(jià)是很不相同的，越在早期改正錯(cuò)誤，付出的代價(jià)就越小，了解了它的重要性之后，我明白前期工作一定要做好才能更好地提高工作效率。我把任務(wù)超市又仔細(xì)地研究了一遍，充分明白了它的要求后，接下來作可行性研究，只有做好可行性研究才有可能把以后的工作做好。</p><p><b>　　3.1可行性研究</b></p><p>　　可行性研究的目的就是用最小的代價(jià)在盡可能短

26、的時(shí)間內(nèi)確定問題是否能夠解決?？尚行匝芯康哪康牟皇墙鉀Q問題，而是確定問題是否值得去解決。不能靠主觀猜想，只能靠客觀分析。</p><p>　　首先應(yīng)該近一步地分析和澄清問題定義，如果正確則進(jìn)一步加以肯定，如果有錯(cuò)則應(yīng)立刻改正，經(jīng)過仔細(xì)審查，然后從三方面分析它的可行性：</p><p>　　(1)技術(shù)可行性（即使用現(xiàn)有的技術(shù)能實(shí)現(xiàn)這個(gè)系統(tǒng)嗎）：</p><p>　　V

27、B功能強(qiáng)大，能用簡單的方法完成復(fù)雜的問題。 </p><p>　　(2)操作可行性（系統(tǒng)的操作方式在這個(gè)用戶組織能行的通嗎）：</p><p>　　本系統(tǒng)操作簡單，系統(tǒng)的運(yùn)行不需要特定的環(huán)境。</p><p>　　(3)經(jīng)濟(jì)可行性（系統(tǒng)的經(jīng)濟(jì)效益是否能超過它的開發(fā)成本）：</p><p>　　產(chǎn)生的經(jīng)濟(jì)效益遠(yuǎn)超過它的開發(fā)成本。</p&g

28、t;<p><b>　　3.2需求分析</b></p><p>　　需求分析是軟件定義時(shí)期的最后一個(gè)階段,它的基本任務(wù)是準(zhǔn)確地回答“系統(tǒng)必須做什么”這個(gè)問題，需求分析的任務(wù)還不是確定系統(tǒng)怎樣完成它的工作，而僅僅是確定系統(tǒng)必須完成哪些工作，也就是對(duì)目標(biāo)系統(tǒng)提出完整、準(zhǔn)確、清晰、具體的要求。</p><p>　　可行性研究階段產(chǎn)生的文檔是需求分析的出發(fā)點(diǎn)。需

29、求分析階段系統(tǒng)本人仔細(xì)研究超市管理系統(tǒng)應(yīng)實(shí)現(xiàn)的功能并將它們具體化。</p><p>　　針對(duì)一般超市管理系統(tǒng)的需求，通過對(duì)超市管理工作過程的內(nèi)容分析與本人所要承擔(dān)的任務(wù)，設(shè)計(jì)出下面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：</p><p>　　(1)商品信息查詢：包括商品號(hào)、商品名稱、單價(jià)、商品類型、庫存量、廠商等信息。 (2)銷售記錄查詢：包括銷售號(hào)、銷售職工號(hào)、商品號(hào)和銷售時(shí)間等信息。</p>

30、<p>　　(3)銷售員工信息表，包含的數(shù)據(jù)項(xiàng)有職工號(hào)、姓名、性別和用戶類型等</p><p><b>　　3.3系統(tǒng)層次劃分</b></p><p>　　3.3.1系統(tǒng)層次劃分如圖3.1所示</p><p>　　圖3.1 系統(tǒng)層次劃分圖</p><p><b>　　4.系統(tǒng)總體設(shè)計(jì)</b&

31、gt;</p><p><b>　　4.1注冊(cè)及登錄</b></p><p>　　該功能可以實(shí)現(xiàn)用戶的注冊(cè)和登錄</p><p>　　4.1.1注冊(cè)功能及代碼（圖4.1）</p><p><b>　　圖4.1 用戶注冊(cè)</b></p><p><b>　　注冊(cè)功能代

32、碼</b></p><p>　　Private Sub 注冊(cè)_Click()</p><p>　　If Text1.Text = "" Or Text2.Text = "" Then</p><p>　　MsgBox "用戶名和密碼不能為空", 16 + 4, "警告"<

33、;/p><p><b>　　Else</b></p><p>　　Dim rs As New ADODB.Recordset</p><p>　　str1 = "select * from 登錄表 where 用戶名='" & Text1.Text & "'"</p>

34、;<p>　　rs.Open str1, cn, 1, 3</p><p><b>　　rs.AddNew</b></p><p>　　rs("用戶名") = Text1.Text</p><p>　　rs("密碼") = Text2.Text</p><p><

35、;b>　　rs.Update</b></p><p>　　MsgBox "注冊(cè)成功", 64, "信息提示"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.1.2

36、登錄功能代碼</p><p>　　Private Sub Command1_Click()</p><p>　　strsql = "select * from 登錄表 where 用戶名='" & Text1.Text & "'" & "and 密碼='" & Text2.T

37、ext & "'"</p><p>　　rs.Open strsql, cn, 1, 3</p><p>　　If rs.EOF Then</p><p>　　MsgBox "用戶名或密碼錯(cuò)了", 32, "警告"</p><p><b>　　Else<

38、;/b></p><p>　　Form5.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.1.3登錄界面

39、相關(guān)功能與數(shù)據(jù)庫連接的代碼</p><p>　　Private Sub Form_Load()</p><p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p>

40、<p><b>　　cn.Open</b></p><p><b>　　End Sub</b></p><p>　　4.2登錄后主界面功能及界面及其相關(guān)功能代碼</p><p>　　4.2.1登錄后主界面（圖4.2）</p><p>　　圖4.2 登錄后主界面</p>&

41、lt;p>　　4.2.2主界面相關(guān)功能代碼</p><p>　　Dim cn As New ADODB.Connection</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　'Download by http://www.codefans.net</p><p>　　Priva

42、te Sub Command1_Click()</p><p>　　Form2.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p>&

43、lt;p>　　Form3.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Form5.Show</p><

44、p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Form4.Show</p><p><b>　　Unload Me</b>&

45、lt;/p><p><b>　　End Sub</b></p><p>　　4.3商品信息查詢界面及其相關(guān)功能代碼</p><p>　　4.3.1查詢商品信息功能代碼</p><p>　　Private Sub Command1_Click()</p><p>　　str1 = "selec

46、t * from 商品表 where 商品號(hào)='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b><

47、/p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p>　　MsgBox "該商品不存在"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSourc

48、e = str1</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Text1.Text = rs("商品號(hào)")</p><p>　　Text2.Text = rs("商品名稱")</p><p&

49、gt;　　Text3.Text = rs("庫存量")</p><p>　　Text4.Text = rs("商品類型")</p><p>　　Text5.Text = rs("廠商")</p><p>　　Text6.Text = rs("單價(jià)")</p><p&g

50、t;<b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.3.2添加商品功能代碼</p><p>　　Private Sub Command2_Click()</p><p>　　str1 = "select * from 商品表 w

51、here 商品號(hào)='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p&

52、gt;　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p><b>　　rs.AddNew</b></p><p>　　rs("商品號(hào)") = Text1.Text</p><p>　　rs("商品名稱") = Text

53、2.Text</p><p>　　rs("庫存量") = Text3.Text</p><p>　　rs("商品類型") = Text4.Text</p><p>　　rs("廠商") = Text5.Text</p><p>　　rs("單價(jià)") = Text6

54、.Text</p><p><b>　　rs.Update</b></p><p>　　MsgBox "數(shù)據(jù)添加成功", 64, "信息提示"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSourc

55、e = "select * from 商品表"</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p

56、><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p><b>　　Else</b></p><p>　　MsgBox "

57、該商品已經(jīng)存在了", 16, "警告"</p><p><b>　　End If </b></p><p><b>　　End Sub</b></p><p>　　4.3.3刪除商品信息功能代碼</p><p>　　Private Sub Command4_Click(

58、)</p><p>　　Dim rs As New ADODB.Recordset</p><p>　　Dim rs1 As New ADODB.Recordset</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p>

59、<b>　　End If</b></p><p>　　If rs1.State = 1 Then</p><p><b>　　rs1.Close</b></p><p><b>　　End If</b></p><p>　　rs1.Open "select * fro

60、m 商品表 where 商品號(hào)='" & Text1.Text & "'and 商品名稱='" & Text2.Text & "'", cn, 1, 3</p><p>　　If rs1.EOF Then</p><p>　　MsgBox "沒有此種商品不能刪除！&

61、quot;</p><p><b>　　Else</b></p><p>　　rs.Open "delete 商品表 where 商品號(hào)='" & Text1.Text & "' and 商品名稱='" & Text2.Text & "'",

62、 cn, 1, 3</p><p>　　MsgBox "確定刪除嗎", 32 + 4, "警告"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 商品表"</p>&

63、lt;p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""<

64、/p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p><b>　　End Sub</b></p><p>　　4.3.4商品信

65、息功能與數(shù)據(jù)庫連接代碼</p><p>　　Private Sub Form_Load()</p><p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p>&

66、lt;p><b>　　cn.Open</b></p><p><b>　　End Sub</b></p><p>　　4.4銷售記錄查詢界面及其相關(guān)功能代碼</p><p>　　4.4.1查詢已銷售商品信息功能代碼</p><p>　　Private Sub Command1_Click()&

67、lt;/p><p>　　str1 = "select * from 銷售表 where 銷售號(hào)='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p>

68、<p><b>　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p>　　MsgBox "該銷售商品不存在"</p><p>　　Adodc1.CommandType = adCmdTex

69、t</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Text1.Text = rs("銷售號(hào)")</p><p>　　Text2.Tex

70、t = rs("職工號(hào)")</p><p>　　Text3.Text = rs("商品號(hào)")</p><p>　　Text4.Text = rs("銷售數(shù)量")</p><p>　　Text6.Text = rs("銷售時(shí)間")</p><p><b>

71、　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.4.2添加已銷售商品信息功能代碼</p><p>　　Private Sub Command2_Click()</p><p>　　str1 = "select * from 銷售表 where 銷

72、售號(hào)='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　r

73、s.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p><b>　　rs.AddNew</b></p><p>　　rs("銷售號(hào)") = Text1.Text</p><p>　　rs("職工號(hào)") = Text2.Text&

74、lt;/p><p>　　rs("商品號(hào)") = Text3.Text</p><p>　　rs("銷售數(shù)量") = Text4.Text</p><p>　　rs("銷售時(shí)間") = Text6.Text</p><p><b>　　rs.Update</b><

75、;/p><p>　　MsgBox "數(shù)據(jù)添加成功", 64, "信息提示"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 銷售表"</p><p>　　Ado

76、dc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p

77、>　　Text6.Text = ""</p><p><b>　　Else</b></p><p>　　MsgBox "該種銷售商品已經(jīng)存在了", 16, "警告"</p><p><b>　　End If</b></p><p>&

78、lt;b>　　End Sub</b></p><p>　　4.4.3刪除已銷售商品信息功能代碼</p><p>　　Private Sub Command3_Click()</p><p>　　If Adodc1.Recordset.EOF = False Then</p><p>　　c = MsgBox("您確

79、認(rèn)要?jiǎng)h除該記錄嗎?", 32 + 4, "特別提示")</p><p>　　X = Adodc1.Recordset.Fields(0)</p><p>　　If c = vbYes Then</p><p>　　str1 = "select * from 銷售表 where 銷售號(hào)='x" & &

80、quot;'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p&

81、gt;　　'Adodc1.Recordset.Delete</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 銷售表"</p><p>　　Adodc1.Refresh</p><p>　　

82、MsgBox "銷售商品的所有信息成功刪除", 64, "信息提示"</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text

83、 = ""</p><p>　　Text4.Text = ""</p><p>　　Text6.Text = ""</p><p><b>　　End If</b></p><p><b>　　Else</b></p><

84、;p>　　MsgBox "當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄", 64, "警告"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.4.4銷售商品信息表與數(shù)據(jù)庫連接代碼</p><p

85、>　　Private Sub Form_Load()</p><p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p><p><b>　　cn.Open&l

86、t;/b></p><p><b>　　End Sub</b></p><p>　　4.5員工信息查詢界面及其相關(guān)功能代碼</p><p>　　4.5.1添加員工信息功能代碼</p><p>　　Private Sub Command1_Click()</p><p>　　str1 = &q

87、uot;select * from 銷售人員表 where 職工號(hào)='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>　　End If<

88、;/b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p><b>　　rs.AddNew</b></p><p>　　rs("職工號(hào)") = Text1.Text</p><p>　　rs

89、("姓名") = Text2.Text</p><p>　　rs("性別") = Text3.Text</p><p>　　rs("用戶類型") = Text4.Text</p><p><b>　　rs.Update</b></p><p>　　MsgBox

90、"用戶添加成功", 64, "信息提示"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 銷售人員表"</p><p>　　Adodc1.Refresh</p>&l

91、t;p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p><b>　　Else</b

92、></p><p>　　MsgBox "該職工已經(jīng)存在了", 16, "警告"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.5.2查詢員信息功能代碼</p>

93、<p>　　Private Sub Command2_Click()</p><p>　　str1 = "select * from 銷售人員表 where 職工號(hào)='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p>

94、;<b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　If rs.EOF Then</p><p>　　MsgBox "這個(gè)職工不存在"</p>

95、<p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Text1.Text = rs("職

96、工號(hào)")</p><p>　　Text2.Text = rs("姓名")</p><p>　　Text3.Text = rs("性別")</p><p>　　Text4.Text = rs("用戶類型")</p><p>　　Adodc1.CommandType = adC

97、mdText</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　4.5.3刪除員

98、工信息功能代碼</p><p>　　Private Sub Command4_Click()</p><p>　　If Adodc1.Recordset.EOF = False Then</p><p>　　c = MsgBox("您確認(rèn)要?jiǎng)h除該記錄嗎?", 32 + 4, "特別提示")</p><p&g

99、t;　　X = Adodc1.Recordset.Fields(0)</p><p>　　If c = vbYes Then</p><p>　　str1 = "select * from 銷售人員表 where 職工號(hào)='x" & "'"</p><p>　　If rs.State = 1 Then

100、</p><p><b>　　rs.Close</b></p><p><b>　　End If</b></p><p>　　rs.Open str1, cn, 1, 3</p><p>　　Adodc1.Recordset.Delete</p><p>　　Adodc1.C

101、ommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 銷售人員表"</p><p>　　Adodc1.Refresh</p><p>　　MsgBox "職工信息成功刪除", 64, "信息提示"</p>&

102、lt;p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""<

103、/p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄", 64, "警告"</p><p><b>　　End If</b><

104、/p><p><b>　　End Sub</b></p><p>　　4.5.4員工信息查詢功能與數(shù)據(jù)庫連接的代碼</p><p>　　Private Sub Form_Load()</p><p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Se

105、curity=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p><p><b>　　cn.Open</b></p><p><b>　　End Sub</b></p><p><b>　　5.數(shù)據(jù)設(shè)計(jì)</b></p&g

106、t;<p>　　5.1數(shù)據(jù)庫中各數(shù)據(jù)表的說明</p><p>　　5.1.1登陸表功能說明及其創(chuàng)建的SQL代碼（表5.1）</p><p>　　用戶名：存放用戶登錄系統(tǒng)的用戶名</p><p>　　密 碼：存放用戶登錄系統(tǒng)的密碼</p><p><b>　　圖5.1 登陸表</b></p>

107、<p>　　創(chuàng)建登錄表的SQl代碼</p><p>　　USE [超市管理]</p><p><b>　　GO</b></p><p>　　SET ANSI_NULLS ON</p><p><b>　　GO</b></p><p>　　SET QUOTED_IDE

108、NTIFIER ON</p><p><b>　　GO</b></p><p>　　SET ANSI_PADDING ON</p><p><b>　　GO</b></p><p>　　CREATE TABLE [dbo].[登錄表](</p><p>　　[用戶名] [ch

109、ar](10) NOT NULL,</p><p>　　[密碼] [char](10) NOT NULL</p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　SET ANSI_PADDING OFF</p><p><b>　　

110、GO</b></p><p>　　5.1.2商品表說明及及其創(chuàng)建的SQL代碼（表5.2）</p><p>　　商品號(hào)：系統(tǒng)分配給商品的唯一的標(biāo)示值（主鍵）</p><p>　　商品名稱：用于存放商品的名稱的信息</p><p>　　單價(jià)：用于存放商品的價(jià)格的信息</p><p>　　商品類型：用于存放商品所

111、屬的類型信息</p><p>　　庫存量：用于存放商品的庫存的信息</p><p>　　廠商：用于存放商品的生產(chǎn)商家的信息</p><p><b>　　表5.2 商品表</b></p><p>　　創(chuàng)建商品表的SQL代碼</p><p>　　USE [超市管理]</p><p&

112、gt;<b>　　GO</b></p><p>　　SET ANSI_NULLS ON</p><p><b>　　GO</b></p><p>　　SET QUOTED_IDENTIFIER ON</p><p><b>　　GO</b></p><p&g

113、t;　　SET ANSI_PADDING ON</p><p><b>　　GO</b></p><p>　　CREATE TABLE [dbo].[商品表](</p><p>　　[商品號(hào)] [varchar](50) NOT NULL,</p><p>　　[商品名稱] [varchar](50) NOT NULL,

114、</p><p>　　[單價(jià)] [float] NULL,</p><p>　　[商品類型] [varchar](50) NULL,</p><p>　　[庫存量] [char](10) NULL,</p><p>　　[廠商] [varchar](50) NULL,</p><p>　　CONSTRAINT [PK_

115、商品表] PRIMARY KEY CLUSTERED </p><p><b>　　(</b></p><p><b>　　[商品號(hào)] ASC</b></p><p>　　)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF,

116、ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]</p><p>　　) ON [PRIMARY]</p><p><b>　　GO</b></p><p>　　SET ANSI_PADDING OFF</p><p><b>　　GO<

117、/b></p><p>　　5.1.3銷售表說明及及其創(chuàng)建的SQL代碼（表5.3）</p><p>　　銷售號(hào)：系統(tǒng)分配給所銷售商品的唯一編號(hào)</p><p>　　職工號(hào)：存放銷售該商品的職工編號(hào)</p><p>　　銷售數(shù)量：存放銷售商品的數(shù)量</p><p>　　銷售時(shí)間：存放銷售該商品的時(shí)間</p&g

118、t;<p><b>　　表5.3 銷售表</b></p><p>　　創(chuàng)建銷售表的SQL代碼</p><p>　　USE [超市管理]</p><p><b>　　GO</b></p><p>　　SET ANSI_NULLS ON</p><p><b&

119、gt;　　GO</b></p><p>　　SET QUOTED_IDENTIFIER ON</p><p><b>　　GO</b></p><p>　　SET ANSI_PADDING ON</p><p><b>　　GO</b></p><p>　　CRE

120、ATE TABLE [dbo].[銷售表](</p><p>　　[銷售號(hào)] [varchar](50) NOT NULL,</p><p>　　[職工號(hào)] [varchar](50) NOT NULL,</p><p>　　[商品號(hào)] [varchar](50) NOT NULL,</p><p>　　[銷售數(shù)量] [float] NOT

121、NULL,</p><p>　　[銷售時(shí)間] [datetime] NOT NULL,</p><p>　　CONSTRAINT [PK_銷售表] PRIMARY KEY CLUSTERED </p><p><b>　　(</b></p><p><b>　　[銷售號(hào)] ASC</b></p

122、><p>　　)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]</p><p>　　) ON [PRIMARY]</p><p><b>　　G

123、O</b></p><p>　　SET ANSI_PADDING OFF</p><p><b>　　GO</b></p><p>　　5.1.3職工表說明及及其創(chuàng)建的SQL代碼（表5.4）</p><p>　　職工號(hào)：存放職工編號(hào)信息</p><p>　　姓名：存放職工的姓名<

124、/p><p>　　性別：存放職工的性別信息</p><p>　　用戶類型：存放職工所屬的類型</p><p><b>　　職工表（表5.4）</b></p><p>　　創(chuàng)建職工表的SQL代碼</p><p>　　USE [超市管理]</p><p><b>　　GO

125、</b></p><p>　　SET ANSI_NULLS ON</p><p><b>　　GO</b></p><p>　　SET QUOTED_IDENTIFIER ON</p><p><b>　　GO</b></p><p>　　SET ANSI_PAD

126、DING ON</p><p><b>　　GO</b></p><p>　　CREATE TABLE [dbo].[銷售人員表](</p><p>　　[職工號(hào)] [varchar](50) NOT NULL,</p><p>　　[姓名] [char](10) NOT NULL,</p><p&g

127、t;　　[性別] [char](10) NOT NULL,</p><p>　　[用戶類型] [varchar](50) NULL,</p><p>　　CONSTRAINT [PK_銷售人員表] PRIMARY KEY CLUSTERED </p><p><b>　　(</b></p><p><b>　　

128、[職工號(hào)] ASC</b></p><p>　　)WITH(PAD_INDEX=OFF,STATISTICS_NORECOMPUTE=OFF, IGNORE_DUP_KEY=OFF,ALLOW_ROW_LOCKS=ON, </p><p>　　ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]</p><p>　　) ON [PRIM

129、ARY]</p><p><b>　　GO</b></p><p>　　SET ANSI_PADDING OFF</p><p><b>　　GO</b></p><p><b>　　6.經(jīng)驗(yàn)與體會(huì)</b></p><p>　　通過此次數(shù)據(jù)庫的課程設(shè)計(jì)，

130、真正達(dá)到了學(xué)與用的結(jié)合，增強(qiáng)了對(duì)數(shù)據(jù)庫方面應(yīng)用的理解，對(duì)自己今后參與開發(fā)數(shù)據(jù)庫系統(tǒng)積累了不少經(jīng)驗(yàn)，在實(shí)驗(yàn)過程中，從建立數(shù)據(jù)開始，對(duì)數(shù)據(jù)庫設(shè)計(jì)理念及思想上有更高的認(rèn)識(shí)，從需求分析，到概念設(shè)計(jì)和邏輯設(shè)計(jì)的過度，懂得了不少有關(guān)數(shù)據(jù)庫開發(fā)過程中的知識(shí)，在實(shí)驗(yàn)中建表，及其關(guān)系模式，關(guān)系代數(shù)的建立及理解，增強(qiáng)了自己在數(shù)據(jù)庫中應(yīng)用SQL語言的靈活性。</p><p>　　在學(xué)習(xí)過程中，我也上網(wǎng)查了不少資料，也看了一些別人設(shè)計(jì)的

131、小型超市管理系統(tǒng)的設(shè)計(jì)報(bào)告，學(xué)以致用，自我創(chuàng)新，獨(dú)立完成了這份自己的報(bào)告，從中從學(xué)到用，從用又到學(xué)，不斷修改，系統(tǒng)更新。雖然不能達(dá)到完善系統(tǒng)，但也做到了盡善盡美，加強(qiáng)理論學(xué)習(xí)對(duì)完善系統(tǒng)會(huì)有很多幫助，知識(shí)是無限的，我以后還會(huì)在這個(gè)領(lǐng)域不斷的進(jìn)行探索，掌握更多的知識(shí)。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1]基于VB和SQL的數(shù)據(jù)庫編程技術(shù)