---- 델파이는 처음써보구 크리스탈 리포는 vb에서만

---- 사용해봐서 잘 모르겠습니다.

---- 지금 2틀째 헤메고 있습니다.

---- 스토어드프로시져의 파라메터에 해당값을 넘기는 것인데

---- 자꾸 리포트가 실행되면서 파라메터 입력창이 뜨네요....

---- 파라메터도 리포트 디자인시 메긴 값으로 뜹니다.

---- 파라메터 입력창 없이 곧바로 떠야 됩니다.



---- 아시는분 부탁드립니다.



Screen.Cursor := crHourglass;

with MdiMain.Crpe do begin

try

Selection.Clear;

GroupSelection.Clear;

WindowButtonBar.GroupTree := True;

SendOnExecute := True;



if RadGubn.ItemIndex = 0 then

begin

OutPut:=toWindow;

WindowStyle.Title:=caption;

end

else

OutPut:=toPrinter;



Connect.ServerName := G_DBSVRNAME;

Connect.UserID := G_DBUSER;

Connect.Password := G_DBPASSWD;

Connect.DatabaseName:= G_DBNAME;



ReportName := G_RF+'PMP011.rpt';

Formulas.Clear;

Formulas.Formula[0] := ' Myid = ' + frmPMP11.name ;

Formulas.Send;



-- 아래 부분이 맞는것인지 모르겠습니다.



SQL.Params.Retrieve;

SQL.Params.Clear;

SQL.Params.Add('chul_dateF');

SQL.Params.item[0].Value := trim(MskChul_DateF.text);

SQL.Params.Add('Chul_NoF');

SQL.Params.item[1].AsFloat := NumChul_NoF.VALUE;

SQL.Params.Add('chul_dateT') ;

SQL.Params.item[2].Value := trim(MskChul_DateT.text);

SQL.Params.Add('Chul_NoT');

SQL.Params.item[3].AsFloat :=NumChul_NoT.VALUE;

SQL.Params.Add('invoice') ;

SQL.Params.item[4].Value := trim(edtInvoice.text);



SQL.Params.send;

SQL.send ;

Execute;

except

on E: Exception do begin

MessageDlg(E.Message, mtError, [mbOk], 0);

end;

end;

end;

Screen.Cursor := crDefault;