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

1、1緒論11課題研究意義11.2課題研究目的22 .系統(tǒng)開發(fā)工具22.1 visual basic 簡介22.1.1面向?qū)ο蟮目梢暬?2.12事件驅(qū)動(dòng)的編程機(jī)制22.1.3.提供強(qiáng)大的數(shù)據(jù)庫訪問工具22.2. sql server 2005 數(shù)據(jù)庫的簡介33. 可行研究和需求分析性33可行性研究33.2需求分析43.3系統(tǒng)層次劃分43.3.1系統(tǒng)層次劃分如圖3.1所示44. 系統(tǒng)總體設(shè)計(jì)54注冊及登錄54.1注冊功能及代碼（圖4.1） 54.1.2登錄功能代碼64.1.3登錄界面相關(guān)功能與數(shù)據(jù)庫連接的代碼74.2登錄后主界面功能及界面及其相關(guān)功能代碼74.2.2主界面相關(guān)功能代碼74.3商品信息

2、查詢界面及其相關(guān)功能代碼84.3.1查詢商品信息功能代碼94.3.2 添力口商品功能代碼94.3.3刪除商品信息功能代碼104.3.4商品信息功能與數(shù)據(jù)庫連接代碼114.4銷售記錄查詢界面及其相關(guān)功能代碼124.4.1查詢已銷售商品信息功能代碼124.4.2添加己銷售商品信息功能代碼134.4.3刪除已銷售商品信息功能代碼144.4.4銷售商品信息表與數(shù)據(jù)庫連接代碼154.5員工信息查詢界面及其相關(guān)功能代碼154.5.1添加員工信息功能代碼154.5.2查詢員信息功能代碼164.5.3刪除員工信息功能代碼174.5.4員工信息查詢功能與數(shù)據(jù)庫連接的代碼185. 數(shù)據(jù)設(shè)計(jì)185.1數(shù)據(jù)庫中各數(shù)據(jù)

3、表的說明1851登陸表功能說明及其創(chuàng)建的sql代碼（表5.1） 185.2商品表說明及及其創(chuàng)建的sql代碼（表5.2） 195.1.3銷售表說明及及其創(chuàng)建的sql代碼（表5.3） 205.1.3職工表說明及及其創(chuàng)建的sql代碼（表5.4） 216 經(jīng)驗(yàn)與體會(huì)22參考文獻(xiàn)231.緒論隨著科學(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)行信息管理，不僅提高了工作效率，而且大大的提高了其安全性。 超市管理是超

4、市中不可缺少的垂要部分，超市的管理信息量繁多，包含很多信息的數(shù) 據(jù)管理。現(xiàn)今，大多數(shù)大型超市商場都使用計(jì)算機(jī)進(jìn)行信息管理，而小型超市商店仍 然采用傳統(tǒng)的人工管理方式，這種管理方式存在著許多缺點(diǎn)，如：效率低、工作量大 等，而且，隨著購買者與超市數(shù)量的增長，對于超市的銷售、進(jìn)貨、退貨、交易管理 等等，使更新和維護(hù)都帶來了不少的困難。本系統(tǒng)就是為了改變傳統(tǒng)的超市商店這種 現(xiàn)狀所設(shè)計(jì)的。使用計(jì)算機(jī)對超市進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點(diǎn)。例如:查看迅速、 查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠使超 市管理進(jìn)入科學(xué)化、正規(guī)化的軌道。1.1課題研究意義首先，該課題屈于管

5、理信息系統(tǒng)范疇。而管理信息系統(tǒng)(management information system,簡稱mis)在現(xiàn)代社會(huì)已深入到各行各業(yè)，是1個(gè)不斷發(fā)展的新學(xué)科，是由人 和計(jì)算機(jī)設(shè)備或其他信息處理手段組成并用于管理信息的系統(tǒng)。再加上行業(yè)信息化的 熱潮才剛剛開始,特別是中小型企業(yè)的信息化建設(shè)步伐剛剛邁出第1步。管理信息系 統(tǒng)的開發(fā)的市場將是非常龐大的。這種需求對開發(fā)人員在數(shù)量上和素質(zhì)上的要求也是 非常迫切的。為了滿足市場的需求以及能在競爭中取勝，系統(tǒng)設(shè)計(jì)人員就不僅僅是單 純地滿足用戶對功能的要求，還要從設(shè)計(jì)方法上來加以改進(jìn)。其次，面向?qū)ο蠓椒ㄊ?種非常實(shí)用的軟件開發(fā)方法，它一出現(xiàn)就受到軟件技術(shù) 人員的

