數(shù)據(jù)庫應(yīng)用系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)計(jì)劃書-資料下載頁
2025-08-04 00:22本頁面
【正文】 tton2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form5: TForm5。implementation{$R *.dfm}procedure (Sender: TObject)。 varsql:string。 begin :=true。:=clteal。if (=39。39。) thenbegin MessageBox(handle,39。請輸入,不能為空！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 exit。 end else begin sql:=39。where ( 學(xué)號=39。39。39。++39。39。39。) 39。 。 。 (39。select * from 還書表39。)。 (sql)。 MessageBox(handle,39。查詢完畢！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 。 end。end。procedure (Sender: TObject)。begin:=true。 :=clteal。 if (=39。39。)or(=39。39。)or(=39。39。) thenbegin(39。信息不完整！39。,39。錯(cuò)誤操作39。,mb_ok)。exit。end 。 with adoquery1 do begin Close。 。(39。Update 還書表 SET 學(xué)號= :A,圖書號= :B,還書日= :C where 學(xué)號=39。+)。(39。A39。).Value:=。(39。B39。).Value:=。(39。C39。).value:=。 execsql。 close。 。 :=39。39。 :=39。39。 :=39。39。 :=39。39。 (39。信息已修改！39。,39。確認(rèn)39。,mb_ok)。end。end。procedure (Sender: TObject)。begin 。end。end.unit Unit6。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls。type TForm6 = class(TForm) GroupBox1: TGroupBox。 Button1: TButton。 Label1: TLabel。 Edit1: TEdit。 ADOConnection1: TADOConnection。 ADOQuery1: TADOQuery。 ADOTable1: TADOTable。 DBGrid1: TDBGrid。 DataSource1: TDataSource。 Button2: TButton。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form6: TForm6。implementation{$R *.dfm}procedure (Sender: TObject)。begin。 。 if (39。確認(rèn)要刪除嗎？39。,39。提示39。,mb_yesno)=ID_yes then begin :=true。 :=clteal。 with adoquery1 do begin Close。 。(39。delete from 還書表 where 學(xué)號=39。+)。 execsql。 :=39。39。 (39。信息已刪除！39。,39。確認(rèn)39。,mb_ok)。 。 。end。end。end。procedure (Sender: TObject)。begin 。end。end.27
物理相關(guān)推薦
鄂ICP備17016276號-1