아래소스는 최수영님이 팁모아에 올리신 소스입니다....



참고하시길...



Selection.Formula[0] => 요부분이 조건을 넘기는 부분입니다...



님의 환경에 맞게 조건을 검기심 되겠내여...



즐프하세요...



////////////////////////////////////////////////////



procedure Teioa322mform.print_bitClick(Sender: TObject);

begin

if emps170m_q.active = false then exit;



if ijpno_edit.text = '' then

begin

messagedlg('출고전표번호를 확인 하십시오!!! ',mterror,[mbok],0);

?.setfocus;

exit;

end;



with Main.Crpe1 do

begin

Selection.Clear;

GroupSelection.Clear;



OutPut:=toWindow; //uses문에 ucrpe32등록하여야 함

if Uppercase((Sender as TBitBtn).name) = UpperCase('print_bit') then

OutPut:=toPrinter;



WindowStyle.Title:=caption;

ReportName := Main.ReportOpenDlg.InitialDir+'drer150.rpt';

DetailCopies := spinedit1.value;



Connect.ServerName := 'SYBASE';

Connect.UserID := 'est05';

Connect.Password := 'est005';

Connect.DatabaseName:= 'estdb';



if Edit_systemdate.text = '' then

begin

Selection.Formula[0] := '{dio1subu.o1_cust} = "'+cust_edit.text+'" '+

'and {dio1subu.o1_date} >= DTSToDate("'+ from_date + '") '+

'and {dio1subu.o1_date} <= DTSToDate("'+ to_date + '") '+

'and {dio1subu.o1_iono}[1 to 1] = "I" '+

'and {dio1subu.o1_gabu} = "*"';

end

else

begin

Selection.Formula[0] := '{dio1subu.o1_cust} = "'+cust_edit.text+'" '+

'and {dio1subu.o1_date} >= DTSToDate("'+ from_date + '") '+

'and {dio1subu.o1_date} <= DTSToDate("'+ to_date + '") '+

'and {dio1subu.o1_iono}[1 to 1] = "I" '+

'and {dio1subu.o1_gdat} = DTSToDate("'+ system_date+'") '+

'and {dio1subu.o1_gabu} = "*"';

end;



Formulas.Clear;

Formulas.Add('custselectionformula');

Formulas.Formula.Text := '"'+ cust_edit.text + '"';



Formulas.Add('custnmselectionformula');

Formulas.Formula.Text := '"'+ custnm_edit.text +'"';



Formulas.Add('fromselectionformula');

Formulas.Formula.Text := '"'+ from_date + '"';



Formulas.Add('toselectionformula');

Formulas.Formula.Text := '"'+ to_date + '"';



Formulas.Add('systemdateformula');

Formulas.Formula.Text := '"'+ system_date + '"';



Formulas.Send;

Execute;

end;

end;