6、青睞，現(xiàn)在已經(jīng)成為計(jì)算機(jī)科學(xué)研究的一個(gè)重要領(lǐng)域，并逐漸成為軟件開發(fā)的 1種主要方法。面向?qū)ο蟮某绦蛟O(shè)計(jì)將數(shù)據(jù)及對數(shù)據(jù)的操作方法封裝在1起，作為1 個(gè)互相依存、不可分離的整體。采用這種方法來設(shè)計(jì)系統(tǒng)，可以增加系統(tǒng)的安全性。 同時(shí)通過繼承與多態(tài)性,使程序具有很高的可重用性，使軟件的開發(fā)和維護(hù)帶來了方 便。由于面向?qū)﹀璺椒ǖ耐怀鰞?yōu)點(diǎn)，它才被廣大用戶所愛好。1.2課題研究目的研究該課題是為了通過對“小型超市管理系統(tǒng)”的設(shè)計(jì)與實(shí)現(xiàn)，熟悉這類的信息管 理系統(tǒng)的開發(fā)原理及流程。在設(shè)計(jì)過程，能夠深入地理解而向?qū)ο笤O(shè)計(jì)方法的優(yōu)越性, 獲得這些方面的相關(guān)經(jīng)驗(yàn)。對1個(gè)即將畢業(yè)的計(jì)算機(jī)專業(yè)本科生來說,又想在軟件行 業(yè)

7、領(lǐng)域里有所發(fā)展，研究并應(yīng)用面向?qū)ο笤O(shè)計(jì)方法是百益無1害的，可以使其走向社會(huì) 后能夠快速地適應(yīng)行業(yè)需求。這正是本次設(shè)計(jì)的根本目的所在。2. 系統(tǒng)開發(fā)工具2.1 visual basic 簡介211面向?qū)ο蟮目梢暬趘isual basic6.0中，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法（oop）,把程序和數(shù)據(jù)庫 封裝在一起視為一個(gè)對象，而且每個(gè)對象都是可視的，程序員在設(shè)計(jì)時(shí)只需用現(xiàn)有的 工具根據(jù)界而設(shè)計(jì)的要求，直接在“窗體”上畫出諸如“按扭”、“滾動(dòng)條”、“文本框"等 不同類型的對彖，并為它們設(shè)置“屬性"編寫“事件”代碼即可，從而大大簡化了設(shè)計(jì)的 復(fù)雜度。2.1.2. 事件驅(qū)動(dòng)的編程機(jī)制

8、visual basic6.0通過事件驅(qū)動(dòng)來執(zhí)行對彖的操作。在事件驅(qū)動(dòng)的程序屮，代碼不 是按照預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼模塊。每個(gè)對象都 有一個(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í)行代碼， 只需編寫一些針對事件的許多小的模塊子程序（也稱過程）。2

9、.1.3. 提供強(qiáng)大的數(shù)據(jù)庫訪問工具隨著計(jì)算機(jī)技術(shù)的發(fā)展，數(shù)據(jù)庫越來越顯示出其強(qiáng)大的數(shù)據(jù)存儲(chǔ)和數(shù)據(jù)管理能 力。為了滿足人們對數(shù)據(jù)庫的需要，visual basic提供了強(qiáng)大的數(shù)據(jù)庫程序設(shè)計(jì)能力。 它不僅能管理microsoft access格式的數(shù)據(jù)庫，還能訪問其他外部數(shù)據(jù)庫，如foxpro,paradox等格式的數(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ū)ο?/p>

10、的庫操作命令、多用戶數(shù)據(jù)庫的加鎖機(jī)制和網(wǎng)絡(luò) 數(shù)據(jù)庫的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供sql網(wǎng)絡(luò)接口，以便于在分布式環(huán) 境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器方案。22 sql server 2005數(shù)據(jù)庫的簡介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)。sql（structured query language）,結(jié)構(gòu)化查詢語言。sql語言的

