سلام مجدد.مرسی از اظهار لطفتون.

به این ترتیب عمل کنید.
1.پس از طراحی دیتابیس و ساخت فایل رابط کانکشن (connection.udl) بایستی یک دیتا ماژول به فرمتون اضافه کرده و به آن یک adotabو همچنین یک* datasourse و یک adoconnection قرار بدید و از طریق کد یا ویزارد کانکشن استرینگ و بقیه ی تنظیمات (فکر کنم اکثر دلفی کارها اینو دیگه بلدند) رو انجام بدید
2.بعد اون دیتا ماژول رو به فرم اتون با فشردن alt+f11* یوز (use) کنید.
حالا کد زیر رو قرار بدید.
کد:

کد:
if dm.tbl1.Locate("p",edt1.Text,[loCaseInsensitive]) then
begin
if dm.tbl1["vam"]= true then
begin
ShowMessage("وام دریافت شده");
end
else
begin
ShowMessage("وام تعلق میگیرد");
 edt2.Text:=tbl1.fieldbyname("n").AsString;
 edt4.Text:=tbl1.fieldbyname("p").AsString;
 edt3.Text:=tbl1.fieldbyname("l").AsString;
 edt5.Text:=tbl1.fieldbyname("m").AsString;
end;
end
else
begin
 *ShowMessage("مقدار وارد در بانک اطلاعاتي موجود نمي باشد");
 *edt1.Text:="";
end;


حالا میتونید برای بقیه ی سرویسها هم مثل وام عمل کنید...