델파이 입문자입니다.
처음으로 해보는 프로젝트에서 몇군데가 막혀서 일주일째 머리 싸매고 있습니다.
ZeOS 6.1.2 beta를 사용해 MySQL에 접속하는 간단한 DB 프로그램입니다.
그리 복잡한게 아니라서 그냥 DB Grid, DB Text로 왠만한 건 다 처리할 수 있으리라 생각했는데, 잘 안되는군요.
--------------

기본적으로 TZQuery는 CachedUpdate=True, RequestAlive=True 상태이고
TZUpdateSQL을 함께 사용하고 있습니다.
DB Grid는 TMS의 DBAdvStringGrid를 사용하고 있습니다.

[1] 조인된 테이블의 업데이트 문제

SELECT A.*, B.* FROM A LEFT JOIN B ON A.id=B.no ORDER BY A.id 와 같은 식으로
테이블 A, B 를 JOIN해서 읽어온 결과를 DB Grid에 뿌려줍니다.
DB Grid에서 선택한 열의 상세정보를 옆쪽 DB Text에 뿌려줍니다.
이렇게 조회에는 별 문제가 없습니다.

문제는 업데이트인데요.
오른쪽 DB Text에서 몇몇 값을 변경하고 "업데이트"를 시키면
A 테이블의 값은 변경이 되는데, B 테이블의 값은 변경이 안됩니다.

할 수 없이 별도의 TZQuery를 하나 더 마련하여
여기에 직접 SQL문(update)을 입력해서 ExecSQL을 실행하는데,
그래도 업데이트가 안되는군요. 도대체 이유를 모르겠습니다.
B 테이블을 업데이트하는 코드는 다음과 같습니다.

     DM1.ZQ_t.SQL.Clear;
     DM1.ZQ_t.SQL.Add('UPDATE addrbook SET ');
     DM1.ZQ_t.SQL.Add(' dong=:DONG, bunji=:BUNJI, tongban=:TONGBAN, ');
     DM1.ZQ_t.SQL.Add(' addr2=:ADDR2, zip=:ZIP, tel=:TEL ');
     DM1.ZQ_t.SQL.Add(' WHERE id=:SEDAE ');
     DM1.ZQ_t.ParamByName('SEDAE').AsInteger := sedae_ID;
     DM1.ZQ_t.ParamByName('DONG').AsString := DBEdit33.Text;
     DM1.ZQ_t.ParamByName('BUNJI').AsString := DBEdit34.Text;
     DM1.ZQ_t.ParamByName('TONGBAN').AsString := DBEdit35.Text;
     DM1.ZQ_t.ParamByName('ADDR2').AsString := DBEdit36.Text;
     DM1.ZQ_t.ParamByName('ZIP').AsString := DBEdit14.Text;
     DM1.ZQ_t.ParamByName('TEL').AsString := DBEdit9.Text;
     DM1.ZQ_t.ExecSQL;

[2] DB Grid + DB Navigator 로 데이터를 추가, 수정하는 문제

하나의 테이블을 읽어와서 DB Grid에 뿌려줍니다.
DB Grid에서 열을 선택하면, 아래쪽 DB Text에 그 값을 출력합니다.
(위와 같은 형태입니다.)
여기서도 문제는 INSERT, UPDATE 입니다.

DBAdvNavagator의 버튼을 이용해, 데이터를 삽입, 업데이트하려고 하는데요.
(+)버튼을 눌러 insert를 하면 DB Grid에 열이 하나 삽입되지요.
이때, 수동으로 입력하지 않은 값이 있습니다.
무슨 말인가 하면, 테이블에는 a,b,c,d 필드가 있는데
사용자가 입력하는 값은 b, c,d 이고
프로그램 상에서 a 값을 지정한다는 말입니다.
저는 FieldByName('')을 이용해 값을 지정해주었습니다.
그런데 ApplyUpdate, CommitUpdate를 하지 않고
계속 (+)버튼을 눌러 여러개의 데이터를 insert하도록 시도하면
위와 같이 값을 지정할 수 없고, 결국 insert가 실패합니다.
궁여지책으로 만든 코드는 다음과 같습니다.

DM1.ZQ_sv.Insert;
DM1.ZQ_sv.ParamByName('ID').AsInteger := curr_ID;
DM1.ZQ_sv.FieldByName('ID').AsInteger := curr_ID;
DM1.ZQ_sv.FieldByName('FAVOR').AsInteger := 0;
DM1.ZQ_sv.Post;
DM1.ZQ_sv.ApplyUpdates;
DM1.ZQ_sv.CommitUpdates;
DM1.ZQ_sv.First;

(+)버튼을 누를때나 (v)버튼을 누를때마다 곧장 Commit해버리는거지요.
그런데 이렇게 해도 깔끔하게 동작하지 않고
때때로는 update가 작동하지 않기도 합니다.

--------------
그냥 DBGrid + DBText로 뚝딱뚝딱 프로그램이 만들어질 줄 알았는데, 참 쉽지 않네요.
아는 형의 부탁으로 간단한 아르바이트로 맡은 일이라
누구한테 맡겨서라도 빨리 해결하고 싶은데, 시간이 촉박하네요.
T.T