超市銷售系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)

1、超市銷售系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)題 目：超市管理系統(tǒng) 指導(dǎo)老師：姓 名： 學(xué) 號： 班 級： 時(shí) 間： 2011-12-29 目 錄1、相關(guān)技術(shù)介紹21.1、sql server 2000 的特性21.2、delphi 7 + ado 介紹32、需求分析33、數(shù)據(jù)庫概念設(shè)計(jì)63.1 數(shù)據(jù)庫的物理設(shè)計(jì)63.2 數(shù)據(jù)庫的實(shí)現(xiàn)64、數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)74.1系統(tǒng)模塊圖和系統(tǒng)模塊功能74.2模塊功能說明：75、delphi界面設(shè)計(jì)75.1 delphi的一些簡單控件：75.2基本界面的展示，其中會(huì)附加上功能與解釋：8、結(jié)束語與體會(huì)14、附錄：含代碼151、相關(guān)技術(shù)介紹1.1、sql server 2000 的

2、特性microsoft® sql server 2000 的特性包括： 1、internet 集成sql server 2000 數(shù)據(jù)庫引擎提供完整的 xml 支持。它還具有構(gòu)成最大的 web 站點(diǎn)的數(shù)據(jù)存儲(chǔ)組件所需的可伸縮性、可用性和安全功能。sql server 2000 程序設(shè)計(jì)模型與 windows dna 構(gòu)架集成，用以開發(fā) web 應(yīng)用程序，并且 sql server 2000 支持 english query 和 microsoft 搜索服務(wù)等功能，在 web 應(yīng)用程序中包含了用戶友好的查詢和強(qiáng)大的搜索功能。2、可伸縮性和可用性同一個(gè)數(shù)據(jù)庫引擎可以在不同的平臺上使用，從

3、運(yùn)行 microsoft windows® 98 的便攜式電腦，到運(yùn)行 microsoft windows 2000 數(shù)據(jù)中心版的大型多處理器服務(wù)器。sql server 2000 企業(yè)版支持聯(lián)合服務(wù)器、索引視圖和大型內(nèi)存支持等功能，使其得以升級到最大 web 站點(diǎn)所需的性能級別。3、企業(yè)級數(shù)據(jù)庫功能sql server 2000 關(guān)系數(shù)據(jù)庫引擎支持當(dāng)今苛刻的數(shù)據(jù)處理環(huán)境所需的功能。數(shù)據(jù)庫引擎充分保護(hù)數(shù)據(jù)完整性，同時(shí)將管理上千個(gè)并發(fā)修改數(shù)據(jù)庫的用戶的開銷減到最小。sql server 2000 分布式查詢使您得以引用來自不同數(shù)據(jù)源的數(shù)據(jù)，就好象這些數(shù)據(jù)是 sql server 200

4、0 數(shù)據(jù)庫的一部分，同時(shí)分布式事務(wù)支持充分保護(hù)任何分布式數(shù)據(jù)更新的完整性。復(fù)制同樣使您得以維護(hù)多個(gè)數(shù)據(jù)復(fù)本，同時(shí)確保單獨(dú)的數(shù)據(jù)復(fù)本保持同步?？蓪⒁唤M數(shù)據(jù)復(fù)制到多個(gè)移動(dòng)的脫接用戶，使這些用戶自主地工作，然后將他們所做的修改合并回發(fā)布服務(wù)器。4、易于安裝、部署和使用sql server 2000 中包括一系列管理和開發(fā)工具，這些工具可改進(jìn)在多個(gè)站點(diǎn)上安裝、部署、管理和使用 sql server 的過程。sql server 2000 還支持基于標(biāo)準(zhǔn)的、與 windows dna 集成的程序設(shè)計(jì)模型，使 sql server 數(shù)據(jù)庫和數(shù)據(jù)倉庫的使用成為生成強(qiáng)大的可伸縮系統(tǒng)的無縫部分。這些功能使您得以

