【正文】 時(shí)了解了開發(fā)一個(gè)系統(tǒng)所要做的具體工作?！⒖嘉墨I(xiàn)　[1]薩師煊 王珊 “數(shù)據(jù)庫系統(tǒng)概論”，高等教育出版社，1999　 　　　附件：　　unit Unit1?！　nterface　uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,　 Dialogs, DB, ADODB, StdCtrls, jpeg, ExtCtrls?！　ype　 TForm1 = class(TForm)　 Image1: TImage?！　? Label1: TLabel。　　 Edit1: TEdit?！　? Label2: TLabel。 Edit2: TEdit?！　? Button1: TButton?！　? Button2: TButton?！? ADOQuery1: TADOQuery。　 DataSource1: TDataSource。 ADOConnection1: TADOConnection。 procedure Button1Click(Sender: TObject)?！? procedure Button2Click(Sender: TObject)?！　? private　 { Private declarations }　　 public　 { Public declarations } end?！　ar Form1: TForm1?！　mplementation　　{$R *.dfm}　　uses unit2?！　rocedure (Sender: TObject)?！ar username,password:string?！　eginusername :=trim()。 password :=trim()。 if username=39。39。 then　 begin　 ShowMessage(39。用戶名不能為空39。)。　　 end　 else if password=39。39。 then　 begin ShowMessage(39。密碼不能為空39。)?！　? end　 else begin　 。 ?！　? (39。select * from login where username=39。39。39。+username+39。39。39。 and password =39。39。39。+password+39。39。39。39。)?！? 。 if 1 then　 begin　 showmessage(39。用戶名或密碼錯(cuò)誤39。)。 end　 else　 begin　 ?！? ?！　? end。 end。end。procedure (Sender: TObject)。begin　　 ?！nd?！　nd.　　　　　　unit Unit2?！　　nterface　　　　uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, jpeg, ExtCtrls。type　 TForm2 = class(TForm)　　 MainMenu1: TMainMenu?！? N1: TMenuItem。　　 N2: TMenuItem?！? N3: TMenuItem。　 N4: TMenuItem?！　? N5: TMenuItem。 N6: TMenuItem。 Image1: TImage?！? Label1: TLabel。 Label2: TLabel?！? procedure N2Click(Sender: TObject)。 procedure N3Click(Sender: TObject)。 procedure N5Click(Sender: TObject)?！? procedure N6Click(Sender: TObject)?！　? procedure N4Click(Sender: TObject)?！? private　 { Private declarations } public　　 { Public declarations }　　 end?！　ar Form2: TForm2?！　　　mplementation　　　uses Unit3, Unit4, Unit5, Unit6?！　　$R *.dfm}　procedure (Sender: TObject)?！　egin　　?！nd?！　rocedure (Sender: TObject)。begin?！　nd?！　　rocedure (Sender: TObject)?！　egin　。　end。　procedure (Sender: TObject)?！　egin　　?！nd?！　rocedure (Sender: TObject)?！egin ?！　nd。　end.　　　　unit Unit3?！　nterface　　uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB?！　ype TForm3 = class(TForm)　 Label1: TLabel。 Label2: TLabel。 Edit1: TEdit?！　? Label3: TLabel?！? Edit2: TEdit?！? Label4: TLabel?！? Edit3: TEdit。　　 Label5: TLabel。　　 Edit4: TEdit?！? Label6: TLabel?！　? Edit5: TEdit。 Label7: TLabel?！? Edit6: TEdit?！? Button1: TButton。　 Label8: TLabel。　　 ComboBox1: TComboBox?！　? Label9: TLabel。 Edit7: TEdit。 Button2: TButton。 DBGrid1: TDBGrid?！　? ComboBox2: TComboBox?！　? Label10: TLabel?！? Label11: TLabel。　　 Edit8: TEdit?！? Label12: TLabel?！　? Edit9: TEdit?！　? Button3: TButton。 Label13: TLabel?！? Label14: TLabel。 ComboBox3: TComboBox?！　? Edit10: TEdit。 Button5: TButton?！? ADOQuery1: TADOQuery?！? DataSource1: TDataSource?！　? Button4: TButton。 ADOConnection1: TADOConnection?！　? procedure Button5Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)?！　? procedure Button1Click(Sender: TObject)。　　 procedure Button4Click(Sender: TObject)?！? 　 private　　 { Private declarations } public　　 { Public declarations } end。　　　　var Form3: TForm3。implementation　　uses Unit2?！　　$R *.dfm}　procedure (Sender: TObject)?！egin　　?！?。　end。　　procedure (Sender: TObject)。begin　　if =0 then begin　 。 。 (39。select * from 學(xué)生表 where 學(xué)號(hào)=39。39。39。++39。39。39。39。)?！　? 。 if =0 then　　 showmessage(39。對(duì)不起，沒有此學(xué)號(hào)，請(qǐng)重新輸入39。)。 :=true?！? end　　 else if =1　 then begin　 。　　 。 (39。select *from 學(xué)生表 where 姓名=39。39。39。++39。39。39。39。)?！　? 。　 if =0 then showmessage(39。對(duì)不起，沒有此姓名，請(qǐng)重新輸入39。)。 :=true?！　? end else if =2 then begin　 。 。　　 (39。select *from 學(xué)生表 where 籍貫=39。39。39。++39。39。39。39。)?！? 。　 if =0 then showmessage(39。對(duì)不起，沒有此籍貫，請(qǐng)重新輸入39。)。 :=true?！　? end else if =3　 then begin ?！? 。 (39。select *from 學(xué)生表 where 專業(yè)=39。39。39。++39。39。39。39。)。 。 if =0 then　 showmessage(39。對(duì)不起，沒有此專業(yè)，請(qǐng)重新輸入39。)。 :=true。 end　　　 else if =4 then begin 。 。 (39。select *from 學(xué)生表 where 年齡=39。39。39。++39。39。39。39。)。　　 。 if =0 then　 showmessage(39。對(duì)不起，沒有此年齡，請(qǐng)重新輸入39。)?！? :=true?！? end　　　 else if =5　　 then begin ?！　? ?！　? (39。select *from 學(xué)生表 where 性別=39。39。39。++39。39。39。39。)?！　? ?！? if =0 then showmessage(39。對(duì)不起，沒有此性別，請(qǐng)重新輸入39。)。 :=true。　 end　　　end?！　　　rocedure (Sender: TObject)。begin if =1　　then begin　。　 ?！　? (39。update 學(xué)生表 set 姓名=39。39。39。++39。39。39。 where 姓名=39。39。39。++39。39。39。39。)。 。 showmessage(39。修改學(xué)生信息記錄成功！39。)?！?。 。