آموزش و سوالات مربوط به استفاده از دستورات Sql در دلفی

سالار با توجه به کدی که شما نوشتید ممکنه کارمندان (رکوردها) زیادی باشند که نام، نام خانوادگی و نام پدر یکسانی دارند. پس بهتره بعد از جستجو رکوردها رو پیمایش کنید تا همه اطلاعات رو داشته باشید و یا در dbgrid نمایش بدید
توصیه بهتر برای حل این مشکل این هست که جستجو رو بر اساس شماره پرسنلی کارمندان انجام بدید اما اگر به هر دلیل مجبور به جستجو با روش خودتون هستید، راه حل قبلی رو انجام بدید
موفق باشید

سالار با توجه به کدی که شما نوشتید ممکنه کارمندان (رکوردها) زیادی باشند که نام، نام خانوادگی و نام پدر یکسانی دارند. پس بهتره بعد از جستجو رکوردها رو پیمایش کنید تا همه اطلاعات رو داشته باشید و یا در dbgrid نمایش بدید
توصیه بهتر برای حل این مشکل این هست که جستجو رو بر اساس شماره پرسنلی کارمندان انجام بدید اما اگر به هر دلیل مجبور به جستجو با روش خودتون هستید، راه حل قبلی رو انجام بدید
موفق باشید

خیلی بزرگی مرسی
فقط اینکه جستجوم باید حتما با این فیلدا باشه در فرمم دو نوع جستجو دارم که یکیش همین کد پرسنلی این جستجو با کد کارمندی که کامل کار میکنه اما نوع دومشم یعنی نام و.. لازم دارم
حرف شما درست ممکنه چند رکورد با این مشخصات باشه من نمیخوام dbgrid در فرمم اضافه کنم بحث اینجا نیست بحث اینه که وقتی مشخصات رو میدم و دکمه ی جستجو را میزنم اگه این اطلاعات در رکورد اول جدولم باشه درست کار میکنه ولی اگه در رکورد دوم جدولم باشه کار نمیکنه یعنی جستجو نمیشه من فعلا 3 رکورد اطلاعات دارم که شبیه هم نیستن این جستجو نمیره در رکوردهای بعدی من سرچ کنه یه مشکل عجیب هستش که هر چقدر فکر میکنم نمیدونم ایراد از کجاست
شرمنده که مزاحمت شدم دادش
اینم که میگم سالاری زبون بازی نیست همین که وقت میزاری جواب میدی نشانه ی سالار بودنته امیدوارم که ناراحت نشی از این کلمه

نقل قول:

---

بحث اینه که وقتی مشخصات رو میدم و دکمه ی جستجو را میزنم اگه این اطلاعات در رکورد اول جدولم باشه درست کار میکنه ولی اگه در رکورد دوم جدولم باشه کار نمیکنه یعنی جستجو نمیشه

---

پس لطفا کد کامل رو اینجا بذارید و یا قطعه مربوط به این قسمت از برنامه رو به همراه بانک آپ کنید تا من یا دوستان بررسی کنیم

نقل قول:

---

شرمنده که مزاحمت شدم دادش

---

دشمنان شما شرمنده باشند دوست عزیز

نقل قول:

---

اینم که میگم سالاری زبون بازی نیست همین که وقت میزاری جواب میدی نشانه ی سالار بودنته امیدوارم که ناراحت نشی از این کلمه

---

میدونم. قبلا هم گفتید
راحت باشید

فرهاد جان سلام
این کد کامل که واسه قسمت جستجو با نام و ...در یه دکمه نوشتم

کد:

---

