دخول

hadi91

السلام عليكم لدي Table في SQL فيها UserName و Pass قمت الاتصال بالدلفي عادي ووضعت DBedit و ُEdit و وضعت زر يعمل على المقارنة بين Edit و Dbedit اذا وجده مطابق يدخل الى البرنامج و ان لم يجد مطابق لا يدخل و لاكن المشكل هو انه لا يقارن بينهما و هذا هو السورس

كود :
[align=left]
procedure Tselectstructure.Edit1Change(Sender: TObject);  sur edite
begin
adoQuery1.close ;
adoQuery1.SQL.Clear ;
adoQuery1.SQL.Add('select *  from client ') ;
adoQuery1.SQL.Add('Where nom_client LIKE ' + '''%'+edit1.Text+'%''');
adoQuery1.Open
end;[/align]

كود :
begin 
if (dbedit.text=edit1.text ) end (dbedit2.text=edit2.text ) then form2.show
else applic ation.terminat;
end ;
end .

ملاحظة : استعملت ADO

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة