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

[mvb_mehran]

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

[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 استفاده کنید !
موفق باشید ...