5、快速交付 sql server 應(yīng)用程序，使客戶只需最少的安裝和管理開銷即可實(shí)現(xiàn)這些應(yīng)用程序。5、數(shù)據(jù)倉庫sql server 2000 中包括析取和分析匯總數(shù)據(jù)以進(jìn)行聯(lián)機(jī)分析處理 (olap) 的工具。sql server 中還包括一些工具，可用來直觀地設(shè)計(jì)數(shù)據(jù)庫并通過 english query 來分析數(shù)據(jù)1.2、delphi 7 + ado 介紹delphi是borland公司研制的新一代可視化開發(fā)工具，可在windows3.x、windows95、windowsnt、windowsxp、windows vista等環(huán)境下使用。當(dāng)前，delphi 也可以在linux平臺上開發(fā)應(yīng)用，其在l

6、inux上的對應(yīng)產(chǎn)品kylix。(1)直接編譯生成可執(zhí)行代碼，編譯速度快。由于delphi編譯器采用了條件編譯和選擇鏈接技術(shù)，使用它生成的執(zhí)行文件更加精煉，運(yùn)行速度更快。在處理速度和存取服務(wù)器方面，delphi的性能遠(yuǎn)遠(yuǎn)高于其他同類產(chǎn)品。 (2)支持將存取規(guī)則分別交給客戶機(jī)或服務(wù)器處理的兩種方案，而且允許開發(fā)人員建立一個(gè)簡單的部件或部件集合，封裝起所有的規(guī)則，并獨(dú)立于服務(wù)器和客戶機(jī)，所有的數(shù)據(jù)轉(zhuǎn)移通過這些部件來完成。這樣，大大減少了對服務(wù)器的請求和網(wǎng)絡(luò)上的數(shù)據(jù)傳輸量，提高了應(yīng)用處理的速度。 (3)提供了許多快速方便的開發(fā)方法，使開發(fā)人員能用盡可能少的重復(fù)性工作完成各種不同的應(yīng)用。利用項(xiàng)目模板和

7、專家生成器可以很快建立項(xiàng)目的構(gòu)架，然后根據(jù)用戶的實(shí)際需要逐步完善。 (4)具有可重用性和可擴(kuò)展性。開發(fā)人員不必再對諸如標(biāo)簽、按鈕及對話框等windows的常見部件進(jìn)行編程。delphi包含許多可以重復(fù)使用的部件，允許用戶控制windows的開發(fā)效果。 (5)具有強(qiáng)大的數(shù)據(jù)存取功能。它的數(shù)據(jù)處理工具bde(borlanddatabaseengine)是一個(gè)標(biāo)準(zhǔn)的中介軟件層，可以用來處理當(dāng)前流行的數(shù)據(jù)格式，如xbase、paradox等，也可以通過bde的sqllink直接與sybase、sqlserver、informix、oracle等大型數(shù)據(jù)庫連接。 delphi既可用于開發(fā)系統(tǒng)軟件，也適合

8、于應(yīng)用軟件的開發(fā)。(6)擁有強(qiáng)大的網(wǎng)絡(luò)開發(fā)能力，能夠快速的開發(fā)b/s應(yīng)用，它內(nèi)置的intraweb和expressweb使得對于網(wǎng)絡(luò)的開發(fā)效率超過了其他任何的開發(fā)工具。2、需求分析2.1系統(tǒng)目標(biāo)設(shè)計(jì)要求對商品等信息分類管理，對表中商品信息、入庫信息和銷售信息、員工信息、會(huì)員信息、供應(yīng)商信息進(jìn)行系統(tǒng)性的分析、設(shè)計(jì)，并形成系統(tǒng)設(shè)計(jì)說明書；2.2系統(tǒng)功能分析該教務(wù)信息統(tǒng)計(jì)系統(tǒng)需要提供便捷、美觀及豐富的界面以便能錄入各類數(shù)據(jù)；動(dòng)態(tài)查詢各類信息；能用圖形、報(bào)表和表格三種形式對教務(wù)信息網(wǎng)中的人員的各種情況進(jìn)行分析和統(tǒng)計(jì)；能打印各類統(tǒng)計(jì)信息；應(yīng)用程序采用多文擋界面的風(fēng)格，盡量用菜單。界面的風(fēng)格要多樣化，但必

