【正文】 9。) else if(=39。39。) then showmessage(39。用戶名稱不能為空!39。)else if(=39。 39。) then showmessage(39。用戶名稱不能為空!39。)else if(=39。39。) then showmessage(39。密碼不能為空!39。)else if(=39。 39。) then showmessage(39。密碼不能為空!39。)else if(=39。39。) then showmessage(39。權(quán)限不能為空!39。)else if(=39。 39。) then showmessage(39。權(quán)限不能為空!39。)else if(0) then showmessage(39。無此編號!39。)else begin 。(39。update 管理員 set 編號=39。39。39。++39。39。39。, 用戶名=39。39。39。++39。39。39。,密碼=39。39。39。++39。39。39。,權(quán)限=39。39。39。++39。39。39。 where 編號=39。39。39。++39。39。39。39。)。showmessage(39。修改成功39。)。 (39。select * from 管理員39。)。:=true endend。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin。 (39。select * from 管理員39。)。 。 if(0) then :=trueend。procedure (Sender: TObject)。beginForm9:implementation{$R *.dfm}procedure (Sender: TObject)。varpath:string。beginif thenif 39。39。 thenbeginpath := ExtractFilePath()。trycopyfile(pchar(path+ 39。39。), pchar(+39。.bak39。), false)。 showmessage(39。備份成功！39。)。exceptshowmessage(39。備份失敗，請重試！39。)。end。end。end。if thenif 39。39。 thenbeginpath := ExtractFilePath()。tryDeletefile(path+39。39。)。copyfile(pchar(),pchar(path + 39。39。), false)。showmessage(39。成功恢復數(shù)據(jù)！39。)。exceptshowmessage(39。恢復失敗，請重試!39。)。end。end。end。procedure (Sender: TObject)。begin Form10implementation{$R *.dfm}procedure (Sender: TObject)。begin。 (39。select * from 銷售表39。)。 。 if(0) then :=trueend。procedure (Sender: TObject)。begin if(=39。39。) then showmessage(39。商家編號不能為空!39。) else if(=39。 39。) then showmessage(39。商家編號不能為空!39。) else if(=39。39。) then showmessage(39。商品名稱不能為空!39。)else if(=39。 39。) then showmessage(39。商品名稱不能為空!39。)else if(=39。39。) then showmessage(39。商品價格不能為空!39。)else if(=39。 39。) then showmessage(39。商品價格不能為空!39。)else if(=39。39。) then showmessage(39。商品容量不能為空!39。)else if(=39。 39。) then showmessage(39。商品容量不能為空!39。)else begin。(39。insert into 銷售表(商家編號,商品編號,購買日期,價格,購買數(shù)量)values (:1,:2,:3,:4,:5)39。)。(39。139。).value:=39。39。++39。39。(39。239。).value:=39。39。++39。39。(39。339。).value:=39。39。++39。39。(39。439。).value:=39。39。++39。39。(39。539。).value:=39。39。++39。39。(39。select * from 銷售表39。)。:=trueend。end。procedure (Sender: TObject)。beginif(=39。39。) then showmessage(39。商家編號不能為空!39。)else if(=39。 39。) then showmessage(39。商家編號不能為空!39。)else begin。(39。delete from 銷售表 where 商家編號=39。39。39。++39。39。39。39。) 。(39。select * from 銷售表39。)。:=true end Form13implementation{$R *.dfm}procedure (Sender: TObject)。begin。 (39。select * from 銷售表39。)。 。 if(0) then :=trueend。procedure (Sender: TObject)。begin 。 (39。select ,購買數(shù)量 from 商品,銷售表 where = 39。)。 。 if(0) then :=trueend。procedure (Sender: TObject)。begin。(39。select sum(購買數(shù)量) as 總數(shù)量 from 銷售表 39。)。end。procedure (Sender: TObject)。begin。(39。select sum(*) as 總價格 from 銷售表 39。)。Form14implementation{$R *.dfm}procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin Form15implementation{$R *.dfm}procedure (Sender: TObject)。begin 。 (39。select ,剩余 from 商品,銷售表 where =39。)。 。 if(0) then :=trueend。29 / 30