Q&A
- [질문급]여러레코드 한꺼번에.. 수정 .. 도와주세요
여러 레코드의 같은 필드 값을 한꺼번에 수정하고 싶습니다
그런데 커서가 위치한 한곳의 값만이 변경되고 다른것은
변경이 되지 않습니다
detailgrid의 내용이 여러줄인데
한줄 한줄 변경하다가는 날샐것 같은데요..
어떻게 하면 좋져
procedure TFormP1000A.update_modcost;
var i : integer;
begin
for i :=1 to detailgrid.RowCount-1 do // 여기 이줄만 첨가하면 될줄
알았는데 .. 안되나요
커서가 위치한 값 한줄레코드만 바뀌네요..
-.-;;;
with qrmod do
begin
Close;
SQL.Clear;
SQL.Add('update P1100 SET MOD_UNITCOST =:MOD_UNITCOST WHERE ORDNO=:ORDNO AND WRCD=:WRCD');
ParamByName('ORDNO').AsString := MasterGrid.Cells[0,MasterGrid.Row];
ParambyName('MOD_UNITCOST').asfloat := strtofloat(DetailGrid.Cells[7,DetailGrid.Row]);
ParambyName('WRCD').AsString := DetailGrid.Cells[2,DetailGrid.Row];
ExecSql;
end;
showmessage('수정단가가 저장되었습니다');
end;
그런데 커서가 위치한 한곳의 값만이 변경되고 다른것은
변경이 되지 않습니다
detailgrid의 내용이 여러줄인데
한줄 한줄 변경하다가는 날샐것 같은데요..
어떻게 하면 좋져
procedure TFormP1000A.update_modcost;
var i : integer;
begin
for i :=1 to detailgrid.RowCount-1 do // 여기 이줄만 첨가하면 될줄
알았는데 .. 안되나요
커서가 위치한 값 한줄레코드만 바뀌네요..
-.-;;;
with qrmod do
begin
Close;
SQL.Clear;
SQL.Add('update P1100 SET MOD_UNITCOST =:MOD_UNITCOST WHERE ORDNO=:ORDNO AND WRCD=:WRCD');
ParamByName('ORDNO').AsString := MasterGrid.Cells[0,MasterGrid.Row];
ParambyName('MOD_UNITCOST').asfloat := strtofloat(DetailGrid.Cells[7,DetailGrid.Row]);
ParambyName('WRCD').AsString := DetailGrid.Cells[2,DetailGrid.Row];
ExecSql;
end;
showmessage('수정단가가 저장되었습니다');
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 탁발승
- 2001.12.12 00:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자A
- •
- 2001.12.12 00:00
- 1 COMMENTS
- /
- 0 LIKES
-
이희정•2001.12.12 00:26SQL Plus를 이용해서 아래와 같이 하면 기존 데이타도 안날라가고 필드도 추가될 겁니다. alter table ...
-
- 초보
- 2001.12.11 23:46
- 0 COMMENTS
- /
- 0 LIKES
-
- 학생
- •
- 2001.12.11 23:37
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.12.12 04:42안녕하세요. 최용일입니다. 전 아래처럼 했는데요. "a.cab#version=1,0,28,10" ^^ 항상 즐코하세...
-
- 김종석
- 2001.12.11 23:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.12.11 22:17
- 1 COMMENTS
- /
- 0 LIKES
-
이걱저것•2001.12.13 23:02초보 wrote: > MYSQL.COM에서 MYSQL4.0을 다운받아 설치하고 > DOS창에서 MYSQLBIN에서 MYSQL을 실행하면...
-
- 강광련
- 2001.12.11 21:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 델사랑
- •
- 2001.12.11 21:14
- 1 COMMENTS
- /
- 0 LIKES
-
류응철•2001.12.11 22:33델사랑 wrote: > 예전에 델파이 3.0으로 개발한 프로그램에서 퀵레포트로 작성한폼이 > 있었는데 지금까...
-
- 왕초짜
- •
- 2001.12.11 21:02
- 2 COMMENTS
- /
- 0 LIKES
-
이희정•2001.12.11 23:12OnClick Event가 있는데... 함 사용해보세여 왕초짜 wrote: > 콤보박스에 있는 항목을 선택했을 때 ...
-
왕초짜•2001.12.11 23:49헤~ 대는군여.. 감사합니다 이희정 wrote: > OnClick Event가 있는데... > > 함 사용해보세여...
-
- 초보임당
- •
- 2001.12.11 20:03
- 1 COMMENTS
- /
- 0 LIKES
-
하눌이•2001.12.11 20:18NEEDDATA로 검색해보시면 원하시는 답을 얻을수 ... 초보임당 wrote: > 스트링 그리드의 데이타를 출력...
-
- 초보자
- •
- 2001.12.11 18:41
- 1 COMMENTS
- /
- 0 LIKES
여러 레코드의 같은 필드 값을 한꺼번에 수정하고 싶습니다 그런데 커서가 위치한 한곳의 값만이 변경되고 다른것은 변경이 되지 않습니다 detailgrid의 내용이 여러줄인데 한줄 한줄 변경하다가는 날샐것 같은데요.. 어떻게 하면 좋져 pr...-
하눌이•2001.12.11 20:34이렇게 써보심이... with detailGrid1.Datasource.Dataset do begin first; while not eof do b...
-
- 델초보
- 2001.12.11 18:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 초급자
- 2001.12.11 18:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 김규상
- 2001.12.11 17:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.12.11 12:50
- 1 COMMENTS
- /
- 0 LIKES
-
하눌이•2001.12.11 20:24동적으로 EDITBOX를 생성하면서 TAG값에 해당 순번을 입력하고 처리하시면 될것 같은데 그리고 해당 EDITB...
-
- 혜란낭자
- •
- 2001.12.11 10:53
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2001.12.11 11:22혜란낭자 wrote: > 제가 성적관리 프로그램을 만들었거든여~ > 국어와 수학을 가지고 합계와 평균을 구했...
-
- 궁금
- 2001.12.11 10:19
- 0 COMMENTS
- /
- 0 LIKES
-
- 훈
- •
- 2001.12.11 10:08
- 1 COMMENTS
- /
- 0 LIKES
-
유레카•2001.12.11 22:34TstringList를 전역변수로 선언하세요
-
- 이호성
- •
- 2001.12.11 07:44
- 1 COMMENTS
- /
- 0 LIKES
-
전형식•2001.12.11 10:21너무 간단한 질문이라 답들을 안해주시나? 알고보면 아주 간단하죠 ^^ 물론 방법은 몇가지 있습니다. us...
-
- 델사랑
- •
- 2001.12.11 05:34
- 1 COMMENTS
- /
- 0 LIKES
-
최성진•2001.12.11 06:06RS-232C 케이블을 이용한다는 말씀인데요 델파이사이트 자료실에서 RS-232C 콤포넌트를 구해설치하여 해...
with detailGrid1.Datasource.Dataset do begin
first;
while not eof do begin
> with qrmod do
> begin
> Close;
> SQL.Clear;
> SQL.Add('update P1100 SET MOD_UNITCOST =:MOD_UNITCOST WHERE ORDNO=:ORDNO AND WRCD=:WRCD');
> ParamByName('ORDNO').AsString := 이건몰겠는데요.
> ParambyName('MOD_UNITCOST').asfloat := fieldbyname('항목명').asfloat
> ParambyName('WRCD').AsString := fieldbyname(항목명).asstring;
> ExecSql;
> end;
next;
end;
end;
즐프하시길
초보자 wrote:
> 여러 레코드의 같은 필드 값을 한꺼번에 수정하고 싶습니다
> 그런데 커서가 위치한 한곳의 값만이 변경되고 다른것은
> 변경이 되지 않습니다
> detailgrid의 내용이 여러줄인데
> 한줄 한줄 변경하다가는 날샐것 같은데요..
> 어떻게 하면 좋져
>
> procedure TFormP1000A.update_modcost;
> var i : integer;
>
> begin
>
> for i :=1 to detailgrid.RowCount-1 do // 여기 이줄만 첨가하면 될줄
> 알았는데 .. 안되나요
> 커서가 위치한 값 한줄레코드만 바뀌네요..
> -.-;;;
>
> with qrmod do
> begin
> Close;
> SQL.Clear;
> SQL.Add('update P1100 SET MOD_UNITCOST =:MOD_UNITCOST WHERE ORDNO=:ORDNO AND WRCD=:WRCD');
> ParamByName('ORDNO').AsString := MasterGrid.Cells[0,MasterGrid.Row];
> ParambyName('MOD_UNITCOST').asfloat := strtofloat(DetailGrid.Cells[7,DetailGrid.Row]);
> ParambyName('WRCD').AsString := DetailGrid.Cells[2,DetailGrid.Row];
> ExecSql;
> end;
> showmessage('수정단가가 저장되었습니다');
> end;
>