9、須滿足用戶的要求。1、登錄權(quán)限：l 只限員工登錄：需用數(shù)據(jù)庫中的登錄名和密碼。2、員工權(quán)限：l 員工信息錄入與瀏覽：添加員工用戶名和密碼；l 商品信息查詢：根據(jù)索引進(jìn)行信息查詢，方便修改編輯；l 銷售信息查詢：員工可以進(jìn)行信息查詢，方便修改編輯；l 入庫信息瀏覽與錄入：經(jīng)操作后可對信息進(jìn)行瀏覽與錄入；l 會(huì)員信息瀏覽與錄入：經(jīng)操作后可對信息進(jìn)行瀏覽與錄入；l 會(huì)員充值信息錄入：員工可以給會(huì)員充值；l 供應(yīng)商信息瀏覽：經(jīng)瀏覽操作后可對信息進(jìn)行瀏覽；2.3數(shù)據(jù)字典1、員工信息表字段名類型員工編號char（10）員工姓名char（10）密碼char(10)性別char(2)職務(wù)char(20)2、會(huì)

10、員信息表字段名類型會(huì)員卡號char(10)會(huì)員姓名char（10）會(huì)員積分char(10)聯(lián)系電話char(20)賬戶余額float(8)3、會(huì)員充值記錄表字段名類型會(huì)員卡號char（10）充值金額char（10）賬戶余額int(4)4、供應(yīng)商信息表字段名類型供應(yīng)商編號char(10)供應(yīng)商名稱char（10）聯(lián)系人char(10)聯(lián)系電話char(10)聯(lián)系地址char(10)5、入庫信息表字段名類型入庫單char(10)入庫日期char（10）商品名稱char(10)進(jìn)貨量char(10)進(jìn)貨單價(jià)float(8)庫存量int(4)6、商品信息表字段名類型商品類別char(10)商品名稱ch

11、ar（10）供應(yīng)商char(10)商品規(guī)格char(10)商品進(jìn)價(jià)float(8)商品售價(jià)float(8)庫存量char(10)6、銷售信息表字段名類型銷售賬號char(10)商品類別char（10）商品名稱char(10)商品數(shù)量char(10)銷售總額float(8)銷售日期char(10)3、數(shù)據(jù)庫概念設(shè)計(jì)3.1 數(shù)據(jù)庫的物理設(shè)計(jì)1、數(shù)據(jù)庫的存放位置： 按要求運(yùn)用的是sql server2000中新建的數(shù)據(jù)庫，即教務(wù)信息數(shù)據(jù)庫下建立了相關(guān)的表，向表中輸入一些數(shù)據(jù)。2、系統(tǒng)配置：微機(jī)一臺，window xp系統(tǒng)，delphi7英文版程序開發(fā)開發(fā)，數(shù)據(jù)庫dbms是sql server2000

12、。3、系統(tǒng)索引： 數(shù)據(jù)索引在各個(gè)表中都建立了索引，目的是為了搜索的方便。比如：在學(xué)生信息表中除學(xué)生編號這個(gè)主鍵外，還設(shè)有姓名、性別、家庭地址等索引，其他的表也根據(jù)查詢要求建立了一些索引，詳細(xì)情況參照上面的數(shù)據(jù)字典。3.2 數(shù)據(jù)庫的實(shí)現(xiàn)數(shù)據(jù)備份和恢復(fù)方式數(shù)據(jù)庫的備份和恢復(fù)是管理人員的權(quán)限，在應(yīng)用程序中管理人員有備份數(shù)據(jù)庫的功能，當(dāng)管理員登陸時(shí)，就可以在應(yīng)用程序中執(zhí)行，數(shù)據(jù)庫備份就會(huì)備份到應(yīng)用程序目錄下的一個(gè)backup目錄的db_schools.bak。數(shù)據(jù)庫的恢復(fù)要在dbms中去完成，在sql server2000中可以把備份文件db_schools.bak還原到應(yīng)用程序目錄下的databas

