數(shù)據(jù)庫應(yīng)用系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)計(jì)劃書(已改無錯(cuò)字)
2022-09-01 00:22:28 本頁面
【正文】 ComboBox1: TComboBox。 Label2: TLabel。 Label3: TLabel。 Button2: TButton。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form4: TForm4。implementation{$R *.dfm} procedure (Sender: TObject)。 varsql:string。 begin :=true。:=clteal。if (=39。圖書信息39。) thenbeginif (=39。39。) thenbegin MessageBox(handle,39。請(qǐng)輸入,不能為空！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 exit。 end else begin sql:=39。where ( 圖書號(hào)=39。39。39。++39。39。39。) 39。 。 。 (39。select * from 圖書表39。)。 (sql)。 MessageBox(handle,39。查詢完畢！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 。 :=39。39。 end 。 end else if (=39。還書項(xiàng)目39。) thenbeginif (=39。39。) thenbegin MessageBox(handle,39。請(qǐng)輸入,不能為空！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 exit。 end else begin sql:=39。where ( 學(xué)號(hào)=39。39。39。++39。39。39。) 39。 。 。 (39。select * from 還書表39。)。 (sql)。 MessageBox(handle,39。查詢完畢！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 。 :=39。39。 end 。 end else if (=39。學(xué)生信息39。) thenbeginif (=39。39。) thenbegin MessageBox(handle,39。請(qǐng)輸入,不能為空！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 exit。 end else begin sql:=39。where ( 學(xué)號(hào)=39。39。39。++39。39。39。) 39。 。 。 (39。select * from 學(xué)生信息表39。)。 (sql)。 MessageBox(handle,39。查詢完畢！39。,39。提示39。,MB_OK or MB_ICONINFORMATION)。 。 :=39。39。 end 。 end。end。procedure (Sender: TObject)。begin 。end。end.unit Unit5。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls。type TForm5 = class(TForm) GroupBox1: TGroupBox。 Button1: TButton。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Button2: TButton。 Label4: TLabel。 Edit1: TEdit。 Edit2: TEdit。 Edit3: TEdit。 Edit4: TEdit。 ADOConnection1: TADOConnection。 ADOQuery1: TADOQuery。 DataSource1: TDataSource。 DBGrid1: TDBGrid。 Button3: TButton。 procedure Button1Click(Sender: TObject)。 procedure Bu
物理相關(guān)推薦
鄂ICP備17016276號(hào)-1