數(shù)據(jù)庫應(yīng)用系統(tǒng)的設(shè)計和實現(xiàn)計劃書(編輯修改稿)
2024-08-31 00:22 本頁面
【文章內(nèi)容簡介】 ls, Forms, Dialogs, StdCtrls。type TForm2 = class(TForm) GroupBox1: TGroupBox。 Button1: TButton。 Button2: TButton。 Button3: TButton。 Button4: TButton。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form2: TForm2。implementationuses Unit3, Unit4, Unit5, Unit6。{$R *.dfm}procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin。end。procedure (Sender: TObject)。begin。end。end.unit Unit3。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls。type TForm3 = class(TForm) GroupBox1: TGroupBox。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Edit1: TEdit。 Edit2: TEdit。 Edit3: TEdit。 Button1: TButton。 ADOConnection1: TADOConnection。 ADOTable1: TADOTable。 DataSource1: TDataSource。 DBGrid1: TDBGrid。 Button2: TButton。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var Form3: TForm3。implementation{$R *.dfm}procedure (Sender: TObject)。begin。 。 if (=39。39。)or(=39。39。)or(=39。39。) thenbegin(39。信息不完整！39。,39。錯誤操作39。,mb_ok)。exit。end 。 with adotable1 do begin open。 ([,]) 。 edit。 post。 :=39。39。 :=39。39。 :=39。39。 (39。信息已錄入！39。,39。確認39。,mb_ok)。 。 。end。end。procedure (Sender: TObject)。begin。end。end.unit Unit4。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, Grids, DBGrids, ADODB。type TForm4 = class(TForm) GroupBox1: TGroupBox。 Label1: TLabel。 Button1: TButton。 ADOConnection1: TADOConnection。 ADOQuery1: TADOQuery。 DBGrid1: TDBGrid。 DataSource1: TDataSource。 Edit1: TEdit。
物理相關(guān)推薦
鄂ICP備17016276號-1