13、e的目錄下。其實(shí)在dbms的sql server2000中，數(shù)據(jù)庫管理員可以對數(shù)據(jù)庫備份和恢復(fù)。數(shù)據(jù)庫的備份可以是靜態(tài)備份和動(dòng)態(tài)備份，因?yàn)檫@個(gè)教學(xué)統(tǒng)計(jì)系統(tǒng)是一個(gè)小的數(shù)據(jù)庫管理系統(tǒng)，對數(shù)據(jù)庫的備份用靜態(tài)備份就行了。4、數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)4.1系統(tǒng)模塊圖和系統(tǒng)模塊功能超市管理系統(tǒng)統(tǒng)統(tǒng)員工登陸 信息查詢 信息修改 信息添加 4.2模塊功能說明：1、信息管理模塊：實(shí)現(xiàn)對員工、商品、供貨商、會(huì)員等基本信息管理的功能，讓管理層對整個(gè)超市的人事及商品有詳細(xì)的了解，這個(gè)模塊包括“員工管理”、“商品管理”、“供應(yīng)商管理”、“會(huì)員管理”四個(gè)功能模塊。(1)員工信息管理，這個(gè)模塊對超市的所有員工的信息進(jìn)行登記管理，

14、包括添加、修改、刪除、查詢操作。(2)商品信息管理和供貨商信息管理，這兩個(gè)模塊功能同員工信息管理模塊。(3)會(huì)員管理，對會(huì)員進(jìn)行添加、修改、刪除、充值等操作。(4)銷售查詢，這個(gè)模塊實(shí)現(xiàn)對銷售商品、銷售金額等的查詢功能。 5、delphi界面設(shè)計(jì)5.1 delphi的一些簡單控件： 在delphi中有很多設(shè)計(jì)界面的控件，用控件和程序的結(jié)合可以實(shí)現(xiàn)界面和數(shù)據(jù)庫的連接。 一些簡單的空間可以實(shí)現(xiàn)界面的優(yōu)化，如添加image控件可以在界面當(dāng)中插入一些非常精彩的圖片，exit控件是用來設(shè)置鍵入信息框架的控件，他與memo控件相似，但是exit中一般是添加比較短的信息輸入，如信息，名片編號等，而mome中

15、可以加入比較長的文本字符，如個(gè)人簡歷，個(gè)人介紹等等。還有就是button控件，使用設(shè)置按鈕鍵的，在界面中運(yùn)用程序按下按鈕就可以實(shí)現(xiàn)查詢，添加，修改，刪除等功能。5.2基本界面的展示，其中會(huì)附加上功能與解釋：1、員工登陸界面注釋：如上面顯示的一樣，輸入用戶名和密碼點(diǎn)擊“確認(rèn)”就可以進(jìn)入下一個(gè)相應(yīng)的界面了，如果用戶名和密碼不正確那么就會(huì)顯示密碼錯(cuò)誤或者用戶名不存在的提示語。如果想要退出，點(diǎn)擊“退出”就可以回到原來的登錄選擇界面了。2、員工進(jìn)入系統(tǒng)：主菜單界面含有5個(gè)子菜單，單擊可以進(jìn)入。3.商品信息查詢4.銷售信息查詢5.入庫信息查詢6.會(huì)員信息錄入與瀏覽7.會(huì)員充值8.供應(yīng)商信息錄入與瀏覽9.員

16、工信息錄入、結(jié)束語與體會(huì) 經(jīng)過幾周在電腦面前的操作，我實(shí)現(xiàn)了delphi與sql server2000的連接于界面的運(yùn)行，實(shí)現(xiàn)了界面上控件的基本功能。由于經(jīng)驗(yàn)的匱乏，難免有許多考慮不周全的地方，由于時(shí)間有限，系統(tǒng)功能實(shí)現(xiàn)不夠完善，離實(shí)際使用也還有一定的距離，需要以后進(jìn)行不斷地補(bǔ)充和完善。如果沒有導(dǎo)師的督促指導(dǎo)，同組同學(xué)的支持，以及室友的無私幫助，想要完成這個(gè)設(shè)計(jì)是難以想象的。從開始對delphi一竅不通到后來能夠用delphi的語言來寫程序確實(shí)很艱苦，這次程序設(shè)計(jì)讓我深刻體會(huì)到編程是一項(xiàng)非常艱巨的工作，除了扎實(shí)的理論基礎(chǔ)，還需要反復(fù)的動(dòng)手實(shí)踐，運(yùn)用自己的聰明才智，克服一個(gè)個(gè)問題難關(guān)，但是令我很

17、欣慰的是我的程序最后實(shí)現(xiàn)了，還算令自己滿意。此次程序設(shè)計(jì)最大的意義是讓我體會(huì)到了編程的樂趣，提高了我解決實(shí)際問題的能力，在今后的工作生活中，這將是一筆寶貴的財(cái)富。、附錄：含代碼form1unit unit1;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls, adodb, db;type tform1 = class(tform) label1: tlabel; label2: tlabel; edit1: tedit; edit2

