سرچ ترکیبی [بایگانی]

a-azad

شنبه 06 بهمن 1386, 08:09 صبح

سلام میخواستم یک سرچ ترکیبی انجام بدم با 7 تا edit حتما لازم نباشه هر 7 تا وارد کرد.
لطفا کمک کنید

حمیدرضاصادقیان

شنبه 06 بهمن 1386, 12:21 عصر

سلام.شما میتونی یک تابع کلی بنویسی و یک متغیر string تعریف کنی و در هرکدام مقدار وارد کردی در این متغیر String قرار بدی و در نهایت با توجه به اینکه کدوم edit ها خالی و کدوم مقدار داره سرچ رو روی فیلدها انجام میدی.

a-azad

شنبه 06 بهمن 1386, 13:45 عصر

ممنون می شم اگرکدش برای من بنویسید

SYNDROME

شنبه 06 بهمن 1386, 16:23 عصر

ممنون می شم اگرکدش برای من بنویسید
این لینک را نگاه کنید.
http://barnamenevis.org/forum/showthread.php?t=79777&highlight=IF+Edit1.Text
موفق باشید

bee_seda

شنبه 06 بهمن 1386, 20:15 عصر

ببین از این کد خودم استفاده میکنم و راضی ام و برای هر تعداد edit قابل استفاده است کد اصلیش رو برات میزارم خودت هر جور دوست داری ازش استفاده کن
نکته : برای 2 تا edit باید کل کد توی هر 2 کپی شه .

procedure TForm1.suiEdit1Change(Sender: TObject);
var
si : string;
begin
si := '';

////////////////
if (suiedit1.Text <> '') or (suiedit2.Text <> '') then
begin
if suiedit1.Text <> '' then
if si='' then
si := '(name like '+''''+ trim(suiedit1.Text) + '%' + '''' + ')'
else
si := si + ' and ' + '(name like '+''''+trim(suiedit1.Text) + '%' + '''' + ')' ;
if (suiEdit2.Text <> '') then
if si = '' then
si := '(family like '+''''+trim(suiEdit2.Text ) + '%' + '''' + ')'
else
si := si + ' and ' + '(family like ' + '''' + trim(suiEdit2.Text ) + '%' + '''' + ')' ;
ADOQuery1.Close;
ADOQuery1.SQL.Text := 'select * from t1 where '+ si ;
ADOQuery1.Open ;
end;
end;