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

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

2、2、可伸縮性和可用性同一個數(shù)據(jù)庫引擎可以在不同的平臺上使用，從運行 Microsoft Windows? 98的便攜式電腦，到運行Microsoft Windows2000數(shù)據(jù)中心版的大型多處理 器服務器。SQL Server 2000企業(yè)版支持聯(lián)合服務器、索引視圖和大型內存支 持等功能，使其得以升級到最大 Web站點所需的性能級別。3、企業(yè)級數(shù)據(jù)庫功能SQLServer 2000關系數(shù)據(jù)庫引擎支持當今苛刻的數(shù)據(jù)處理環(huán)境所需的功能。 數(shù)據(jù)庫引擎充分保護數(shù)據(jù)完整性，同時將管理上千個并發(fā)修改數(shù)據(jù)庫的用戶的 開銷減到最小。SQL Server 2000分布式查詢使您得以引用來自不同數(shù)據(jù)源的 數(shù)據(jù)，就

3、好象這些數(shù)據(jù)是 SQL Server 2000數(shù)據(jù)庫的一部分，同時分布式事務 支持充分保護任何分布式數(shù)據(jù)更新的完整性。復制同樣使您得以維護多個數(shù)據(jù) 復本，同時確保單獨的數(shù)據(jù)復本保持同步?？蓪⒁唤M數(shù)據(jù)復制到多個移動的脫 接用戶，使這些用戶自主地工作，然后將他們所做的修改合并回發(fā)布服務器。4、易于安裝、部署和使用SQL Server 2000中包括一系列管理和開發(fā)工具，這些工具可改進在多個站 點上安裝、部署、管理和使用 SQL Server的過程。SQL Server 2000還支持 基于標準的、與 Windows DNA集成的程序設計模型，使 SQL Server數(shù)據(jù)庫和 數(shù)據(jù)倉庫的使用成為生成

4、強大的可伸縮系統(tǒng)的無縫部分。這些功能使您得以快 速交付SQL Server應用程序，使客戶只需最少的安裝和管理開銷即可實現(xiàn)這 些應用程序。5、數(shù)據(jù)倉庫SQL Server 2000中包括析取和分析匯總數(shù)據(jù)以進行聯(lián)機分析處理(OLAP)的工具。SQL Server中還包括一些工具，可用來直觀地設計數(shù)據(jù)庫并通過 English Query 來分析數(shù)據(jù)1.2、介紹Delphi是Borland公司研制的新一代可視化開發(fā)工具，可在Windows3.x、Windows95 WindowsNTWindowsXPWindowsVista 等環(huán)境下使用。當前，DELPHI 也可以在LINUX平臺上開發(fā)應用，其在

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

6、利用項目模板和專家生成器可以很快建立項目的構架， 然后根據(jù)用戶的實際需要逐步完善。(4)具有可重用性和可擴展性。開發(fā)人員不必再對諸如標簽、按鈕及對話框 等Windows的常見部件進行編程。Delphi包含許多可以重復使用的部件，允許 用戶控制Windows的開發(fā)效果。(5)具有強大的數(shù)據(jù)存取功能。它的數(shù)據(jù)處理工具 BDE(BorlandDatabaseEngine)是一個標準的中介軟件層，可以用來處理當前流 行的數(shù)據(jù)格式，如xBase、Paradox等，也可以通過BDESQLLink直接與Sybase、 SQLServer、Informix、Oracle等大型數(shù)據(jù)庫連接。Delphi既可用于開

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

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

9、)2、會員信息表字段名會員卡號Char(10)會員姓名char (10)會員積分char(10)聯(lián)系電話Char(20)賬戶余額Float(8)3、會員充值記錄表字段名會員卡號char (10)充值金額char (10)賬戶余額Int(4)4、供應商信息表字段名供應商編Char(10)供應商名稱char (10)聯(lián)系人char(10)聯(lián)系電話Char(10)聯(lián)系地址Char(10)5、入庫信息表字段名入庫單Char(10)入庫日期char (10)商品名稱char(10)進貨量Char(10)進貨單價float(8)庫存量Int(4)6、商品信息表字段名商品類別Char(10)商品名稱char

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

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

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

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

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

15、f Fora89.員工信息錄入7rFor>90®®6、結束語與體會經過幾周在電腦面前的操作，我實現(xiàn)了Delphi與SQL Server2000的連接于界面的運行，實現(xiàn)了界面上控件的基本功能。由于經驗的匱 乏，難免有許多考慮不周全的地方，由于時間有限，系統(tǒng)功能實現(xiàn)不 夠完善，離實際使用也還有一定的距離，需要以后進行不斷地補充和 完善。如果沒有導師的督促指導，同組同學的支持，以及室友的無私 幫助，想要完成這個設計是難以想象的。 從開始對Delphi一竅不通到后來能夠用Delphi的語言來寫程序確實很艱苦，這次程序設計讓我深刻體會到編程是一項非常艱巨的工作，除了扎實的理論基

16、礎，還需要 反復的動手實踐，運用自己的聰明才智，克服一個個問題難關，但是令我很欣慰的是我的程序最后實現(xiàn)了，還算令自己滿意。此次程序設計最大的意義是讓我體會到了編程的樂趣，提高了我解決實際問題的能力，在今后的工作生活中，這將是一筆寶貴的財富。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('用戶名或密碼錯誤'); 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('供應商').asstring ;edit4.Text尸

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

28、1.FieldValues'ADOTable1.FieldValues'商品類別':=Edit2.Text;供應商':=Edit3.Text;商品規(guī)格':=Edit4.Text;商品進價':=Edit5.Text;商品售價':=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;進貨量').asstring尸edit4.text;進貨單價').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;進貨量').asstring尸edit4.text;進貨單價

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;會員卡號').asstring尸edit1.text;會員姓名').asstring尸edit2.text;會員積分').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 會員充值記錄表 where 會員卡 號二“'+ edit1.text + '''');adoquery1.Open;adoquery1.Open;if adoquery1.RecordCount=1 thenbeginedit5.Text尸inttostr(strtoint(edit2.Text)+賬戶余額').AsInteger);會員卡號').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(' 會員卡號').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;供應商編號').asstring尸edit1.text;供應商名稱').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:=&