超市銷售系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(文件)
【正文】 的連接。如果想要退出，點(diǎn)擊“退出”就可以回到原來(lái)的登錄選擇界面了。如果沒(méi)有導(dǎo)師的督促指導(dǎo)，同組同學(xué)的支持，以及室友的無(wú)私幫助，想要完成這個(gè)設(shè)計(jì)是難以想象的。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ADODB, DB。 Edit2: TEdit。 ADOQuery1: TADOQuery。 procedure button1click(sender: tobject)。 implementation uses Unit2。 (39。 + + 39。39。39。 。用戶名或密碼錯(cuò)誤 39。 procedure (Sender: TObject)。 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, ExtCtrls。 N3: TMenuItem。 N7: TMenuItem。 Image1: TImage。 procedure N5Click(Sender: TObject)。 procedure N10Click(Sender: TObject)。 {$R *.dfm} procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin 。 end。 end。 ADOTable1: TADOTable。 20 Label1: TLabel。 Edit4: TEdit。 Label2: TLabel。 Label6: TLabel。 procedure Button2Click(Sender: TObject)。 {$R *.dfm} procedure (Sender: TObject)。 :=(39。商品規(guī)格 39。).asstring 。 :=(39。 [39。供應(yīng)商 39。]:=。 [39。庫(kù)存量 39。 begin 。 type TForm4 = class(TForm) ADOQuery1: TADOQuery。 Label1: TLabel。 procedure BitBtn1Click(Sender: TObject)。 implementation uses Unit1。 begin 。39。39。 ShowMessage(39。 end。 23 End. FORM5 unit Unit5。 ADOQuery1: TADOQuery。 Label2: TLabel。 Edit1: TEdit。 Button1: TButton。 procedure Button1Click(Sender: TObject)。 implementation uses Unit1。 (39。 + + 39。39。39。 。 begin 。 (39。商品名稱 39。). asstring:=。 (39。39。39。39。入庫(kù)單 39。). asstring:=。 (39。進(jìn)貨單價(jià) 39。).AsInteger:=strtoint()+ 0。39。39。 end。 End. FORM6 unit Unit6。 ADOQuery1: TADOQuery。 Edit2: TEdit。 Label3: TLabel。 Label5: TLabel。 procedure Button2Click(Sender: TObject)。 27 {$R *.dfm} procedure (Sender: TObject)。). asstring:=。 (39。聯(lián)系電話 39。). asstring:=。39。39。 end。 End. FORM7 unit Unit7。 ADOTable1: TADOTable。 Edit2: TEdit。 Edit4: TEdit。 procedure Button2Click(Sender: TObject)。 {$R *.dfm} procedure (Sender: TObject)。select * from 會(huì)員充值記錄表 where 會(huì)員卡號(hào) =39。39。 。).AsInteger)。). asstring:=。 (39。39。39。會(huì)員卡號(hào) 39。). asstring:=。 :=39。 end。 30 end。 ADOTable1: TADOTable。 Button1: TButton。 Label2: TLabel。 Edit3: TEdit。 procedure Button1Click(Sender: TObject)。 implementation uses Unit1。供應(yīng)商編號(hào) 39。). asstring:=。 (39。聯(lián)系地址 39。 :=39。 :=39。 。 end。 ADOTable1: TADOTable。 Edit1: TEdit。 Edit3: TEdit。 Label5: TLabel。 Button3: TButton。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } 33 end。 begin 。 (39。密碼 39。). asstring:=。 :=39。 :=39。 :=39。 procedure (Sender: TObject)。 begin :=true。 end。 end. 參考文獻(xiàn) 《 Delphi 程序設(shè)計(jì)》 人 北京理工大學(xué)出版社 孫茜 主編 《 Delphi 信息管理系統(tǒng)開發(fā)》 人民郵電出版社 *求是科技 編著 *； 《數(shù)據(jù)庫(kù)系統(tǒng)及應(yīng)用 —— SQL Server2021》 清華大學(xué)出版社 陳明 編著； 《數(shù)據(jù)庫(kù)系統(tǒng)概論》高等教育出版社 王珊 薩師煊 編著； 《數(shù)據(jù)庫(kù)系統(tǒng)教程》高等教育出版社 施伯樂(lè) 丁寶康 汪衛(wèi) 編著。 begin 。 procedure (Sender: TObject)。 end。 。 :=39。 :=39。職務(wù) 39。 (39。). asstring:=。員工編號(hào) 39。 implementation uses Unit1。 procedure Button4Click(Sender: TObject)。 Button5: TButton。 Button1: TButton。 Label4: TLabel。 Label2: TLabel。 DBGrid1: TDBGrid。 32 interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls。 procedure (Sender: TObject)。 :=39。 :=39。 :=39。). asstring:=。聯(lián)系人 39。 (39。 begin 。 private { Private declarations } public { Public declarations } 31 end。 Label5: TLabel。 Label3: TLabel。 Label1: TLabel。 DB
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1