11、主要功能就是同 各種數(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ù)庫都對sql語句進(jìn)行了再開發(fā)和擴(kuò)展， 但是包括select, insert, update, delete, create,以及drop在內(nèi)的標(biāo)準(zhǔn)的sql命令仍然 可以被用來完成幾乎所有的數(shù)據(jù)庫操作。3. 可行研究和需求分析性軟件開發(fā)最初的工作就是問題定義，也就是確定超市中要求解決的問題是什么； 做好軟件定

12、義時(shí)期的工作是降低軟件成木提高軟件質(zhì)量的關(guān)鍵。在軟件開發(fā)的不同階 段進(jìn)行修改需要付出的代價(jià)是很不相同的，越在早期改正錯(cuò)誤，付出的代價(jià)就越小， 了解了它的重要性之后，我明白前期工作一定要做好才能更好地提高工作效率。我把 任務(wù)超市又仔細(xì)地研究了一遍，充分明白了它的要求后，接下來作可行性研究，只有 做好可行性研究才有可能把以后的工作做好。3.1可行性研究可行性研究的目的就是用最小的代價(jià)在盡可能短的時(shí)間內(nèi)確定問題是否能夠解 決?？尚行匝芯康哪康牟皇墙鉀Q問題，而是確定問題是否值得去解決。不能靠主觀猜想，只能靠客觀分析。首先應(yīng)該近一步地分析和澄清問題定義，如果正確則進(jìn)一步加以肯定，如果有錯(cuò) 則應(yīng)立刻改正，

13、經(jīng)過仔細(xì)審查，然后從三方面分析它的可行性：(1) 技術(shù)可行性(即使用現(xiàn)有的技術(shù)能實(shí)現(xiàn)這個(gè)系統(tǒng)嗎)：vb功能強(qiáng)大，能用簡單的方法完成復(fù)雜的問題。(2) 操作可行性(系統(tǒng)的操作方式在這個(gè)用戶組織能行的通嗎)：本系統(tǒng)操作簡單，系統(tǒng)的運(yùn)行不需要特定的環(huán)境。(3) 經(jīng)濟(jì)可行性(系統(tǒng)的經(jīng)濟(jì)效益是否能超過它的開發(fā)成本)：產(chǎn)生的經(jīng)濟(jì)效益遠(yuǎn)超過它的開發(fā)成本。3.2需求分析需求分析是軟件定義時(shí)期的最后一個(gè)階段，它的基本任務(wù)是準(zhǔn)確地回答“系統(tǒng)必 須做什么''這個(gè)問題，需求分析的任務(wù)述不是確定系統(tǒng)怎樣完成它的工作，而僅僅是 確定系統(tǒng)必須完成哪些工作，也就是對fi標(biāo)系統(tǒng)提出完整、準(zhǔn)確、清晰、具體的要求。

14、 可行性研究階段產(chǎn)生的文檔是需求分析的出發(fā)點(diǎn)。需求分析階段系統(tǒng)本人仔細(xì)研究超 市管理系統(tǒng)應(yīng)實(shí)現(xiàn)的功能并將它們具體化。針對般超市管理系統(tǒng)的需求，通過對超市管理工作過程的內(nèi)容分析與本人所要 承擔(dān)的任務(wù)，設(shè)計(jì)出下面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：(1) 商品信息查詢：包括商品號(hào)、商品名稱、單價(jià)、商品類型、庫存量、廠商等信息。(2) 銷售記錄查詢：包括銷售號(hào)、銷售職工號(hào)、商品號(hào)和銷售時(shí)間等信息。(3) 銷售員工信息表，包含的數(shù)據(jù)項(xiàng)有職工號(hào)、姓名、性別和用戶類型等3.3系統(tǒng)層次劃分3.3.1系統(tǒng)層次劃分如圖3.1所示小型超市管理系統(tǒng)商品信息查詢銷售記錄查詢銷售員工信息圖3. 1系統(tǒng)層次劃分圖4系統(tǒng)總體設(shè)計(jì)4.1注冊

