Q&A
- update 에 대해서..??
query 콤포넌트를 사용해서 update 를 하려 합니다..
이렇게 말로 하는 것보단 코딩을 보느게 낫겠죠??
procedure TMainScrn.btnInsertStockClick(Sender: TObject);
var
OldNo: String;
OldNoI, NewNoI, TotalNoI: Integer;
begin
qryStockB.Close;
qryStockB.SQL.Clear;
qryStockB.SQL.Add('Select count(*) from StockB');
qryStockB.SQL.Add('where ItemID=:f1');
qryStockB.Params.ParamByName('f1').AsString:= edtStockItemID.Text;
qryStockB.Open;
if qryStockB.Fields[0].AsInteger > 1 then
begin
ShowMessage('Hyung, Big Mistake!!!');
qryStockB.Close;
halt(1);
end;
if qryStockB.Fields[0].AsInteger = 0 then
begin
qryPart.close;
qryPart.sql.clear;
qryPart.Sql.add('insert into Part');
qryPart.sql.add('values ( :f1,:f2,:f3,:f4,:f5)');
qryPart.params.ParamByName('f2').asstring:= edtStockItemName.text;
qryPart.params.ParamByName('f3').asstring:= edtStockNo.Text;
qryPart.params.ParamByName('f4').asstring:= edtStockSupplierID.text;
qryPart.params.ParamByName('f5').asstring:= edtStockDate.text;
qryPart.ExecSQL;
qryPart.close;
qryStockP.Close;
qryStockP.sql.clear;
qryStockP.Sql.add('insert into StockP');
qryStockP.sql.add('values ( :f1,:f2,:f3)');
qryStockP.params.ParamByName('f1').asstring:= edtStockItemID.text;
qryStockP.params.ParamByName('f2').asstring:= edtStockItemName.text;
qryStockP.params.ParamByName('f3').asstring:= edtStockAmount.Text;
qryStockP.ExecSQL;
qryStockP.close;
qryStockB.Close;
qryStockB.sql.clear;
qryStockB.Sql.add('insert into StockB');
qryStockB.sql.add('values ( :f1,:f2,:f3)');
qryStockB.params.ParamByName('f1').asstring:= edtStockItemID.text;
qryStockB.params.ParamByName('f2').asstring:= edtStockItemName.text;
qryStockB.params.ParamByName('f3').asstring:= edtStockNO.Text;
qryStockB.ExecSQL;
qryStockB.close;
ShowMessage('Record Inserted');
end
else if (qryStockB.Fields[0].AsInteger = 1) then
begin
qryPart.close;
qryPart.sql.clear;
qryPart.Sql.add('insert into Part');
qryPart.sql.add('values ( :f1,:f2,:f3,:f4,:f5)');
qryPart.params.ParamByName('f1').asstring:= edtStockItemID.text;
qryPart.params.ParamByName('f2').asstring:= edtStockItemName.text;
qryPart.params.ParamByName('f3').asstring:= edtStockNo.Text;
qryPart.params.ParamByName('f4').asstring:= edtStockSupplierID.text;
qryPart.params.ParamByName('f5').asstring:= edtStockDate.text;
qryPart.ExecSQL;
qryPart.close;
qryStockP.Close;
qryStockP.sql.clear;
qryStockP.Sql.add('update StockP');
qryStockP.sql.add('set Amount=:f3');
qryStockP.SQL.add('where ItemID=:f1');
qryStockP.params.ParamByName('f1').asstring:= edtStockItemID.text;
qryStockP.params.ParamByName('f3').asstring:= edtStockAmount.Text;
qryStockB.Close;
qryStockB.SQL.Clear;
qryStockB.SQL.Add('Select * from StockB');
qryStockB.SQL.Add('where ItemID =:f1');
qryStockB.Params.ParamByName('f1').AsString:= edtStockItemID.text;
qryStockB.Open;
OldNo:= qryStockB.Fields[2].AsString;
OldNoI:= StrToInt(OldNo);
NewNoI:= StrToInt(edtStockNo.Text);
TotalNoI:= OldNoI + NewNoI;
qryStockB.Close;
qryStockB.SQL.Clear;
qryStockB.Sql.add('update StockB');
qryStockB.sql.add('set No=:f3 ');
qryStockB.SQL.add('where ItemID=:f1');
qryStockB.params.ParamByName('f1').asstring:= edtStockItemID.text;
qryStockB.params.ParamByName('f3').asstring:= IntToStr(TotalNoI);
try
qryStockB.ExecSQL;
qryStockP.ExecSQL;
except
showmessage('Could not update table --> Record Locked by another user');
end;
qryStockB.close;
qryStockP.close;
ShowMessage('Record Updated');
end;
edtStockItemID.Clear;
edtStockItemName.Clear;
edtStockAmount.Clear;
edtStockNo.Clear;
edtStockSupplierID.Clear;
edtStockDate.Clear;
end;
이부분입니다..
일단 StockB 라는 table 이 있고, 이 table은 ItemID 와 ItemName 과 No 라는 필드를 가지고 있습니다.. 이 procedure는 insert부분과 update 부분으로 이루어져 있고, 제가 질문을 드리고 싶은 부분은 update 부분으로, 이미 들어가있는 No 필드의 값을 ItemID 넘버에 따라 새로들어오는값에 더해서 그 No 필드의 값을 그 더한 값으로 update 해주는 것입니다..
그런데, 아무래도 제생각에는,
qryStockB.params.ParamByName('f3').asstring:= IntToStr(TotalNoI);
이 라인이 안도는것 같습니다..
에러 메시지가
Project simplewareproject.exe raised exception class EDBEngingError with message 'Invalid use of Keyword. Token: No=? Line Number:2.' Process stopped. Use step or Run to continue.
입니다..
관심있으신 고수님들 답변 주시면 호주가이드는 제가 책임지고(성은에 보답하고자 물론 무료) 하겠습니다..
이렇게 말로 하는 것보단 코딩을 보느게 낫겠죠??
procedure TMainScrn.btnInsertStockClick(Sender: TObject);
var
OldNo: String;
OldNoI, NewNoI, TotalNoI: Integer;
begin
qryStockB.Close;
qryStockB.SQL.Clear;
qryStockB.SQL.Add('Select count(*) from StockB');
qryStockB.SQL.Add('where ItemID=:f1');
qryStockB.Params.ParamByName('f1').AsString:= edtStockItemID.Text;
qryStockB.Open;
if qryStockB.Fields[0].AsInteger > 1 then
begin
ShowMessage('Hyung, Big Mistake!!!');
qryStockB.Close;
halt(1);
end;
if qryStockB.Fields[0].AsInteger = 0 then
begin
qryPart.close;
qryPart.sql.clear;
qryPart.Sql.add('insert into Part');
qryPart.sql.add('values ( :f1,:f2,:f3,:f4,:f5)');
qryPart.params.ParamByName('f2').asstring:= edtStockItemName.text;
qryPart.params.ParamByName('f3').asstring:= edtStockNo.Text;
qryPart.params.ParamByName('f4').asstring:= edtStockSupplierID.text;
qryPart.params.ParamByName('f5').asstring:= edtStockDate.text;
qryPart.ExecSQL;
qryPart.close;
qryStockP.Close;
qryStockP.sql.clear;
qryStockP.Sql.add('insert into StockP');
qryStockP.sql.add('values ( :f1,:f2,:f3)');
qryStockP.params.ParamByName('f1').asstring:= edtStockItemID.text;
qryStockP.params.ParamByName('f2').asstring:= edtStockItemName.text;
qryStockP.params.ParamByName('f3').asstring:= edtStockAmount.Text;
qryStockP.ExecSQL;
qryStockP.close;
qryStockB.Close;
qryStockB.sql.clear;
qryStockB.Sql.add('insert into StockB');
qryStockB.sql.add('values ( :f1,:f2,:f3)');
qryStockB.params.ParamByName('f1').asstring:= edtStockItemID.text;
qryStockB.params.ParamByName('f2').asstring:= edtStockItemName.text;
qryStockB.params.ParamByName('f3').asstring:= edtStockNO.Text;
qryStockB.ExecSQL;
qryStockB.close;
ShowMessage('Record Inserted');
end
else if (qryStockB.Fields[0].AsInteger = 1) then
begin
qryPart.close;
qryPart.sql.clear;
qryPart.Sql.add('insert into Part');
qryPart.sql.add('values ( :f1,:f2,:f3,:f4,:f5)');
qryPart.params.ParamByName('f1').asstring:= edtStockItemID.text;
qryPart.params.ParamByName('f2').asstring:= edtStockItemName.text;
qryPart.params.ParamByName('f3').asstring:= edtStockNo.Text;
qryPart.params.ParamByName('f4').asstring:= edtStockSupplierID.text;
qryPart.params.ParamByName('f5').asstring:= edtStockDate.text;
qryPart.ExecSQL;
qryPart.close;
qryStockP.Close;
qryStockP.sql.clear;
qryStockP.Sql.add('update StockP');
qryStockP.sql.add('set Amount=:f3');
qryStockP.SQL.add('where ItemID=:f1');
qryStockP.params.ParamByName('f1').asstring:= edtStockItemID.text;
qryStockP.params.ParamByName('f3').asstring:= edtStockAmount.Text;
qryStockB.Close;
qryStockB.SQL.Clear;
qryStockB.SQL.Add('Select * from StockB');
qryStockB.SQL.Add('where ItemID =:f1');
qryStockB.Params.ParamByName('f1').AsString:= edtStockItemID.text;
qryStockB.Open;
OldNo:= qryStockB.Fields[2].AsString;
OldNoI:= StrToInt(OldNo);
NewNoI:= StrToInt(edtStockNo.Text);
TotalNoI:= OldNoI + NewNoI;
qryStockB.Close;
qryStockB.SQL.Clear;
qryStockB.Sql.add('update StockB');
qryStockB.sql.add('set No=:f3 ');
qryStockB.SQL.add('where ItemID=:f1');
qryStockB.params.ParamByName('f1').asstring:= edtStockItemID.text;
qryStockB.params.ParamByName('f3').asstring:= IntToStr(TotalNoI);
try
qryStockB.ExecSQL;
qryStockP.ExecSQL;
except
showmessage('Could not update table --> Record Locked by another user');
end;
qryStockB.close;
qryStockP.close;
ShowMessage('Record Updated');
end;
edtStockItemID.Clear;
edtStockItemName.Clear;
edtStockAmount.Clear;
edtStockNo.Clear;
edtStockSupplierID.Clear;
edtStockDate.Clear;
end;
이부분입니다..
일단 StockB 라는 table 이 있고, 이 table은 ItemID 와 ItemName 과 No 라는 필드를 가지고 있습니다.. 이 procedure는 insert부분과 update 부분으로 이루어져 있고, 제가 질문을 드리고 싶은 부분은 update 부분으로, 이미 들어가있는 No 필드의 값을 ItemID 넘버에 따라 새로들어오는값에 더해서 그 No 필드의 값을 그 더한 값으로 update 해주는 것입니다..
그런데, 아무래도 제생각에는,
qryStockB.params.ParamByName('f3').asstring:= IntToStr(TotalNoI);
이 라인이 안도는것 같습니다..
에러 메시지가
Project simplewareproject.exe raised exception class EDBEngingError with message 'Invalid use of Keyword. Token: No=? Line Number:2.' Process stopped. Use step or Run to continue.
입니다..
관심있으신 고수님들 답변 주시면 호주가이드는 제가 책임지고(성은에 보답하고자 물론 무료) 하겠습니다..
3
COMMENTS
-
-
박광범 wrote:
> query 콤포넌트를 사용해서 update 를 하려 합니다..
> 이렇게 말로 하는 것보단 코딩을 보느게 낫겠죠??
>
> procedure TMainScrn.btnInsertStockClick(Sender: TObject);
> var
> OldNo: String;
> OldNoI, NewNoI, TotalNoI: Integer;
> begin
> qryStockB.Close;
> qryStockB.SQL.Clear;
> qryStockB.SQL.Add('Select count(*) from StockB');
> qryStockB.SQL.Add('where ItemID=:f1');
> qryStockB.Params.ParamByName('f1').AsString:= edtStockItemID.Text;
> qryStockB.Open;
>
> if qryStockB.Fields[0].AsInteger > 1 then
> begin
> ShowMessage('Hyung, Big Mistake!!!');
> qryStockB.Close;
> halt(1);
> end;
>
> if qryStockB.Fields[0].AsInteger = 0 then
> begin
> qryPart.close;
> qryPart.sql.clear;
> qryPart.Sql.add('insert into Part');
> qryPart.sql.add('values ( :f1,:f2,:f3,:f4,:f5)');
> qryPart.params.ParamByName('f2').asstring:= edtStockItemName.text;
> qryPart.params.ParamByName('f3').asstring:= edtStockNo.Text;
> qryPart.params.ParamByName('f4').asstring:= edtStockSupplierID.text;
> qryPart.params.ParamByName('f5').asstring:= edtStockDate.text;
> qryPart.ExecSQL;
> qryPart.close;
>
>
>
> qryStockP.Close;
> qryStockP.sql.clear;
> qryStockP.Sql.add('insert into StockP');
> qryStockP.sql.add('values ( :f1,:f2,:f3)');
> qryStockP.params.ParamByName('f1').asstring:= edtStockItemID.text;
> qryStockP.params.ParamByName('f2').asstring:= edtStockItemName.text;
> qryStockP.params.ParamByName('f3').asstring:= edtStockAmount.Text;
> qryStockP.ExecSQL;
> qryStockP.close;
>
>
>
>
> qryStockB.Close;
> qryStockB.sql.clear;
> qryStockB.Sql.add('insert into StockB');
> qryStockB.sql.add('values ( :f1,:f2,:f3)');
> qryStockB.params.ParamByName('f1').asstring:= edtStockItemID.text;
> qryStockB.params.ParamByName('f2').asstring:= edtStockItemName.text;
> qryStockB.params.ParamByName('f3').asstring:= edtStockNO.Text;
> qryStockB.ExecSQL;
> qryStockB.close;
> ShowMessage('Record Inserted');
> end
> else if (qryStockB.Fields[0].AsInteger = 1) then
> begin
> qryPart.close;
> qryPart.sql.clear;
> qryPart.Sql.add('insert into Part');
> qryPart.sql.add('values ( :f1,:f2,:f3,:f4,:f5)');
> qryPart.params.ParamByName('f1').asstring:= edtStockItemID.text;
> qryPart.params.ParamByName('f2').asstring:= edtStockItemName.text;
> qryPart.params.ParamByName('f3').asstring:= edtStockNo.Text;
> qryPart.params.ParamByName('f4').asstring:= edtStockSupplierID.text;
> qryPart.params.ParamByName('f5').asstring:= edtStockDate.text;
> qryPart.ExecSQL;
> qryPart.close;
>
>
>
>
> qryStockP.Close;
> qryStockP.sql.clear;
> qryStockP.Sql.add('update StockP');
> qryStockP.sql.add('set Amount=:f3');
> qryStockP.SQL.add('where ItemID=:f1');
> qryStockP.params.ParamByName('f1').asstring:= edtStockItemID.text;
> qryStockP.params.ParamByName('f3').asstring:= edtStockAmount.Text;
>
>
>
>
> qryStockB.Close;
> qryStockB.SQL.Clear;
> qryStockB.SQL.Add('Select * from StockB');
> qryStockB.SQL.Add('where ItemID =:f1');
> qryStockB.Params.ParamByName('f1').AsString:= edtStockItemID.text;
> qryStockB.Open;
> OldNo:= qryStockB.Fields[2].AsString;
>
>
> OldNoI:= StrToInt(OldNo);
> NewNoI:= StrToInt(edtStockNo.Text);
> TotalNoI:= OldNoI + NewNoI;
>
> qryStockB.Close;
> qryStockB.SQL.Clear;
> qryStockB.Sql.add('update StockB');
> qryStockB.sql.add('set No=:f3 ');
> qryStockB.SQL.add('where ItemID=:f1');
> qryStockB.params.ParamByName('f1').asstring:= edtStockItemID.text;
> qryStockB.params.ParamByName('f3').asstring:= IntToStr(TotalNoI);
>
> try
> qryStockB.ExecSQL;
> qryStockP.ExecSQL;
> except
> showmessage('Could not update table --> Record Locked by another user');
> end;
> qryStockB.close;
> qryStockP.close;
> ShowMessage('Record Updated');
> end;
>
>
>
> edtStockItemID.Clear;
> edtStockItemName.Clear;
> edtStockAmount.Clear;
> edtStockNo.Clear;
> edtStockSupplierID.Clear;
> edtStockDate.Clear;
>
> end;
>
>
> 이부분입니다..
>
>
> 일단 StockB 라는 table 이 있고, 이 table은 ItemID 와 ItemName 과 No 라는 필드를 가지고 있습니다.. 이 procedure는 insert부분과 update 부분으로 이루어져 있고, 제가 질문을 드리고 싶은 부분은 update 부분으로, 이미 들어가있는 No 필드의 값을 ItemID 넘버에 따라 새로들어오는값에 더해서 그 No 필드의 값을 그 더한 값으로 update 해주는 것입니다..
>
> 그런데, 아무래도 제생각에는,
> qryStockB.params.ParamByName('f3').asstring:= IntToStr(TotalNoI);
> 이 라인이 안도는것 같습니다..
>
> 에러 메시지가
> Project simplewareproject.exe raised exception class EDBEngingError with message 'Invalid use of Keyword. Token: No=? Line Number:2.' Process stopped. Use step or Run to continue.
> 입니다..
>
> 관심있으신 고수님들 답변 주시면 호주가이드는 제가 책임지고(성은에 보답하고자 물론 무료) 하겠습니다..
>
> 일단은
if qryStockB.Fields[0].AsInteger = 0 then
begin
qryPart.close;
qryPart.sql.clear;
qryPart.Sql.add('insert into Part');
qryPart.sql.add('values ( :f1,:f2,:f3,:f4,:f5)');
qryPart.params.ParamByName('f2').asstring:= edtStockItemName.text;
qryPart.params.ParamByName('f3').asstring:= edtStockNo.Text;
qryPart.params.ParamByName('f4').asstring:= edtStockSupplierID.text;
qryPart.params.ParamByName('f5').asstring:= edtStockDate.text;
qryPart.ExecSQL;
qryPart.close;
==============================================================================
여기서 ':f1'에 대한 Param값이 없네요 ...
어쩌면 이것인지도 모르겠네요...
-
박광범 wrote:
>
> 일단 StockB 라는 table 이 있고, 이 table은 ItemID 와 ItemName 과 No 라는 필드를 가지고 있습니다.. 이 procedure는 insert부분과 update 부분으로 이루어져 있고, 제가 질문을 드리고 싶은 부분은 update 부분으로, 이미 들어가있는 No 필드의 값을 ItemID 넘버에 따라 새로들어오는값에 더해서 그 No 필드의 값을 그 더한 값으로 update 해주는 것입니다..
>
> 그런데, 아무래도 제생각에는,
> qryStockB.params.ParamByName('f3').asstring:= IntToStr(TotalNoI);
> 이 라인이 안도는것 같습니다..
>
> 에러 메시지가
> Project simplewareproject.exe raised exception class EDBEngingError with message 'Invalid use of Keyword. Token: No=? Line Number:2.' Process stopped. Use step or Run to continue.
> 입니다..
>
> 관심있으신 고수님들 답변 주시면 호주가이드는 제가 책임지고(성은에 보답하고자 물론 무료) 하겠습니다..
>
>
언뜻 보아 이부분
qryStockB.params.ParamByName('f3').asstring:= IntToStr(TotalNoI);
를
qryStockB.params.ParamByName('f3').asInteger:= TotalNoI;
요렇게 바꿔야 할것 같네요
참고:
호주 가이드는 필요없습니다.
호주 가는 비행기값이 필요합니다.
(NOTICE) You must be logged in to comment on this post.
-
- castle load
- •
- 2000.01.21 00:32
- 1 COMMENTS
- /
- 0 LIKES
-
이영수•2000.01.29 19:23castle load wrote: > 팝업 메뉴중에 아이템을 만들려면 오떻게 합니까? > > 예를들어, a.txt에서 오른...
-
- 정민석
- 2000.01.21 00:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 김양수
- •
- 2000.01.21 00:24
- 3 COMMENTS
- /
- 0 LIKES
-
castle load•2000.01.21 00:39김양수 wrote: > 두가지의 METHOD의 차이점이 궁금하군요. > 너무 기본적인 질문인가 창피하네요. > >...
-
하얀까마귀•2000.01.21 04:02castle load wrote: > 김양수 wrote: > > 두가지의 METHOD의 차이점이 궁금하군요. > > 너무 기본적인 ...
-
강인규•2000.01.21 23:36더 추가하자면 showmodal 명령은 일종의 인터럽트입니다. showmodal이 실행되면 그부분에서 해당프로그램은...
-
- 김양수
- •
- 2000.01.21 00:20
- 1 COMMENTS
- /
- 0 LIKES
-
최재원•2000.01.21 03:57제가 알고 있는데로 말씀드릴께요.. 도움이 되시길..... 먼저 form1(Mainform = 부모창) ---> object ...
-
- 강정민
- •
- 2000.01.21 00:09
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.01.21 03:54강정민 wrote: > qreport를 사용하고 있습니다. > > 이때 테이블에 있는 내용도 출력하면서 > 모든 페...
-
- 한익섭
- 2000.01.21 00:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 배불뚝
- 2000.01.20 23:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 밝은빛
- •
- 2000.01.20 23:26
- 2 COMMENTS
- /
- 0 LIKES
-
하늘사랑•2000.02.02 19:28밝은빛 wrote: > 안녕하세요.... > > 현재 Active-X를 이용하여 웹 페이지를 만들고 있습니다.. > ...
-
유효종•2000.01.20 23:42밝은빛 wrote: > 안녕하세요.... > > 현재 Active-X를 이용하여 웹 페이지를 만들고 있습니다.. > ...
-
- 초보
- •
- 2000.01.20 23:15
- 1 COMMENTS
- /
- 0 LIKES
-
유효종•2000.01.20 23:44초보 wrote: > edit1에는 한글을 edit2에는 영어를 입력해야만 하는경우에 > 자동으로 변환되게 할수 있...
-
- 맨발의청춘
- •
- 2000.01.20 23:14
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.01.21 05:11맨발의청춘 wrote: > 계산 필드을 소트 할려고 합니다.어떻게 하는지요. > 혹시 안되나요. > 꼭 계산 필...
-
-
- 박광범
- •
- 2000.01.20 22:35
- 3 COMMENTS
- /
- 0 LIKES
query 콤포넌트를 사용해서 update 를 하려 합니다.. 이렇게 말로 하는 것보단 코딩을 보느게 낫겠죠?? procedure TMainScrn.btnInsertStockClick(Sender: TObject); var OldNo: String; OldNoI, NewNoI, TotalNoI: Integer; begin qrySto...-
김주석•2000.01.20 23:09박광범 wrote: > query 콤포넌트를 사용해서 update 를 하려 합니다.. > 이렇게 말로 하는 것보단 코딩을...
-
lee•2000.01.20 22:59박광범 wrote: > query 콤포넌트를 사용해서 update 를 하려 합니다.. > 이렇게 말로 하는 것보단 코딩을...
-
유효종•2000.01.20 22:49박광범 wrote: > > 일단 StockB 라는 table 이 있고, 이 table은 ItemID 와 ItemName 과 No 라는 필드를...
-
- 초보
- •
- 2000.01.20 22:10
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.01.21 07:19초보 wrote: > 안녕하세요 > 델파이 고수님들의 도움이 필요해서 이렇게 > Error creating Cursor Handl...
-
- 궁금함
- •
- 2000.01.20 21:52
- 1 COMMENTS
- /
- 0 LIKES
-
유효종•2000.01.21 00:34궁금함 wrote: > 안녕하세요. > > Delphi 4.0으로 프로그램을 개발 하는중에 몇가지 궁금사항이 있어...
-
- neocity
- •
- 2000.01.20 21:18
- 1 COMMENTS
- /
- 0 LIKES
-
이곤섭•2000.01.20 22:09neocity wrote: > 죄송한 질문이지만...... > Edit에서 특정한 스트링을 제거 하고 싶습니다. > StrPos(...
-
- 이곤섭
- 2000.01.20 21:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 여용구
- 2000.01.20 21:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진호
- •
- 2000.01.20 20:10
- 6 COMMENTS
- /
- 0 LIKES
-
배불뚝•2000.01.20 23:38김진호 wrote: > 각각의 폼에 있는 컴포넌트의 이름을 스트링에 담으려고 합니다. > > 이것을 함수로 ...
-
김진호•2000.01.21 01:33혹시 다른폼에 있는 PageControl에 속하는 컴포넌트가 edit인 경우 (memo도 있고 combobox의 항목이 될수도...
-
배불뚝•2000.01.21 01:55김진호 wrote: > 혹시 다른폼에 있는 PageControl에 속하는 컴포넌트가 edit인 경우 (memo도 있고 combobo...
-
김진호•2000.01.22 21:47배불뚝 wrote: > 김진호 wrote: > > 혹시 다른폼에 있는 PageControl에 속하는 컴포넌트가 edit인 경우 (...
-
유효종•2000.01.20 23:06김진호 wrote: > 각각의 폼에 있는 컴포넌트의 이름을 스트링에 담으려고 합니다. > > 이것을 함수로 ...
-
김진호•2000.01.21 01:34혹시 다른폼에 있는 PageControl에 속하는 컴포넌트가 edit인 경우 (memo도 있고 combobox의 항목이 될수도...
-
- 문영철
- 2000.01.20 20:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 용순이
- •
- 2000.01.20 19:50
- 1 COMMENTS
- /
- 0 LIKES
-
이대선•2000.01.20 21:10용순이 wrote: > 프로그램을 만들때 화면해상도를 바꾸면 원래 만들었을때의 폼이나 컴포넌트,폰트등이 ...
> query 콤포넌트를 사용해서 update 를 하려 합니다..
> 이렇게 말로 하는 것보단 코딩을 보느게 낫겠죠??
>
> procedure TMainScrn.btnInsertStockClick(Sender: TObject);
> var
> OldNo: String;
> OldNoI, NewNoI, TotalNoI: Integer;
> begin
> qryStockB.Close;
> qryStockB.SQL.Clear;
> qryStockB.SQL.Add('Select count(*) from StockB');
> qryStockB.SQL.Add('where ItemID=:f1');
> qryStockB.Params.ParamByName('f1').AsString:= edtStockItemID.Text;
> qryStockB.Open;
>
> if qryStockB.Fields[0].AsInteger > 1 then
> begin
> ShowMessage('Hyung, Big Mistake!!!');
> qryStockB.Close;
> halt(1);
> end;
>
> if qryStockB.Fields[0].AsInteger = 0 then
> begin
> qryPart.close;
> qryPart.sql.clear;
> qryPart.Sql.add('insert into Part');
> qryPart.sql.add('values ( :f1,:f2,:f3,:f4,:f5)');
> qryPart.params.ParamByName('f2').asstring:= edtStockItemName.text;
> qryPart.params.ParamByName('f3').asstring:= edtStockNo.Text;
> qryPart.params.ParamByName('f4').asstring:= edtStockSupplierID.text;
> qryPart.params.ParamByName('f5').asstring:= edtStockDate.text;
> qryPart.ExecSQL;
> qryPart.close;
>
>
>
> qryStockP.Close;
> qryStockP.sql.clear;
> qryStockP.Sql.add('insert into StockP');
> qryStockP.sql.add('values ( :f1,:f2,:f3)');
> qryStockP.params.ParamByName('f1').asstring:= edtStockItemID.text;
> qryStockP.params.ParamByName('f2').asstring:= edtStockItemName.text;
> qryStockP.params.ParamByName('f3').asstring:= edtStockAmount.Text;
> qryStockP.ExecSQL;
> qryStockP.close;
>
>
>
>
> qryStockB.Close;
> qryStockB.sql.clear;
> qryStockB.Sql.add('insert into StockB');
> qryStockB.sql.add('values ( :f1,:f2,:f3)');
> qryStockB.params.ParamByName('f1').asstring:= edtStockItemID.text;
> qryStockB.params.ParamByName('f2').asstring:= edtStockItemName.text;
> qryStockB.params.ParamByName('f3').asstring:= edtStockNO.Text;
> qryStockB.ExecSQL;
> qryStockB.close;
> ShowMessage('Record Inserted');
> end
> else if (qryStockB.Fields[0].AsInteger = 1) then
> begin
> qryPart.close;
> qryPart.sql.clear;
> qryPart.Sql.add('insert into Part');
> qryPart.sql.add('values ( :f1,:f2,:f3,:f4,:f5)');
> qryPart.params.ParamByName('f1').asstring:= edtStockItemID.text;
> qryPart.params.ParamByName('f2').asstring:= edtStockItemName.text;
> qryPart.params.ParamByName('f3').asstring:= edtStockNo.Text;
> qryPart.params.ParamByName('f4').asstring:= edtStockSupplierID.text;
> qryPart.params.ParamByName('f5').asstring:= edtStockDate.text;
> qryPart.ExecSQL;
> qryPart.close;
>
>
>
>
> qryStockP.Close;
> qryStockP.sql.clear;
> qryStockP.Sql.add('update StockP');
> qryStockP.sql.add('set Amount=:f3');
> qryStockP.SQL.add('where ItemID=:f1');
> qryStockP.params.ParamByName('f1').asstring:= edtStockItemID.text;
> qryStockP.params.ParamByName('f3').asstring:= edtStockAmount.Text;
>
>
>
>
> qryStockB.Close;
> qryStockB.SQL.Clear;
> qryStockB.SQL.Add('Select * from StockB');
> qryStockB.SQL.Add('where ItemID =:f1');
> qryStockB.Params.ParamByName('f1').AsString:= edtStockItemID.text;
> qryStockB.Open;
> OldNo:= qryStockB.Fields[2].AsString;
>
>
> OldNoI:= StrToInt(OldNo);
> NewNoI:= StrToInt(edtStockNo.Text);
> TotalNoI:= OldNoI + NewNoI;
>
> qryStockB.Close;
> qryStockB.SQL.Clear;
> qryStockB.Sql.add('update StockB');
> qryStockB.sql.add('set No=:f3 ');
> qryStockB.SQL.add('where ItemID=:f1');
> qryStockB.params.ParamByName('f1').asstring:= edtStockItemID.text;
> qryStockB.params.ParamByName('f3').asstring:= IntToStr(TotalNoI);
>
> try
> qryStockB.ExecSQL;
> qryStockP.ExecSQL;
> except
> showmessage('Could not update table --> Record Locked by another user');
> end;
> qryStockB.close;
> qryStockP.close;
> ShowMessage('Record Updated');
> end;
>
>
>
> edtStockItemID.Clear;
> edtStockItemName.Clear;
> edtStockAmount.Clear;
> edtStockNo.Clear;
> edtStockSupplierID.Clear;
> edtStockDate.Clear;
>
> end;
>
>
> 이부분입니다..
>
> 에러 메시지가
> Project simplewareproject.exe raised exception class EDBEngingError with message 'Invalid use of Keyword. Token: No=? Line Number:2.' Process stopped. Use step or Run to continue.
> 입니다..
>
에러 메시지가 있으므로 에러메시지를 충분히 확인하는 것이 필요하겠죠??
키워드를 썼다고 나오네요. 'No'라는 update문장 2번째줄에..
아마도 'No'라는 단어가 'Not~' 'NOWAIT~'등등이 있으므로 오라클 예약어로 분류되어
있지 않을까 싶네요. 만약 오라클예약어로 되어있다면 필드이름을 수정해야겠죠?!