چرا همیشه سطر اول ویرایش میشه.........؟!

سلام
یه نگاه به این کد بندازید:

کد:

کد:

---

if ((DataModule2.ADOTable1.Locate('user',edit1.text,[]))=true) and
  ((DataModule2.ADOTable1.Locate('pass',edit2.text,[]))=true)  then
begin
    dataModule2.ADOTable1.edit;
    if edit2.Text<>''  then
      DataModule2.ADOTable1.FieldByName('pass').Value:=edit2.Text;
  if edit3.Text<>''  then
      DataModule2.ADOTable1.FieldByName('f_name').Value:=edit3.Text;
    if edit4.Text<>''  then
      DataModule2.ADOTable1.FieldByName('l_name').Value:=edit4.Text;

    DataModule2.ADOTable1.Post;
end;

---

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

کد:

---

edit1.text----->user
edit2.text----->pass
edit3.text----->f_name
edit4.text----->l_name

---

به غیر از یوزر یا همون نام کاربری بقیه فیلدها قابل ویرایشن...به شرطی که خالیشون نذاری

ولی نمیدونم چرا همیشه هر چی که وارد میکنم سطر اول و ویرایش میکنه ؟؟؟؟

سلام. دقيقا نمي دونم ميخواين چيكار كنين ولي احتمال زياد با كد زير كارتون راه بيفته:

کد:

---

  DataModule2.ADOTable1.First;
  while Not DataModule2.ADOTable1.Eof do
  begin
    if (DataModule2.ADOTable1.FieldValues['user']=Edit1.Text) and
      (DataModule2.ADOTable1.FieldValues['pass']=Edit2.Text) then
      Begin
        DataModule2.ADOTable1.Edit;
        if edit2.Text<>''  then
          DataModule2.ADOTable1.FieldValues['pass']:=edit2.Text;
        if edit3.Text<>''  then
          DataModule2.ADOTable1.FieldValues['f_name']:=edit3.Text;
        if edit4.Text<>''  then
          DataModule2.ADOTable1.FieldValues['l_name']:=edit4.Text;
        DataModule2.ADOTable1.Post;
        Break;
      end;
      DataModule2.ADOTable1.Next;
  end;

---

يه توصيه: بهتره از همين حالا از ADOQuery و SQL به جاي ADOTable استفاده تا كنترل بيشتري روي بانكتون داشته باشين
باي

نقل قول:

---

نوشته شده توسط romixery [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

سلام. دقيقا نمي دونم ميخواين چيكار كنين ولي احتمال زياد با كد زير كارتون راه بيفته:

کد:

---

  DataModule2.ADOTable1.First;
  while Not DataModule2.ADOTable1.Eof do
  begin
    if (DataModule2.ADOTable1.FieldValues['user']=Edit1.Text) and
      (DataModule2.ADOTable1.FieldValues['pass']=Edit2.Text) then
      Begin
        DataModule2.ADOTable1.Edit;
        if edit2.Text<>''  then
          DataModule2.ADOTable1.FieldValues['pass']:=edit2.Text;
        if edit3.Text<>''  then
          DataModule2.ADOTable1.FieldValues['f_name']:=edit3.Text;
        if edit4.Text<>''  then
          DataModule2.ADOTable1.FieldValues['l_name']:=edit4.Text;
        DataModule2.ADOTable1.Post;
        Break;
      end;
      DataModule2.ADOTable1.Next;
  end;

---

يه توصيه: بهتره از همين حالا از ADOQuery و SQL به جاي ADOTable استفاده تا كنترل بيشتري روي بانكتون داشته باشين
باي

---

مرسی ممنونم .....