15、及登錄該功能可以實(shí)現(xiàn)用戶的注冊和登錄逐 小璧趨市后臺(tái)管理小型超市管理系統(tǒng)登陸界面退出411注冊功能及代碼（圖4.1）國 i小型超市管理系統(tǒng)登陸界面用戶名李敏龍密碼登錄注冊退出圖4.1用戶注冊注冊功能代碼private sub 注冊_click()if text 1.text = ” or text2.text = ,h, thenmsgbox ”用戶名和密碼不能為空”，16 + 4, ”警告”elsedim rs as new adodb .recordsetstrl = "select * from 登錄表 where 用戶名& text 1.text & ”rs.

16、open strl, cn, 1, 3rs.addnewrs(”用戶名 h) = text 1.textrs(”密碼m) = text2.textrs.updatemsgbox ”注冊成功”,64, ”信息提示”end ifend sub4.1.2登錄功能代碼private sub commandl_click()strsql = "select * from 登錄表 where 用戶名& text 1 .text & n," & "and 密碼&text2.text & rs.open strsql, cn, 1, 3if

17、 rs.eof thenmsgbox ”用戶名或密碼錯(cuò)了”, 32, ”警告”elseform5.showunload meend ifend sub4.1.3登錄界面相關(guān)功能與數(shù)據(jù)庫連接的代碼private sub form_load()cn.connectionstring = mprovider=sqloledb. 1 integrated security=sspi;persistsecurity info=false;initial catalog=超市管理”cn.openend sub4.2登錄后主界面功能及界面及其相關(guān)功能代碼4.2.1登錄后主界面（圖4.2）圖4.2登錄后主界面

18、4.2.2主界面相關(guān)功能代碼dim cn as new adodb.connectiondim rs as new adodb .recordset'download by private sub command 1 _click()form2.showunload meend subprivate sub command2_click()form3.showunload meend subprivate sub command3_click()form5.showunload meend subprivate sub command4_click()form4.showunload

19、meend sub4.3商品信息查詢界面及其相關(guān)功能代碼4.3.1查詢商品信息功能代碼private sub command 1 _click（）strl = "select * from 商品表 where 商品號(hào)& text 1 .text &if rs.state = 1 thenrs.closeend ifrs.open strl, cn, 1, 3if rs.eof thenmsgbox ”該商品不存在”adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = strladodc 1. refreshel

20、setext 1 .text = rs（h 商品號(hào)"）text2.text = rs（n 商品名稱”）text3.text = rs（"庫存量”）text4.text = rs（”商品類型”）text5.text = rs（m 廠商 jtext6.text = rs（n 單價(jià)”）end ifend sub4.3.2添加商品功能代碼private sub command2_click（）strl = "select * from 商品表 where 商品號(hào)& text 1.text &innuniif rs.state = 1 then rs.clo

21、seend ifrs.open strl, cn, 1,3ifrs.eofthenrs.addnewts（"商品號(hào)"）=text 1 .textrs（”商品名稱”）二 text2.textrsc庫存量”）二 text3.textrs（”商品類型h） = text4.textrs（”廠商”）=text5.textrs（” 單價(jià)h） = text6.textrs.updatemsgbox ”數(shù)據(jù)添加成功”,64, ”信息提示”adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = "select * from 商

22、品表”adodc 1. refreshtextl.text=,n,text2.text 二"ntext3.text=,u,text4.text = ”tex t5.text = ”text6.text = ”elsemsgbox ”該商品已經(jīng)存在了”，16, ”警告”end ifend sub4.3.3刪除商品信息功能代碼private sub command4_click（）dim rs as new adodb.recordsetdim rsl as new adodb.recordsetif rs.state = 1 then rs.closeend ifif rs i.sta

23、te = 1 then rsl.closeend ifrsl.open "select * from 商品表 where 商品號(hào)三"& text 1 .text & "'and 商品名稱三"& text2.text &, cn, 1,3if rsl.eof thenmsgbox "沒有此種商品不能刪除！”elsers.open "delete 商品表 where 商品號(hào)二"& text 1 .text & and 商品名稱三” &text2.text&，

24、cn, 1,3msgbox ”確定刪除嗎”,32 + 4, ”警告”adodcl .commandtype = adcmdtextadodcl .recordsource = "select * from 商品表”adodcl. refreshend iftextl.text=,ntext2.text = n,'text 3.text = ,h,text4.text = ,m,text5.text=,h,text6.text = ”end sub4.3.4商品信息功能與數(shù)據(jù)庫連接代碼private sub form_load()cn.connectionstring =&qu

