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

1、超市銷售系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)目：超市管理系統(tǒng)1、相關(guān)技術(shù)介紹1.1、SQL Server 2000 的特性Microsoft? SQL Server? 2000 的特性包括：1、Internet 集成SQL Server 2000數(shù)據(jù)庫引擎提供完整的 XML支持。它還具有構(gòu)成最大的 Web站點(diǎn)的數(shù)據(jù)存儲(chǔ)組件所需的可伸縮性、可用性和安全功能。SQLServer 2000 程序設(shè)計(jì)模型與 Windows DNA構(gòu)架集成，用以開發(fā) Web應(yīng)用程序，并且SQL Server 2000支持English Query和Microsoft搜索服務(wù)等功能，在 Web應(yīng)用程序中包含了用戶友好的查詢和強(qiáng)大的搜索功能。

2、2、可伸縮性和可用性同一個(gè)數(shù)據(jù)庫引擎可以在不同的平臺(tái)上使用，從運(yùn)行 Microsoft Windows? 98的便攜式電腦，到運(yùn)行Microsoft Windows2000數(shù)據(jù)中心版的大型多處理 器服務(wù)器。SQL Server 2000企業(yè)版支持聯(lián)合服務(wù)器、索引視圖和大型內(nèi)存支 持等功能，使其得以升級(jí)到最大 Web站點(diǎn)所需的性能級(jí)別。3、企業(yè)級(jí)數(shù)據(jù)庫功能SQLServer 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ù)，就

3、好象這些數(shù)據(jù)是 SQL Server 2000數(shù)據(jù)庫的一部分，同時(shí)分布式事務(wù) 支持充分保護(hù)任何分布式數(shù)據(jù)更新的完整性。復(fù)制同樣使您得以維護(hù)多個(gè)數(shù)據(jù) 復(fù)本，同時(shí)確保單獨(dú)的數(shù)據(jù)復(fù)本保持同步。可將一組數(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ù)倉庫的使用成為生成

4、強(qiáng)大的可伸縮系統(tǒng)的無縫部分。這些功能使您得以快 速交付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是Borland公司研制的新一代可視化開發(fā)工具，可在Windows3.x、Windows95 WindowsNTWindowsXPWindowsVista 等環(huán)境下使用。當(dāng)前，DELPHI 也可以在LINUX平臺(tái)上開發(fā)應(yīng)用，其在

5、 LINUX上的對(duì)應(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)移通過這些部件來完成。這樣，大大減少了對(duì)服務(wù)器 的請(qǐng)求和網(wǎng)絡(luò)上的數(shù)據(jù)傳輸量，提高了應(yīng)用處理的速度。(3)提供了許多快速方便的開發(fā)方法，使開發(fā)人員能用盡可能少的重復(fù)性工 作完成各種不同的應(yīng)用。

6、利用項(xiàng)目模板和專家生成器可以很快建立項(xiàng)目的構(gòu)架， 然后根據(jù)用戶的實(shí)際需要逐步完善。(4)具有可重用性和可擴(kuò)展性。開發(fā)人員不必再對(duì)諸如標(biāo)簽、按鈕及對(duì)話框 等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等，也可以通過BDESQLLink直接與Sybase、 SQLServer、Informix、Oracle等大型數(shù)據(jù)庫連接。Delphi既可用于開

7、發(fā)系統(tǒng) 軟件，也適合于應(yīng)用軟件的開發(fā)。(6)擁有強(qiáng)大的網(wǎng)絡(luò)開發(fā)能力，能夠快速的開發(fā)B/S應(yīng)用，它內(nèi)置的IntraWeb 和ExpressWebg得對(duì)于網(wǎng)絡(luò)的開發(fā)效率超過了其他任何的開發(fā)工具。2、需求分析2.1 系統(tǒng)目標(biāo)設(shè)計(jì)要求對(duì)商品等信息分類管理，對(duì)表中商品信息、入庫信息和銷售信息、員工信息、會(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)表和表格三種形式對(duì)教務(wù)信息網(wǎng)中的人員 的各種情況進(jìn)行分析和統(tǒng)計(jì)；能打印各類統(tǒng)計(jì)信息；應(yīng)用程序采用多文擋界面的 風(fēng)格，盡量