procedure TForm8.BitBtn3Click(Sender: TObject);
begin
data.Karmand.SQL.Clear;
data.Karmand.Close;
data.Karmand.SQL.Add('select * from Karmand where ((name='''+edit2.Text+''')and(family='''+edit3.Text+''')and(name_pedar='''+edit4.Text+'''));');
//data.Karmand.SQL.Add('select * from Karmand Where ((name=:a)and(family=:b)and(name_pedar=:c)) ');
//data.Karmand.Parameters.ParamValues['a']:=(edit2.Text);
//data.Karmand.Parameters.ParamValues['b']:=(edit3.Text);
//data.Karmand.Parameters.ParamValues['c']:=(edit4.Text);
data.Karmand.Open;
if data.Karmand.RecordCount<1 then
        begin
        MessageDlg(' Òíäå Çí íÇÝÊ äÔÏ ',mtInformation,[mbOK],0);
        Exit;
        end
        else
        MessageDlg(' ÊÚÏÇÏ ' +IntToStr(data.Karmand.RecordCount)+' јæÑÏ íÇÝÊ ÔÏ',
        mtInformation,[mbOK],0);
edit5.Text:='';
 begin
  label1.Caption:=data.Karmand.Fieldbyname('code_karmandi').asstring;
  label2.Caption:=data.Karmand.Fieldbyname('name').asstring;
  label3.Caption:=data.Karmand.Fieldbyname('family').asstring;
  label4.Caption:=data.Karmand.Fieldbyname('name_pedar').asstring;
  label5.Caption:=data.Karmand.Fieldbyname('s_s').asstring;
  label6.Caption:=data.Karmand.Fieldbyname('birthday').asstring;
  label7.Caption:=data.Karmand.Fieldbyname('semat').asstring;
  label8.Caption:=data.Karmand.Fieldbyname('tell').asstring;
  label9.Caption:=data.Karmand.Fieldbyname('adres').asstring;
  edit5.Text:=data.Karmand.Fieldbyname('masir').asstring;

  end;
    end;

---

که با پارامتر هام نوشتم بازم این مشکل هست
آخه خیلی جالبه من همین کد رو برای کد کارمندی تو همین فرم نوشتم که بدون مشکل کار میکنه
پایگاهم که یه جدول داره با اسم Karmand که تمام فیلدای بالا توش هست همشم از نوع nvarchar هستن
از sqlserver2000 استفاده میکنم
نمیدونم چرا اینطوریه فقط اطلاعات رکورد اولم را با label i ها یکی میکنه
ما خیلی نوکرتیم
مرسی

این کد بدون خطا اجرا میشه!؟
این قسمت از کد همیشه اجرا میشه. یعنی به شرطی که شما گذاشتید ارتباطی نداره. ضمنا این begin..end که قرمز کردم هم نباید وجود داشته باشه:

کد:

---

edit5.Text:='';
 begin
  label1.Caption:=data.Karmand.Fieldbyname('code_karmandi').asstring;
  label2.Caption:=data.Karmand.Fieldbyname('name').asstring;
  label3.Caption:=data.Karmand.Fieldbyname('family').asstring;
  label4.Caption:=data.Karmand.Fieldbyname('name_pedar').asstring;
  label5.Caption:=data.Karmand.Fieldbyname('s_s').asstring;
  label6.Caption:=data.Karmand.Fieldbyname('birthday').asstring;
  label7.Caption:=data.Karmand.Fieldbyname('semat').asstring;
  label8.Caption:=data.Karmand.Fieldbyname('tell').asstring;
  label9.Caption:=data.Karmand.Fieldbyname('adres').asstring;
  edit5.Text:=data.Karmand.Fieldbyname('masir').asstring;

  end;

---

جدول مشخصات رو هم بگذارید تا کد اصلاح شده رو بنویسم

با سلام به شما
اگه منظورتون در مورد کد پست قبلیم هست آره کامل اجرا میشه بدون خطا هممونطور که گفتم تنها مشکلش اینه که تنها رکورد اول جدولم رو جستجو میکنه یعنی اگه در edit هام نام و نام خانوادگی و نام پدر را بنویسم اگه اطلاعات رکورد اول جدولم باشه caption لیبلهام رو به اطلاعات اون رکوردم تغییر میده ولی اگه اطلاعات رکورهای بعدی جدولم رو بدم طبق دستور messagedlg به من بر میگردونه که همچین گزینه ای نیست
این کد برای کد کارمندی بدون مشکل عمل میکنه

نقل قول:

---

این قسمت از کد همیشه اجرا میشه. یعنی به شرطی که شما گذاشتید ارتباطی نداره.

---

اینطوری که شما گفتین نیست این کد

کد:

---

  label1.Caption:=data.Karmand.Fieldbyname('code_karmandi').asstring;
  label2.Caption:=data.Karmand.Fieldbyname('name').asstring;
  label3.Caption:=data.Karmand.Fieldbyname('family').asstring;
  label4.Caption:=data.Karmand.Fieldbyname('name_pedar').asstring;
  label5.Caption:=data.Karmand.Fieldbyname('s_s').asstring;
  label6.Caption:=data.Karmand.Fieldbyname('birthday').asstring;
  label7.Caption:=data.Karmand.Fieldbyname('semat').asstring;
  label8.Caption:=data.Karmand.Fieldbyname('tell').asstring;
  label9.Caption:=data.Karmand.Fieldbyname('adres').asstring;
  edit5.Text:=data.Karmand.Fieldbyname('masir').asstring;


---

به شرطم بستگی داره یعنی اگه در عمل جستجو رکوردی را پیدا کنه میاد و caption ها رو تغییر میده
من نفهمیدم منظورتون از این جدول مشخصات چی بود یعنی فایل دیتا بیسم رو براتون بفرستم؟
اگه منظورتون این بود من فایل دیتا بیسم رو آپلود کردم اینم لینکش
[HTML]
http://two.xthost.info/pourya/Daftar
[/HTML]
بدجور گیجم کرده نوکرتم به دادم برس
بازم مرسی

داداش فرهاد من یه ویدو از فرمم براتون گذاشتم که نحوه ی کار باهاشو ببینید
اگه دقت کنید وقتی من کد کارمندی نام پوریا رو میدم و جستجو میکنم
درست عمل میکنه حالا در جستجو با نام و... وقتی رکورد اول جدولم که رامین احمدی با نام پدر احمد رو میزنم درست عمل میکنه در حالی که وقتی نام و... پوریا رستمی را که در همون جدول اطلاعاتش هست و با کد کارمندی جستجو میشه را جستجو میکنم رکورد پوریا رو جستجو نمیکنه و میگه گزینه یافت نشد
اینم ویدئوش
[html]
http://two.xthost.info/pourya/1.zip
[/html]

دادش فرهاد کجایی ؟

نقل قول:

---

اینطوری که شما گفتین نیست این کد به شرطم بستگی داره یعنی اگه در عمل جستجو رکوردی را پیدا کنه میاد و caption ها رو تغییر میده

---

خیر، اینطوری که شما گفتین نیست!
به کد نمونه زیر که به ساختار کد شما شباهت داره توجه کنید:

کد:

---

if 3<2 then
begin
  ShowMessage('aaa');
  ShowMessage('bbb');
end
else
  ShowMessage('ccc');

begin
    ShowMessage('aaabbbccc');
    ShowMessage('dddddddd');
end;
/////////////////////
/////////////////////
/////////////////////
/////////////////////
/////////////////////
if 3>2 then
begin
  ShowMessage('aaa');
  ShowMessage('bbb');
end
else
  ShowMessage('ccc');

begin
    ShowMessage('aaabbbccc');
    ShowMessage('dddddddd');
end;

---

کد شما هم دقیقا همین حالت رو داره
ضمنا فایل دیتابیس شما چرا پسوند نداره؟ چه دیتابیسی هست که بتونم باهاش ارتاباط برقرار کنم