25、ot;provider=sqloledb. 1 integratedsecurity=sspi;persistsecurity info=false;initial catalog二超市管理”cn.openend sub4.4銷售記錄查詢界面及其相關(guān)功能代碼4.4.1查詢已銷售商品信息功能代碼private sub command 1 _click（）strl = "select * from 銷售表 where 銷售號(hào)& text 1 .text & ,nif rs.state = 1 thenrs.closeend ifrs.open strl, cn, 1, 3

26、ifrs.eofthenmsgbox ”該銷售商品不存在”adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = strladodc 1. refreshelsetext 1.text 二 rs（”銷售號(hào)”）text2.text = rs（n 職工號(hào)”）text3.text = rs（n 商品號(hào)”）text4.text = rs（”銷售數(shù)量”）text6.text = rs（”銷售時(shí)間”）end ifend sub4.4.2添加已銷售商品信息功能代碼private sub command2_click（）strl = "sele

27、ct * from 銷售表 where 銷售號(hào)三” & text 1.text & 心if rs.state = 1 thenrs.closeend ifrs.open strl, cn, 1, 3if rs.eof thenrs.addnewrs（” 銷售號(hào) h）= text 1.textts（"職工號(hào)"）=text2.textts（"商品號(hào)"）=text3.textrs（” 銷售數(shù)量"）=text4.textrs（”銷售時(shí)間h） = text6.textrs.updatemsgbox ”數(shù)據(jù)添加成功”,64, ”信息提示”a

28、dodc 1 .commandtype = adcmdtextadodc 1 .recordsource = "select * from 銷售表”adodc 1. refreshtext 1.text 二”text2.text = ,mtext3.text = ,mtext4.text = "ntext6.text="nelsemsgbox ”該種銷售商品已經(jīng)存在了”，16, ”警告”end ifend sub443刪除已銷售商品信息功能代碼private sub command3_click()if adodc 1 .recordset.eof = false

