کمک در کد جستجوی این برنامه

[mvb_mehran]

با سلام
من یه پروژه دارم که باید در پایگاه داده برنامه براساس کد پرسنلی اگه نبود نام اگه اونم نبود بر اساس کدملی جستجو بشه.
70572
هر چی نوشتم فقط کد پرسنلی درست میشد بقیه رو ارور فیلد پایگاه داده میداد.
با تشکر:خجالت:

[Felony]

ما از کجا بدونیم اسم فیلدهاتون چیه و دقیقا چه کدی نوشتید که مشکل داره ؟!

[mvb_mehran]

مگه تو عکس معلوم نیست؟

اینم کد:
procedure Ttashihperfm.RadioButton1Click(Sender: TObject);
begin
DataModule16.pers1.SetKey;
DataModule16.pers1.FieldByName('CodePersoneli').As String:=edit1.Text;
DataModule16.pers1.GotoKey;
end;

procedure Ttashihperfm.RadioButton3Click(Sender: TObject);
begin
DataModule16.pers1.SetKey;
DataModule16.pers1.FieldByName('CodeMelli').AsStri ng:=edit1.Text;
DataModule16.pers1.GotoKey;
end;

procedure Ttashihperfm.RadioButton2Click(Sender: TObject);
begin
DataModule16.pers1.SetKey;
DataModule16.pers1.FieldByName('Name').AsString:=e dit1.Text;
DataModule16.pers1.GotoKey;
end;

[Mahmood_M]

هر چی نوشتم فقط کد پرسنلی درست میشد بقیه رو ارور فیلد پایگاه داده میداد.
فیلدهایی که با SetKey و GotoKey جستجو میشن ، باید ایندکس گذاری شده باشن ، البته بهتره که از Locate به جای GotoKey استفاده کنید !
موفق باشید ...