8、用菜單。界面的風(fēng)格要多樣化，但必須滿足用戶的要求。1、登錄權(quán)限：只限員工登錄：需用數(shù)據(jù)庫中的登錄名和密碼。2、員工權(quán)限：員工信息錄入與瀏覽：添加員工用戶名和密碼；商品信息查詢：根據(jù)索引進(jìn)行信息查詢，方便修改編輯； 銷售信息查詢：員工可以進(jìn)行信息查詢，方便修改編輯； 入庫信息瀏覽與錄入：經(jīng)操作后可對(duì)信息進(jìn)行瀏覽與錄入; 會(huì)員信息瀏覽與錄入：經(jīng)操作后可對(duì)信息進(jìn)行瀏覽與錄入;會(huì)員充值信息錄入：員工可以給會(huì)員充值；供應(yīng)商信息瀏覽：經(jīng)瀏覽操作后可對(duì)信息進(jìn)行瀏覽；2.3 數(shù)據(jù)字典1、員工信息表字段名員工編號(hào)char (10)員工姓名char (10)密碼char(10)性別Char(2)職務(wù)char(20

9、)2、會(huì)員信息表字段名會(huì)員卡號(hào)Char(10)會(huì)員姓名char (10)會(huì)員積分char(10)聯(lián)系電話Char(20)賬戶余額Float(8)3、會(huì)員充值記錄表字段名會(huì)員卡號(hào)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)商品名稱char

10、 (10)供應(yīng)商char(10)商品規(guī)格Char(10)商品進(jìn)價(jià)float(8)商品售價(jià)Float(8)庫存量Char(10)6、銷售信息表字段名銷售賬號(hào)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)用的是SQLServer2000中新建的數(shù)據(jù)庫，即教務(wù)信息數(shù)據(jù)庫下建立 了相關(guān)的表，向表中輸入一些數(shù)據(jù)。2、系統(tǒng)配置：微機(jī)一臺(tái)，window XP系統(tǒng)，Delphi7英文版程序開發(fā)開發(fā)，數(shù)據(jù)庫 DBMS1 sql server2000。

11、3、系統(tǒng)索引：數(shù)據(jù)索引在各個(gè)表中都建立了索引，目的是為了搜索的方便。比如：在學(xué)生 信息表中除學(xué)生編號(hào)這個(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)用程 序目錄下

12、的Database的目錄下。其實(shí)在DBMS勺sql server2000中，數(shù)據(jù)庫管理員可以對(duì)數(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)，對(duì)數(shù)據(jù)庫的備份用靜態(tài)備份就行了。4、數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)4.1 系統(tǒng)模塊圖和系統(tǒng)模塊功能信息添加信息修改信息查詢4.2 模塊功能說明：1、信息管理模塊：實(shí)現(xiàn)對(duì)員工、商品、供貨商、會(huì)員等基本信息管理的功能，管理層對(duì)整個(gè)超市的人事及商品有詳細(xì)的了解，這個(gè)模塊包括“員工管理”、“商品管理”、“供應(yīng)商管理”、“會(huì)員管理”四個(gè)功能模塊。(1)員工信息管理，這個(gè)模塊對(duì)超市的所有員工的信息進(jìn)行登記管理，包括添加、

13、修改、刪除、查詢操作。(2)商品信息管理和供貨商信息管理，這兩個(gè)模塊功能同員工信息管理模塊。 會(huì)員管理，對(duì)會(huì)員進(jìn)行添加、修改、刪除、充值等操作。(4)銷售查詢，這個(gè)模塊實(shí)現(xiàn)對(duì)銷售商品、銷售金額等的查詢功能。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中一般是添加比較短的信息輸入，如信息，名片編號(hào)等，而 mome中可以加入

14、比較長的文本字符，如個(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)商信息錄入與瀏覽7

15、f Fora89.員工信息錄入7rFor>90®®6、結(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ì)是難以想象的。 從開始對(duì)Delphi一竅不通到后來能夠用Delphi的語言來寫程序確實(shí)很艱苦，這次程序設(shè)計(jì)讓我深刻體會(huì)到編程是一項(xiàng)非常艱巨的工作，除了扎實(shí)的理論基

