首先:新增adoquery1控制項(用於執行sql語句)
其次:執行sql語句
if edit1.text='' then
begin
showmessage('請輸入使用者名稱');
edit1.setfocus;
endelse if edit2.text='' then
begin
showmessage('請輸入密碼');
edit2.setfocus;
endelse
begin
//呼叫資料庫連線函式
ado.connectionstring:=conn.link;
ado.close;
ado.sql.clear;
//指定ado欲執行的sql語句
ado.sql.add('select * from admin where 姓名=:a');
//將edit1.text值付給變數a
ado.parameters.parambyname('a').value:=trim(edit1.text);
ado.open;
//判斷edit1.text的值是否等於表裡"姓名"欄位的值
if ado.fieldvalues['姓名']<>trim(edit1.text) then
begin
showmessage('沒有該使用者!');
edit1.text:='';
edit2.text:='';
edit1.setfocus;
endelse if ado.fieldvalues['密碼']<>trim(edit2.text) then
begin
showmessage('密碼正確!');
edit2.text:='';
edit2.setfocus;
endelse
begin
ado.close;
ado.sql.clear;
//釋放窗體from1
form1.release;
showmessage('登陸成功!');
//顯示窗體form2
form2.show;
end;
delphi資料庫開發之資料記錄修改
ado.close ado.sql.clear ado.sql.add update userinfo set 姓名 a,性別 b,年齡 c,學歷 d where id e ado.parameters.parambyname a value trim edit2.text ado.paramete...
Delphi資料庫開發之SQL寫法的技巧1
資料庫應用程式肯定離不開sql語句的應用，而平常用得最多的應該是tquery，tadoquery一類的控制項，其他的還有tupdatesql，tadocommand等控制項。sql語句就是在以上兩種控制項的sql屬性中設定。sql屬性的資料型別是tstringlist。可以用sql.text sql...
Delphi 壓縮Access資料庫
由於access資料庫在反覆使用過程中會自動增大，delphi壓縮access資料庫的簡單方法如下 首先要引用comobj單元 function tform1.compac b const dbfile,pwd string boolean var tempdbfile string constr ...