18、: tedit; button1: tbutton; adoconnection1: tadoconnection; adotable1: tadotable; adoquery1: tadoquery; datasource1: tdatasource; button2: tbutton; label3: tlabel; procedure button1click(sender: tobject); procedure button2click(sender: tobject); private private declarations public public declarations

19、 end;var form1: tform1;implementationuses unit2;$r *.dfmprocedure tform1.button1click(sender: tobject);beginadoquery1.close;adoquery1.sql.clear;adoquery1.sql.add('select * from 員工信息表 where 員工姓名=''' + edit1.text + '''and 密碼='''+edit2.text + ''''

20、);adoquery1.open;adoquery1.open;if adoquery1.recordcount=1 thenbeginform1.hide;form2.show;endelse beginshowmessage('用戶名或密碼錯(cuò)誤');end; end;procedure tform1.button2click(sender: tobject);begin form1.close;end;end.form2unit unit2;interfaceuses windows, messages, sysutils, variants, classes, graph

21、ics, controls, forms, dialogs, menus, jpeg, extctrls;type tform2 = class(tform) mainmenu1: tmainmenu; n1: tmenuitem; n2: tmenuitem; n3: tmenuitem; n4: tmenuitem; n5: tmenuitem; n6: tmenuitem; n7: tmenuitem; n8: tmenuitem; n9: tmenuitem; n10: tmenuitem; image1: timage; procedure n2click(sender: tobje

22、ct); procedure n3click(sender: tobject); procedure n7click(sender: tobject); procedure n5click(sender: tobject); procedure n6click(sender: tobject); procedure n8click(sender: tobject); procedure n9click(sender: tobject); procedure n10click(sender: tobject); private private declarations public public

23、 declarations end;var form2: tform2;implementationuses unit3, unit5, unit4, unit6, unit7, unit8, unit9, unit1;$r *.dfmprocedure tform2.n2click(sender: tobject);begin form3.show;end;procedure tform2.n3click(sender: tobject);begin form4.show;end;procedure tform2.n7click(sender: tobject);begin form5.sh

24、ow;end;procedure tform2.n5click(sender: tobject);begin form6.show;end;procedure tform2.n6click(sender: tobject);begin form7.show;end;procedure tform2.n8click(sender: tobject);begin form8.show;end;procedure tform2.n9click(sender: tobject);begin form9.show;end;procedure tform2.n10click(sender: tobject

25、);begin form1.show; form2.close;end;end.form3unit unit3;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, db, adodb, grids, dbgrids, stdctrls;type tform3 = class(tform) adoconnection1: tadoconnection; adotable1: tadotable; adoquery1: tadoquery; datasou

26、rce1: tdatasource; edit1: tedit; label1: tlabel; button1: tbutton; edit2: tedit; edit3: tedit; edit4: tedit; edit5: tedit; edit6: tedit; edit7: tedit; label2: tlabel; label3: tlabel; label4: tlabel; label5: tlabel; label6: tlabel; label7: tlabel; button2: tbutton; procedure button1click(sender: tobj

27、ect); procedure button2click(sender: tobject); private private declarations public public declarations end;var form3: tform3;implementationuses unit2, unit1;$r *.dfmprocedure tform3.button1click(sender: tobject);begin edit2.text:=adotable1.fieldbyname('商品類別').asstring ; edit3.text:=adotable1

28、.fieldbyname('供應(yīng)商').asstring ; edit4.text:=adotable1.fieldbyname('商品規(guī)格').asstring ; edit5.text:=adotable1.fieldbyname('商品進(jìn)價(jià)').asstring ; edit6.text:=adotable1.fieldbyname('商品售價(jià)').asstring ; edit7.text:=adotable1.fieldbyname('庫存量').asstring ; adotable1.edit; ad

29、otable1.fieldvalues'商品類別':=edit2.text; adotable1.fieldvalues'供應(yīng)商':=edit3.text; adotable1.fieldvalues'商品規(guī)格':=edit4.text; adotable1.fieldvalues'商品進(jìn)價(jià)':=edit5.text; adotable1.fieldvalues'商品售價(jià)':=edit6.text; adotable1.fieldvalues'庫存量':=edit7.text;end;procedu

30、re tform3.button2click(sender: tobject);begin form3.close;end;end.form4unit unit4;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, grids, dbgrids, db, adodb, stdctrls, buttons;type tform4 = class(tform) adoquery1: tadoquery; dbgrid1: tdbgrid; edit1: t

31、edit; bitbtn1: tbitbtn; label1: tlabel; datasource1: tdatasource; adoconnection1: tadoconnection; button1: tbutton; procedure bitbtn1click(sender: tobject); procedure button1click(sender: tobject); private private declarations public public declarations end;var form4: tform4;implementationuses unit1

32、;$r *.dfmprocedure tform4.bitbtn1click(sender: tobject);var tno:string;begin tno:=trim(edit1.text); begin adoquery1.close; adoquery1.sql.clear; adoquery1.sql.add('select * from 銷售信息表 where (商品名稱 ='''+tno+''')'); adoquery1.open; showmessage('查詢成功');end; end;pro

33、cedure tform4.button1click(sender: tobject);begin form4.close;end;end.form5unit unit5;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, grids, dbgrids, db, adodb, stdctrls;type tform5 = class(tform) adoconnection1: tadoconnection; adotable1: tadotable;

34、 adoquery1: tadoquery; datasource1: tdatasource; dbgrid1: tdbgrid; label1: tlabel; label2: tlabel; label3: tlabel; label4: tlabel; label5: tlabel; edit1: tedit; edit3: tedit; edit4: tedit; edit5: tedit; button1: tbutton; edit6: tedit; combobox1: tcombobox; button2: tbutton; procedure button1click(se

35、nder: tobject); procedure button2click(sender: tobject); private private declarations public public declarations end;var form5: tform5;implementationuses unit1;$r *.dfmprocedure tform5.button1click(sender: tobject);begin adoquery1.close;adoquery1.sql.clear;adoquery1.sql.add('select * from 入庫信息表

36、where 商品類別=''' + combobox1.text + '''and 商品名稱='''+edit3.text + '''');adoquery1.open;adoquery1.open; if adoquery1.recordcount=1 thenbegin edit6.text:=inttostr(strtoint(edit4.text)+ adotable1.fieldbyname('庫存量').asinteger); begin adotable1.ins

37、ert;adotable1.fieldbyname('入庫單'). asstring:=edit1.text;adotable1.fieldbyname('商品類別'). asstring:=combobox1.text;adotable1.fieldbyname('商品名稱'). asstring:=edit3.text;adotable1.fieldbyname('進(jìn)貨量'). asstring:=edit4.text;adotable1.fieldbyname('進(jìn)貨單價(jià)'). asstring:=edit5

38、.text;adotable1.fieldbyname('庫存量'). asstring:=edit6.text;edit1.text:=''combobox1.text:=''edit3.text:=''edit4.text:=''edit5.text:=''end;endelsebegin adotable1.insert;adotable1.fieldbyname('入庫單'). asstring:=edit1.text;adotable1.fieldbyname('商

39、品類別'). asstring:=combobox1.text;adotable1.fieldbyname('商品名稱'). asstring:=edit3.text;adotable1.fieldbyname('進(jìn)貨量'). asstring:=edit4.text;adotable1.fieldbyname('進(jìn)貨單價(jià)'). asstring:=edit5.text;adotable1.fieldbyname('庫存量').asinteger:=strtoint(edit4.text)+ 0;edit1.text:=&

40、#39;'combobox1.text:=''edit3.text:=''edit4.text:=''edit5.text:=''end; end;procedure tform5.button2click(sender: tobject);begin form5.close;end;end.form6unit unit6;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, gri

41、ds, dbgrids, db, adodb, stdctrls;type待添加的隱藏文字內(nèi)容3 tform6 = class(tform) adoconnection1: tadoconnection; adotable1: tadotable; adoquery1: tadoquery; datasource1: tdatasource; dbgrid1: tdbgrid; edit1: tedit; edit2: tedit; label1: tlabel; label2: tlabel; edit3: tedit; label3: tlabel; label4: tlabel; edi

42、t4: tedit; edit5: tedit; label5: tlabel; button1: tbutton; button2: tbutton; procedure button1click(sender: tobject); procedure button2click(sender: tobject); private private declarations public public declarations end;var form6: tform6;implementationuses unit1;$r *.dfmprocedure tform6.button1click(

43、sender: tobject);begin adotable1.insert;adotable1.fieldbyname('會(huì)員卡號'). asstring:=edit1.text;adotable1.fieldbyname('會(huì)員姓名'). asstring:=edit2.text;adotable1.fieldbyname('會(huì)員積分'). asstring:=edit3.text;adotable1.fieldbyname('聯(lián)系電話'). asstring:=edit4.text;adotable1.fieldbynam

44、e('賬戶余額'). asstring:=edit5.text;edit1.text:=''edit2.text:=''edit3.text:=''edit4.text:=''edit5.text:=''adotable1.post;end;procedure tform6.button2click(sender: tobject);begin form6.close;end;end.form7unit unit7;interfaceuses windows, messages, sysutils,

45、 variants, classes, graphics, controls, forms, dialogs, db, adodb, grids, dbgrids, stdctrls;type tform7 = class(tform) dbgrid1: tdbgrid; adoconnection1: tadoconnection; adotable1: tadotable; adoquery1: tadoquery; datasource1: tdatasource; edit1: tedit; edit2: tedit; label1: tlabel; label2: tlabel; b

46、utton1: tbutton; edit4: tedit; edit5: tedit; button2: tbutton; procedure button1click(sender: tobject); procedure button2click(sender: tobject); private private declarations public public declarations end;var form7: tform7;implementationuses unit1;$r *.dfmprocedure tform7.button1click(sender: tobjec

47、t);begin adoquery1.close;adoquery1.sql.clear;adoquery1.sql.add('select * from 會(huì)員充值記錄表 where 會(huì)員卡號=''' + edit1.text + '''');adoquery1.open;adoquery1.open; if adoquery1.recordcount=1 thenbegin edit5.text:=inttostr(strtoint(edit2.text)+ adotable1.fieldbyname('賬戶余額'

48、;).asinteger); begin adotable1.insert;adotable1.fieldbyname('會(huì)員卡號'). asstring:=edit1.text;adotable1.fieldbyname('充值金額'). asstring:=edit2.text;adotable1.fieldbyname('賬戶余額'). asstring:=edit5.text;edit1.text:=''edit2.text:=''edit5.text:=''end;endelsebegin

49、 adotable1.insert;adotable1.fieldbyname('會(huì)員卡號'). asstring:=edit1.text;adotable1.fieldbyname('充值金額'). asstring:=edit2.text;adotable1.fieldbyname('賬戶余額'). asinteger:=strtoint(edit2.text)+0;edit1.text:=''edit2.text:=''end;end;procedure tform7.button2click(sender:

50、 tobject);begin form7.close;end;end.form8unit unit8;interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, db, grids, dbgrids, adodb, stdctrls;type tform8 = class(tform) adoconnection1: tadoconnection; adotable1: tadotable; adoquery1: tadoquery; dbgrid1: td

51、bgrid; datasource1: tdatasource; button1: tbutton; button2: tbutton; label1: tlabel; edit1: tedit; label2: tlabel; edit2: tedit; label3: tlabel; label4: tlabel; edit3: tedit; edit4: tedit; label5: tlabel; edit5: tedit; procedure button1click(sender: tobject); procedure button2click(sender: tobject);

52、 private private declarations public public declarations end;var form8: tform8;implementationuses unit1;$r *.dfmprocedure tform8.button1click(sender: tobject);begin adotable1.insert;adotable1.fieldbyname('供應(yīng)商編號'). asstring:=edit1.text;adotable1.fieldbyname('供應(yīng)商名稱'). asstring:=edit2.t

53、ext;adotable1.fieldbyname('聯(lián)系人'). asstring:=edit3.text;adotable1.fieldbyname('聯(lián)系電話'). asstring:=edit4.text;adotable1.fieldbyname('聯(lián)系地址'). asstring:=edit5.text;edit1.text:=''edit2.text:=''edit3.text:=''edit4.text:=''edit5.text:=''adotable1.post;end;procedure tform8.button2click(sender: tobject);begin form8.close;end;end.form9unit unit9;interfaceuses windo