kart no eşleştirme

[Ahmet ALTUNTAŞ]

Merhaba arkadaşlar
programda takıldıgım bir yer var.
Personel giriş programı yapıyorum ve ilk once kişiyi tanıttıgım bir kısım var.Burada kişin adi soyadı fln ve kart no var.
diyelim kart no 01
ben kart no 01 olan kartı okuttugumda bu kart no ya sahip kişiyi nasıl eşleştiricem.

[thelvaci]

SQL Server için cevap vermek icap ederse;

Create Procedure Sp_Find_Personel
@KartNo INT
AS
Select * from Personel
Where KartNo = @KartNo

[Ahmet ALTUNTAŞ]

Cevap için teşekkür ederim
ama programlama konusunda çok iyi değilim.Kendi yazdıgım kodlar aşagıda biraz daha açıklayarak anlatmanız mümkünmü rica etsem.

procedure TfrmGoster.qryBeforeInsert(DataSet: TDataSet);
begin
qry.Parameters.ParamByName('p1').Value:=edit1.Text;
qry.Open;
try
if qry.Isempty then
begin
if messagebox (handle,'Kullanıcı Adı veya Şifre Yanlış! Tekrar Denemek İstermisiniz?',
'UYARI',mb_YESNO or MB_ICONWARNING)= IDYES then
begin
abort;
end;
end;
finally
qry.close;
end;
end;
procedure TfrmGoster.Edit1Change(Sender: TObject);
var
t:ttime;
begin
t:=now;
edit2.text:=timetostr(t);
if length(edit1.Text) =9 then
begin
qry.close;
qry.SQL.Clear;
qry.SQL.Text:='insert into Tbl_Hareket (GirisSaat) VALUES ('+#39 +edit2.text +#39+ ')';
qry.ExecSQL;
ADOTable1.Close;
ADOTable1.Open;
edit1.Text:='';
edit2.Text:='';

end;
end;
end.