두개의 radiobutton을 선택할때마다 각각 다른 데이타를 가지고 오는데요~
물론 같은 테이블ordr13mt에서염...
SHIP_Y를 체크했을 경우 테이블에서 SHIP_CONFIRM 가 Y인것만 가지구 오구
SHIP_N을 체크했을 경우 테이블에서 SHIP_CONFIRM 가 Y인것과 아닌것 다~ 가지고 와야 해요.. 근데 이상한게 SHIP_N를 체크해서 데이타를 불렀다가 다시 SHIP_Y를 체크해서 데이타를 부르면 각각에 맞는 데이타들을 가지고 와요~
근데 반대로 다시 SHIP_N를 체크해서 데이타를 가지고 오면 SHIP_Y의 데이타들이 그대로 남아있구 SHIP_N를 체크했을때의 데이타들은 가지고 오질 못해요!~
이건 또 무슨 귀신의 조화인지.. 헐~ 죽겠어염...
많은 고수님들~ 제발좀 도와주세염...
Procedure TForm1.BtnFINDClick(Sender: TObject);
begin
If ORDR13MT.Active = False then
ORDR13MT.Open;
With MQuery do begin
Close;
ParamByName('F_DATE').AsString := eF_Date.Text;
ParamByName('T_DATE').AsString := eT_Date.Text;
Open;
end;
if SHIP_Y.Checked then
begin
With ORDR13MT do begin
Close;
sql.add(' And SHIP_CONFIRM = ''Y'' ');
ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;
ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;
ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;
Open;
End;
end
else
if SHIP_N.Checked then
begin
With SProc3 do begin
ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;
ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;
ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;
ExecProc;
End;
With ORDR13MT do begin
Close;
ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;
ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;
ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;
Open;
End;
end;
DBGRID1.SetFocus;
end;
짱아 wrote:
> 두개의 radiobutton을 선택할때마다 각각 다른 데이타를 가지고 오는데요~
> 물론 같은 테이블ordr13mt에서염...
> SHIP_Y를 체크했을 경우 테이블에서 SHIP_CONFIRM 가 Y인것만 가지구 오구
> SHIP_N을 체크했을 경우 테이블에서 SHIP_CONFIRM 가 Y인것과 아닌것 다~ 가지고 와야 해요.. 근데 이상한게 SHIP_N를 체크해서 데이타를 불렀다가 다시 SHIP_Y를 체크해서 데이타를 부르면 각각에 맞는 데이타들을 가지고 와요~
> 근데 반대로 다시 SHIP_N를 체크해서 데이타를 가지고 오면 SHIP_Y의 데이타들이 그대로 남아있구 SHIP_N를 체크했을때의 데이타들은 가지고 오질 못해요!~
> 이건 또 무슨 귀신의 조화인지.. 헐~ 죽겠어염...
> 많은 고수님들~ 제발좀 도와주세염...
>
> Procedure TForm1.BtnFINDClick(Sender: TObject);
> begin
>
> If ORDR13MT.Active = False then
> ORDR13MT.Open;
>
> With MQuery do begin
> Close;
> ParamByName('F_DATE').AsString := eF_Date.Text;
> ParamByName('T_DATE').AsString := eT_Date.Text;
> Open;
> end;
>
> if SHIP_Y.Checked then
> begin
> With ORDR13MT do begin
> Close;
> sql.add(' And SHIP_CONFIRM = ''Y'' ');
> ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;
> ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;
> ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;
> Open;
> End;
> end
> else
> if SHIP_N.Checked then
> begin
> With SProc3 do begin
> ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;
> ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;
> ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;
> ExecProc;
> End;
>
> With ORDR13MT do begin
> Close;
> ParamByName('P_NO_BUYER').AsString := eOR_NO1.Text;
> ParamByName('P_NO_YEAR' ).AsString := eOR_NO2.Text;
> ParamByName('P_NO_SEQ' ).AsFloat := eOR_NO3.Value;
> Open;
> End;
>
> end;
>
> DBGRID1.SetFocus;
> end;
>