Printable View
دوست عزيز.
من مطابق با چيزي كه در پست 2 گفتم عمل كردم و كدش در زير هست.
براي اين كار هم يك فيلد با نام Chk از جنس Boolean در ديتابيس ساختم واينو برات نوشتم.
کد:Data.First;
While not Data.Eof do begin
if pos(Data.Fieldvalu['Name'],Edit1.text) > 0 then begin
data.edit;
data.fieldvalue['Chk'] := True;
end
else
data.fieldvalue['Chk'] := False;
data.next;
end;
data.Filter := 'Chk = True';
براي توضيح هم بگم كه :
1. اسم لينك اطلاعاتي در كدي كه نوشتم (از هر نوعي كه ميخواهد باشد) ، Data نام دارد.
2. تابع Pos هميشه به دنبال مقدار اول در مقدار دوم ميگردد . بنابراين بايد مقادير تابع را در مثال قبل عوض كني تا نتيجه درست و دلخواهت رو بگيري. مقدار خروجي اين تابع شماره حرفي است كه تكه اول در تكه دوم شرو ميشود.
3. من با يك EditBox مقدار را گرفته و با فيلد Name در داخل ديتابيس مقايسه كردم.
بازم اگه مشكلي بود و سوالي داشتي خبرم كن.
دوست عزيز.نقل قول:
ديتابيسهاي قديمي فرامين SQL رو ساپورت نميكنن و به ناچار بايد از فرامين و كلكهاي عجيب غريب استفاده كني.
البته تا جايي كه من ميدونم.
براي مثال ديتابيسهاي قديمي فاكسپرو و پارادوكس از اين نوع هستند.
ولي اگر اشتباه ميگم لطفا راهنمايي كن.
يك دنيا ممنونم مرد مباح
فكر كنم كارم راه بيفته. اميدوارم شما هم هر مشكلي داري حل شه
قربونت
Romixery
مرد مباح عزيز سلام
متاسفانه بازم كارم راه نيفتاد.
قبل از همه اينو بگم كه كار با تابع pos رو بلد بودم. و كاربرد اين تابع در اينجا جالب بود. و اما بعد...
اين تابعي كه شما نوشتين يه اشكال اساسي داره اونم اينه كه توي اون شرطي كه نوشتين تا مقدار جدول با مقدار Editbox مقايسه بشه، قسمت زير اشكال داره.
Data.Fieldvalue['name']در اينجا اشكال داره
يعني برنامه نمي تونه اين كار را انجام بده و نام Fieldvalue در ليست AutoComplition براي Data وجود نداره. راستش براي منم عجيبه كه نمي تونه اين كار رو انجام بده. حتي از Query هم به جاي Table استفاده كردم ولي بازم جواب نداد.
راستي شما كه ميگيد بانك اطلاعاتي از نوع Prodex قديمي هست پيشنهاد ميدين از كدوم نوع بانك استفاده كنم؟
بازم ممنون
مرد مباح عزيز سلام
آقا شرمنده. ولي دستون درد نكنه. درستش كردم
با يك كم تغيير در تابع شما تونستم درستش كنم. فقط يك متغير String تعريف كردم و Data.FieldValue رو به اون نسبت دادم. درست شد.
تابع درستش رو اينجا مي زارم تا همه ببينن. بازم يك دنيا ممنون
[php]procedure TForm1.bbClick(Sender: TObject);
var
st:string;
begin
table1.First;
while not table1.Eof do
begin
table1.Edit;
st:=table1.FieldValues['CD name'];
if pos(search.Text,st)>0 then
begin
table1.FieldValues['check']:=1;
end
else
table1.FieldValues['check']:=0;
table1.Next;
end;
table1.Filtered:=true;
table1.Filter:='check=1';
end;
[/php]
ميتونستي از يك راه ديگه مثل FieldbyName هم استفاده كني تا حل بشه.
ضمنا اگه از اكسس ويا اس كيو ال استفاده كني خيلي قويتر و سريعتر و همچنين راحتر كار ميكني.
چون ديگه با چندتا فايل سروكار نداري و با يك فايل كار ميكني.
خوشحالم كه مشكلت حل شد.
موفق باشي.
سلام دوست عزیزنقل قول:
تو اشتباه میکنی، زبان پرسجوی SQL رو تمام DBMS های تحت ویندوز حتی پارادوکس جواب میده. فقط کافیه که بجای کامپوننت TTable از کامپوننت TQurey استفاده کنی و در قسمت SQL عبارت پرسجو رو بنویسی هم خیلی راحته و هم جواب قطعی و سریع بهت میده. روشهایی که تو این تاپیک مطرح شدن یکی یکی رکوردها رو جستجو می کنند که برای یه دیتا بیس بزرگ خیلی کند عمل میکنه ولی SQL برای تمام دیتا بیسها بسته به امکانات DBMS سریع ترین جواب رو میده.
فقط رو دیتا بیسهای تحت داس ممکنه جواب نده که اون رو هم امتحان نکردم و نمیدونم ولی رو پارادوکس خودم امتحان کردن و جواب گرفتم. :5:
موفق باشید
بای
ممنون دوست عزيز كه اين راهنمايي ها رو كردي.
خواهش میکنم قابلی نداشت اگه کمک دیگه ای خواستید در مورد کد و برنامه در خدمتم
بای