فیلتر روی فیلد عددی [بایگانی]

Mohammad S

دوشنبه 08 تیر 1383, 18:39 عصر

من می خواهم روی فیلد عددی فیلتر بگذارم به طوری که اگر کاربر عدد 1 را وارد کرد، اعداد 1و 11و 112و 14و 123و .... همه را نشان دهد. بانکم هم SQL Server هست ولی به دلایلی نمی خواهم از دستورات SQL استفاده کنم. خودم کد زیر را نوشتم که برای فیلدهای متنی جواب می دهد ولی اینجا خطا می گیرد و پیغام می دهد که مثلا *1 از نوع Integer نیست:

DM.ClientDataSet1.Filter:='ssjens='+QuotedStr(Ajna s_Show.Edit1.Text+'*');

با تشکر

فرزاد دلفی باز

پنج شنبه 08 مرداد 1383, 01:58 صبح

دوست عزیز : من از این تیکه کد استفاده کرده ام که SQL هم نیست .
: table1.Filtered := false
: ' ' ' ' + ' * ' + table1.Filter := 'Code='+' ' ' '+Edit1.text
: table1.filtered := true
که Code آن فیلد ای است که شما می خواهید آنرا فیلتر کنید . موفق باشی :flower:

MiRHaDi

پنج شنبه 15 مرداد 1383, 04:27 صبح

سلام
نیازی به true/false کردن filtered نیست ! همون فعال باشه خودش درست میشه
ولی سوال ایشون برای عددی هست این که شما نوشتی برای نوشتاریه ! برای عددی من از راست به چپش رو بلدم از چپ به راستش فکر نکردن هنوز روش اگه چیزی به ذهنم رسید یادم بود میگم بای

فریدی

پنج شنبه 22 مرداد 1383, 11:27 صبح

با سلام
شما میتوانید یک editboxدر فرمتان قرار دهید و در رویداد OnFilter recordجدول کدهای زیر را وارد کنید

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin

Accept:=table1.FieldByName(feildname).Value=edit1. text;
end;
موفق باشید.

Mohammad S

جمعه 23 مرداد 1383, 01:27 صبح

با سلام
شما میتوانید یک editboxدر فرمتان قرار دهید و در رویداد OnFilter recordجدول کدهای زیر را وارد کنید

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin

Accept:=table1.FieldByName(feildname).Value=edit1. text;
end;
موفق باشید.

با تشکر از شما
اگر ممکن است یک نمونه برنامه در اینجا قرار دهید چون من نتوانستم با این چیزی که شما فرمودید، کار کنم.
ضمنا لطفا کدهای خود را درون تگ Code قرار دهید.

فریدی

جمعه 30 مرداد 1383, 23:23 عصر

این دستور را امتحان کن :

;Accept:=table1.FieldByName(feildname).Value=feild data

feilddata و feildname هر دو String هستند.[/code]