아까 업데이트땜시 들렀었는데여... 우선 갈켜주셔서 감사!! ^^



한가지 물어볼게 있는데여...



업데이트 하구나서 그 자료를 다시 뿌려주려구 하거든여...



근데 업데이트된 자료가 안보여지구 예전꺼로 보여지더라구여...



그건 왜그러는건지... 폼을 종료하구서 다시실행하면 업데이트된걸루 나오던데...



소스 보여드리께여. 좀 갈켜주세여. ^^



Bedit.Caption := '수정';

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.ADD( ' update sawon set ' );

ADOQuery2.SQL.ADD( ' S_name = :S_name, ' );

ADOQuery2.SQL.ADD( ' S_jikub = :S_jikub, ' );

ADOQuery2.SQL.ADD( ' S_hobong = :S_hobong, ' );

ADOQuery2.SQL.ADD( ' S_date = :S_date, ' );

ADOQuery2.SQL.ADD( ' S_date1 = :S_date1, ' );

ADOQuery2.SQL.ADD( ' S_date2 = :S_date2 ' );

ADOQuery2.SQL.ADD( ' where S_no = :S_no ' );

ADOQuery2.Parameters.ParamValues['S_no'] := strtoint(sabun.Text);

ADOQuery2.Parameters.ParamValues['S_name'] := trim(sawonname.Text);

ADOQuery2.Parameters.ParamValues['S_jikub'] := strtoint(jikub.Text);

ADOQuery2.Parameters.ParamValues['S_hobong'] := strtoint(hobong.Text);

ADOQuery2.Parameters.ParamValues['S_date'] := strtoint(indate.Text);



if jinkubdate.Text = '' then

jinkubdate.Text := '0';



ADOQuery2.Parameters.ParamValues['S_date1'] := strtoint(jinkubdate.Text);



if tdate.Text = '' then

tdate.Text := '0';



ADOQuery2.Parameters.ParamValues['S_date2'] := strtoint(tdate.Text);



ADOQuery2.ExecSQL;



jikub.Enabled := False;

hobong.Enabled := False;

indate.Enabled := False;

jinkubdate.Enabled := False;

tdate.Enabled := False;



showmessage('수정이 완료되었습니다.');



ADOQuery1.Close;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.ADD( ' select * from sawon where S_no = :S_no ' );

ADOQuery1.Parameters.ParamValues['S_no'] := strtoint(sabun.Text);

ADOQuery1.Open;

sabun.Text := inttostr(ADOQuery1.fieldbyname('S_no').AsInteger);

sawonname.Text := ADOQuery1.fieldbyname('S_name').AsString;

jikub.Text := inttostr(ADOQuery1.fieldbyname('S_jikub').AsInteger);

hobong.Text := inttostr(ADOQuery1.fieldbyname('S_hobong').AsInteger);

indate.Text := inttostr(ADOQuery1.fieldbyname('S_date').AsInteger);

jinkubdate.Text := inttostr(ADOQuery1.fieldbyname('S_date1').AsInteger);

tdate.Text := inttostr(ADOQuery1.fieldbyname('S_date2').AsInteger);