29、 thenc = msgbox("您確認(rèn)要?jiǎng)h除該記錄嗎?”, 32 + 4, ”特別提示”)x 二 adodc 1 .recordset.fields(o)if c = vbyes thenstrl = "select * from 銷售表 where 銷售號(hào)二乂 & if rs.state = 1 thenrs.closeend ifrs.open strl, cn, 1, 3'adodc 1 .recordset.deleteadodc 1 .commandtype = adcmdtextadodc 1 .recordsource = "sel

30、ect * from 銷售表”adodc 1. refreshmsgbox ”銷售商品的所有信息成功刪除”,64, ”信息提示”adodc 1. refreshtext 1.text 二"text2.text 二"text3.text=,h,text4.text =""text6.text =""end ifelsemsgbox ”當(dāng)前數(shù)據(jù)庫中己經(jīng)沒有可刪除的記錄j 64警告”end ifend sub4.4.4銷售商品信息表與數(shù)據(jù)庫連接代碼private sub form_load() cn.connectionstring = h

31、provider=sqloledb. 1 integrated security=sspi;persistsecurity info=false;initial catalog二超市管理”cn.openend sub4.5員工信息查詢界面及其相關(guān)功能代碼private sub command 1 _click()strl = "select * from 銷售人員表 where 職工號(hào)& text 1.text &if rs.state = 1 thenrs-closeend if rs.open strl, cn, 1,3ifrs.eofthenrs.addnewr

32、s（”職工號(hào)”）=text 1 .textrsc姓名”）二 text2.textrs（”性別”）二 text3.textrs（” 用戶類型h） = text4.textrs.updatemsgbox ”用戶添加成功”,64, ”信息提示”adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = "select * from 銷售人員表”adodc 1. refreshtext 1.text 二”text2.text = ,mtext3.text 二"ntext4.text 二"nelsemsgbox ”該職工已

33、經(jīng)存在了”，16, ”警告”end ifend sub4.5.2查詢員信息功能代碼private sub command2_click（）strl = "select * from 銷售人員表 where 職工號(hào)='"&text 1 .textif rs. state = 1 thenrs.closeend ifrs.open strl, cn, 1，3if rs.eof thenmsgbox ”這個(gè)職工不存在”adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = strladodcl. refres

34、helsetext 1.text 二 rs（”職工號(hào)”）text2.text = rs（n 姓名 jtext3.text = rs（h 性別”）text4.text = rs（n 用戶類型“）adodc 1 .commandtype = adcmdtextadodc 1 .recordsource = strladodcl. refreshend ifend sub4.5.3刪除員工信息功能代碼private sub command4_click（）if adodc 1 .recordset.eof = false thenc = msgbox（"您確認(rèn)要?jiǎng)h除該記錄嗎?蔦32 + 4

35、, ”特別提示”）x = adodc 1 .recordset.fields（o）if c = vbyes thenstrl = "select * from 銷售人員表 where 職工號(hào)=,xn & nn,if rs.state = 1 thenrs.closeend ifrs.open str 1, cn, 1, 3adodcl .recordset. deleteadodc 1 .commandtype = adcmdtextadodc 1 .recordsource = "select * from 銷售人員表”adodcl. refreshmsgbox

36、”職工信息成功刪除”,64, ”信息提示”adodcl. refreshtext 1.text 二”text2.text = hhtext3.text 二”text4.text 二 h"end ifelsemsgbox ”當(dāng)前數(shù)據(jù)庫中已經(jīng)沒有可刪除的記錄”,64, ”警告”end ifend sub4.5.4員工信息查詢功能與數(shù)據(jù)庫連接的代碼private sub form_load()cn.connectionstring = mprovider=sqloledb. 1 integrated security=sspi;persistsecurity info=false;init

37、ial catalog二超市管理”cn.openend sub5數(shù)據(jù)設(shè)計(jì)5.1數(shù)據(jù)庫中各數(shù)據(jù)表的說明5.1.1登陸表功能說明及其創(chuàng)建的sql代碼（表5.1）用戶名：存放用戶登錄系統(tǒng)的用戶名密碼：存放用戶登錄系統(tǒng)的密碼列名數(shù)據(jù)類型允許null值甬戸召char(10)密碼char(10)圖5. 1登陸表創(chuàng)建登錄表的sq1代碼use 超市管理goset ansi nulls ongoset quoted_identifier ongoset ansi_padding ongocreate table dbo 登錄表(用戶名char (10) not null,密碼char (10) not null

38、)on primarygoset ansi_padding offgo512商品表說明及及其創(chuàng)建的sql代碼（表52）商品號(hào)：系統(tǒng)分配給商品的唯一的標(biāo)示值（主鍵）商品名稱：用于存放商品的名稱的信息單價(jià)：用于存放商品的價(jià)格的信息商品類型：用于存放商品所屈的類型信息庫存量：用于存放商品的庫存的信息廠商：用于存放商品的生產(chǎn)商家的信息列名1數(shù)據(jù)類型允許null值varchar(50)商品名稱varchar(50)單價(jià)float0商品類型varchar(50)0庫存量char(10)0廠商varchar(50)0表5. 2商品表創(chuàng)建商品表的sql代碼use 超市管理goset ansi_nulls on

39、goset quoted_identifier ongoset ansi_padding ongocreate table dbo.商品表商品號(hào)varchar (50) not null,商品名稱varchar (50) not null,單價(jià)float null,商品類型varchar (50) null,庫存量char (10) null,廠商varchar (50) null,constraint pk_商品表primary key clustered(商品號(hào)asc)with (pad_index = off, statistics_norecompute = off, ignore_d

40、up_key =off, allow_row_locks = on, allow_page_locks = on) on primary)on primarygoset anspadding offgo5丄3銷售表說明及及其創(chuàng)建的sql代碼（表53）銷售號(hào)：系統(tǒng)分配給所銷售商品的唯一編號(hào)職工號(hào)：存放銷售該商品的職工編號(hào)銷售數(shù)量：存放銷售商品的數(shù)量銷售時(shí)間：存放銷售該商品的時(shí)間列名數(shù)據(jù)類型允許null值varchar(50)職工號(hào)varchar(50)商品號(hào)varchar(50)銷售數(shù)星float銷售時(shí)間datetime表5. 3銷售表創(chuàng)建銷售表的sql代碼use 超市管理goset ansi_nulls ongoset quoted_identifier ongoset ansi_padding ongocreate table dbo.銷售表(銷售號(hào)varchar (50) not null