16、礎(chǔ)，還需要 反復(fù)的動(dòng)手實(shí)踐，運(yùn)用自己的聰明才智，克服一個(gè)個(gè)問題難關(guān)，但是令我很欣慰的是我的程序最后實(shí)現(xiàn)了，還算令自己滿意。此次程序設(shè)計(jì)最大的意義是讓我體會(huì)到了編程的樂趣，提高了我解決實(shí)際問題的能力，在今后的工作生活中，這將是一筆寶貴的財(cái)富。7、附錄：含代碼FORM1unit Unitl;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms,Dialogs, StdCtrls, ADODB, DB;typeTForm1 = class(TForm)Label1: TLabel;L

17、abel2: TLabel;Edit1: TEdit;Edit2: TEdit;Button1: TButton;ADOConnection1: TADOConnection;ADOTable1: TADOTable;ADOQuery1: TADOQuery;DataSource1: TDataSource;Button2: TButton;Labe TLabel;procedure button1click(sender: tobject);procedure Button2Click(Sender: TObject);private Private declarations public

18、Public declarations end;varForm1: 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 + '

19、9;'');adoquery1.Open;adoquery1.Open;if adoquery1.RecordCount=1 then begin form1.hide;form2.Show;end else begin showmessage('用戶名或密碼錯(cuò)誤'); end;end;procedure TForm1.Button2Click(Sender: TObject);beginform1.close; end;End.FORM2 unit Unit2;interfaceusesWindows, Messages, SysUtils, Variants

20、, Classes, Graphics,Controls, Forms,Dialogs, Menus, jpeg, ExtCtrls;typeTForm2 = 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

21、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 declara

22、tions end;varForm2: TForm2;implementationuses Unit3, Unit5, Unit4, Unit6, Unit7, Unit8, Unit9, Unitl;$R *dfmprocedure TForm2.N2Click(Sender: TObject);beginform3.show;end;procedure TForm2.N3Click(Sender: TObject); beginform4.Show;end;procedure TForm2.N7Click(Sender: TObject); beginform5.show;end;proc

23、edure TForm2.N5Click(Sender: TObject); beginform6.show;end;procedure TForm2.N6Click(Sender: TObject); beginform7.show;procedure TForm2.N8Click(Sender: TObject); beginform8.show;end;procedure TForm2.N9Click(Sender: TObject);beginform9.show;end;procedure TForm2.N10Click(Sender: TObject); beginform1.sh

24、ow;form2.close;end;End.FORM3unit Unit3;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics,Controls, Forms,Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;typeTForm3 = class(TForm)ADOConnection1: TADOConnection;ADOTable1: TADOTable;ADOQuery1: TADOQuery;DataSource1: TDataSource;Edit1:

25、TEdit;Labell: TLabel;Buttonl: TButton;Edit2: TEdit;Edit3: TEdit;Edit4: TEdit;Edit5: TEdit;Edit6: TEdit;Edit7: TEdit;Label2: TLabel;Labe TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label7: TLabel;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);

26、 private Private declarations public Public declarations end;var Form3: TForm3;implementationuses Unit2, Unit1;$R *dfmprocedure TForm3.Button1Click(Sender: TObject);beginedit2.Text尸adotable1.FieldByName('商 品 類別').asstring ;edit3.Text尸adotable1.FieldByName('供應(yīng)商').asstring ;edit4.Text尸

