اجرای شرط با استناد به خالی با پر بودن دو تکست باکس

[ninja506]

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

if (Trim(InTarikhS.Text)<>'') and (Trim(InTarikhE.Text)<>'') then
begin
DM.qry1.Close;
DM.qry1.SQL.Clear;
DM.qry1.SQL.Add('SELECT * FROM kod2 WHERE (kodper like '''+ InKodper.TEXT+''' and tarikh between '''+ InTarikhS.TEXT+''' and '''+ InTarikhE.TEXT+''' ) ');
DM.qry1.Open;
DM.qry2.Close;
DM.qry2.SQL.Clear;
DM.qry2.SQL.Add('SELECT name,family from perseneli WHERE (kodper like '''+ InKodper.Text+''') ');
DM.qry2.Open;
Printall.frxrprt1.ShowReport();
end
else if (Trim(InTarikhS.Text)='') and (Trim(InTarikhE.Text)='') then
begin
DM.qry1.Close;
DM.qry1.SQL.Clear;
DM.qry1.SQL.Add('SELECT * FROM kod2 WHERE (kodper like ''%'+ InKodper.TEXT+'%'' ');
DM.qry1.Open;
DM.qry2.Close;
DM.qry2.SQL.Clear;
DM.qry2.SQL.Add('SELECT name,family from perseneli WHERE (kodper like '''+ InKodper.Text+''') ');
DM.qry2.Open;
Printall.frxrprt1.ShowReport();
end;

[khoshblagh]

با سلام
اگر از editMask استفاده نموده باشید در این حالت شرط دوم به حالت نوشته شده جواب صحیحی نمیدهد . زیرا احتمالا از کارکتر ( / ) در آن استفاده شده که در آن صورت باید به روش دیگری شرط دوم را نوشت.