테이블을 불러서 자료를 수정하고...
수정버튼을 누르면...
다른 부분은 다 지워지고고...
gubun 필드와 yymd 필드만 남는데...
gubun 필드와 yymd 필드는 검색 키 입니다
제가 만든 소스를 올릴테니..
한번보고 틀린데를 알려주세요...
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// 생산통계 자료 수정
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TFrmComn.BBtnUpdClick(Sender: TObject);
var
i : integer;
begin
with Qry1 do
begin
close;
sql.clear;
sql.add('select * from jaksi');
sql.add('where gubun = :gubun');
sql.add('and yymd = :yymd');
ParamByName('gubun').Asstring := Inttostr(RadioGroup1.ItemIndex);
ParamByName('yymd').Asstring := MEdit1.Text;
open;
StringGrid1.RowCount := RecordCount;
for i := 1 to StringGrid1.RowCount - 1 do
begin
close;
sql.clear;
sql.add('update jaksi');
sql.add('set jiyouk = :jiyouk,');
sql.add(' moun = :moun,');
sql.add(' saeng = :saeng,');
sql.add(' dansu = :dansu');
ParamByName('jiyouk').Asstring := StringGrid1.Cells[0,i];
ParamByName('moun').Asstring := StringGrid1.Cells[1,i];
ParamByName('saeng').Asstring := StringGrid1.Cells[2,i];
ParamByName('dansu').Asstring := StringGrid1.Cells[3,i];
ExecSQL;
end;
end;
SBarMsg.Panels[0].Text := '수정되었습니다.';
end;
소스입니다...
알려주세요
델파이에 강력함을 가르쳐 주세요
-- 답장 부탁합니다.