Q&A

  • 라디오버튼을 선택해 데이타를 불러올때염.. ㅠ.ㅠ
두개의 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;



1  COMMENTS
  • Profile
    하기 2001.05.23 01:06
    SQL.Clear가 빠진것 같은데요...





    짱아 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;

    >