27、adotable1.FieldByName(edit5.Text尸adotable1.FieldByName(edit6.Text尸adotable1.FieldByName(商品規(guī)格').asstring ;商品進(jìn)價(jià)').asstring ; 商品售價(jià)').asstring ; 庫存量').asstring ;ADOTablel.Edit;ADOTable1.FieldValues'ADOTable1.FieldValues'ADOTable1.FieldValues'ADOTable1.FieldValues'ADOTable

28、1.FieldValues'ADOTable1.FieldValues'商品類別':=Edit2.Text;供應(yīng)商':=Edit3.Text;商品規(guī)格':=Edit4.Text;商品進(jìn)價(jià)':=Edit5.Text;商品售價(jià)':=Edit6.Text;庫存量':=Edit7.Text;edit7.Text尸adotable1.FieldByName( end;procedure TForm3.Button2Click(Sender: TObject);beginform3.close;end;End.FORM4unit Unit4;

29、interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons;typeTForm4 = class(TForm)ADOQuery1: TADOQuery;DBGrid1: TDBGrid;Edit1: TEdit;BitBtn1: TBitBtn;Label1: TLabel;DataSource1: TDataSource;ADOConnectionl: TADOConne

30、ction;Buttonl: TButton;procedure BitBtn1Click(Sender: TObject);procedure Button1Click(Sender: TObject);private Private declarations public Public declarations end;varForm4: TForm4;implementationuses Unit1;$R *dfmprocedure TForm4.BitBtn1Click(Sender: TObject);var Tno:string;beginTno:=trim(Edit1.Text)

31、;beginADOQuery1.Close;ADOQuery1.SQL.Clear;ADOQuery1.SQL.Add('SELECT * FROM 銷售信息表 WHERE (商品名稱='"+Tno+'")');ADOQuery1.Open;ShowMessage('查詢成功');end;end;procedure TForm4.Button1Click(Sender: TObject);beginform4.close;end;End.FORM5unit Unit5;interfaceusesWindows, Message

32、s, SysUtils, Variants, Classes, Graphics,Controls, Forms,Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;typeTForm5 = class(TForm)ADOConnection1: TADOConnection;ADOTable1: TADOTable;ADOQuery1: TADOQuery;DataSource1: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;Labe TLabel;Label4: TLabel;L

33、abel5: TLabel;Edit1: TEdit;Edit3: TEdit;Edit4: TEdit;Edit5: TEdit;Button1: TButton;Edit6: TEdit;boBox1: TboBox;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private Private declarations public Public declarations end;varForm5: TForm5; implementation

34、 uses Unitl;$R *dfm procedure TForm5.Button1Click(Sender: TObject);beginadoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add('select * from入庫信息表 where 商品類別='''+ bobox1.text + '''and商品名稱="'+edit3.Text + '''');adoquery1.Open;adoquery1.Open;if adoqu

35、ery1.RecordCount=1 then beginedit6.Text尸inttostr(strtoint(edit4.Text)+庫存量').AsInteger);入庫單').asstring尸editl.text;商品類另卜).asstring尸boboxl.text;商品名稱').asstring尸edit3.text;進(jìn)貨量').asstring尸edit4.text;進(jìn)貨單價(jià)').asstring尸edit5.text;庫存量').asstring尸edit6.text;adotable1.FieldByName( begina

36、dotable1.Insert;adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' edit1.Text尸”;bobox1.text:="edit3.Text:=''edit4.Text:=''edit5.Text:=''end;endelsebeginad

37、otablel.Insert;adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.FieldByName(入庫單').asstring尸editl.text;商品類另卜).asstring尸boboxl.text;商品名稱').asstring尸edit3.text;進(jìn)貨量').asstring尸edit4.text;進(jìn)貨單價(jià)

38、').asstring尸edit5.text;庫存).AsInteger:=strtoint(edit4.Text)+ 0;editl.Text尸''bobox1.text:="edit3.Text尸”；edit4.Text:=''edit5.Text:=''end;end;procedure TForm5.Button2Click(Sender: TObject); beginform5.close; end;End.FORM6 unit Unit6;interface usesWindows, Messages, SysUt

39、ils, Variants, Classes, Graphics,Controls, Forms,Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls;typeTForm6 = class(TForm)ADOConnectionl: TADOConnection;ADOTablel: TADOTable;ADOQuery1: TADOQuery;DataSource1: TDataSource;DBGrid1: TDBGrid;Edit1: TEdit;Edit2: TEdit;Label1: TLabel;Label2: TLabel;Edit3: TEd

40、it;Labe TLabel;Label4: TLabel;Edit4: TEdit;Edit5: TEdit;Label5: TLabel;Button1: TButton;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject); private Private declarations public Public declarations end;varForm6: TForm6;implementationuses Unit1;$R *dfmproce

