login dengan mencocokkan query(pada sql server)

pertama, kita buat database dulu, contoh database tutorial, dan kita buat table t_user berisi username dan password.
———
masuk ke program delphinya
buat form login, datamodule, dan form menu utama
untuk form login c0ba gunakan form1,tambahkan datamodule2 dan form3,untuk kemudian datamodule2 kita tambahkan adoconnection1, adoquery1. dan datasource1, setelah itu pada form login kita tambahkan edit1, edit2, dan button 1, edit1 untuk username, edit2 untuk password dan button1 untuk tombol login yang bila cocok akan mengarah ke form3, berikut tampilannya
=======================================================

untuk syntax pada button1(login) adalah sebagai berikut :
with datamodule2 do
begin
ADOConnection1.Close;
adoquery1.Close;
adoquery1.SQL.Clear;
//mencocokkan dengan data yang ada
adoquery1.SQL.Add(‘select * from t_user where username=”’+Edit1.Text+”’ and password=”’+Edit2.Text+””);
ADOConnection1.open;
adoquery1.Prepared;
adoquery1.Open;
adoquery1.Active:=true;
if ADOQuery1.IsEmpty then
{jika hasilnya tidak ada maka}
begin
showmessage(‘username atau password salah’);
edit1.Text:=”;
edit2.Text:=”;
edit1.SetFocus;
end
else{jika hasilnya ada}
begin
form3.showmodal;
edit1.Text:=”;
edit2.Text:=”;
end;

end;
************************************************************