41、dure TForm6.Button1Click(Sender: TObject); beginadotablel.Insert;會(huì)員卡號(hào)').asstring尸edit1.text;會(huì)員姓名').asstring尸edit2.text;會(huì)員積分').asstring尸edit3.text;聯(lián)系電話').asstring尸edit4.text;賬戶余額').asstring尸edit5.text;adotable1.fieldbyname( adotable1.fieldbyname( adotable1.fieldbyname( adotable1.f

42、ieldbyname( adotable1.fieldbyname( edit1.Text尸”;edit2.Text:=''edit3.Text尸”； edit4.Text:='' edit5.Text:='' adotable1.Post; end;procedure TForm6.Button2Click(Sender: TObject); beginform6.close;end;End.FORM7 unit Unit7;interface usesWindows, Messages, SysUtils, Variants, Classes

43、, Graphics, Controls, Forms,Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;typeTForm7 = class(TForm)DBGrid1: TDBGrid;ADOConnection1: TADOConnection;ADOTable1: TADOTable;ADOQueryl: TADOQuery;DataSourcel: TDataSource;Editl: TEdit;Edit2: TEdit;Labell: TLabel;Label2: TLabel;Buttonl: TButton;Edit4: TEdit;E

44、dit5: TEdit;Button2: TButton;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private Private declarations public Public declarations end;varForm7: TForm7;implementationuses Unit1;$R *dfmprocedure TForm7.Button1Click(Sender: TObject);beginadoquery1.Close;adoquery1.SQL.

45、Clear;adoquery1.SQL.Add('select * from 會(huì)員充值記錄表 where 會(huì)員卡 號(hào)二“'+ edit1.text + '''');adoquery1.Open;adoquery1.Open;if adoquery1.RecordCount=1 thenbeginedit5.Text尸inttostr(strtoint(edit2.Text)+賬戶余額').AsInteger);會(huì)員卡號(hào)').asstring尸editl.text;充值金額').asstring尸edit2.text;賬戶余

46、額').asstring尸edit5.text;adotable1.FieldByName( beginadotablel.Insert;adotable1.fieldbyname(' adotable1.fieldbyname(' adotable1.fieldbyname(' editl.Text尸”;edit2.Text:=''edit5.Text:=''end;endelsebeginadotablel.Insert;adotable1.fieldbyname(' 會(huì)員卡號(hào)').asstring尸editl

47、.text;adotable1.fieldbyname(' 充值金額').asstring尸edit2.text;adotable1.fieldbyname('賬 戶 余 額 ).AsInteger:=strtoint(edit2.Text)+0;editl.Text尸”;edit2.Text:=''end;end;procedure TForm7.Button2Click(Sender: TObject); beginform7.close;end;end.FORM8unit Unit8;interfaceusesWindows, Messages,

48、SysUtils, Variants, Classes, Graphics,Controls, Forms,Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls;typeTForm8 = class(TForm)ADOConnection1: TADOConnection;ADOTable1: TADOTable;ADOQuery1: TADOQuery;DBGrid1: TDBGrid;DataSource1: TDataSource;Button1: TButton;Button2: TButton;Label1: TLabel;Edit1: TEdit

49、;Label2: TLabel;Edit2: TEdit;Labe TLabel;Label4: TLabel;Edit3: TEdit;Edit4: TEdit;Label5: TLabel;Edit5: TEdit;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private Private declarations public Public declarations end;Form8: TForm8;implementationuses Unitl;$R *dfm pro

50、cedure TForm8.Button1Click(Sender: TObject);beginadotable1.Insert;供應(yīng)商編號(hào)').asstring尸edit1.text;供應(yīng)商名稱').asstring尸edit2.text;聯(lián)系人').asstring尸edit3.text;聯(lián)系電話').asstring尸edit4.text;聯(lián)系地址').asstring尸edit5.text;adotable1.fieldbyname( adotable1.fieldbyname( adotable1.fieldbyname( adotable1.fieldbyname( adotable1.fieldbyname( edit1.Text尸”;edit2.Text:=''edit3.Text尸”； edit4.Text:='' edit5.Text:=&