Q&A
- 에러좀 찾아주세요...^^
procedure TFrm0121.edtInCard(Sender: TObject);
var
Total,Sale : Real;
begin
With Query1 do
begin
Close;
Sql.Clear;
Sql.Text := 'select Card_No,Card_Name from MEMBER'+
'where Card_No =: PCard_No'+
' and Card_Name =: PCard_Na';
ParamByName('PCard_No').asstring := edit2.text;
ParamByName('PCard_Name').asstring := edit1.text;
ParamByName('PCard_Name').asstring := edit3.text;
Open;
Close;
end;
With Query1 do
begin
Close;
Sql.Clear;
Sql.add ('select * from SANG');
Open;
//구매금액계산
//Sale := 수량 * 단가
//Total := Total + sale
Sale := FieldByName('Sang_Su').asstring * FieldByName ('Sang_Dan').asstring;
Total := Total + Sale;
FieldByName('Sang_Gu').asstring := Sale ;
FieldByName('Sang_Hanp').asstring := Total;
DBGrid1.Columns[0].Field := Table1.FieldByName('Sang_Name');
DBGrid1.Columns[1].Field := Table1.FieldByName('Sang_Dan');
DBGrid1.Columns[2].Field := Table1.FieldByName('Sang_Su');
DBGrid1.Columns[3].Field := Table1.FieldByName('Sang_Gu');
DBGrid1.Columns[4].Field := Table1.FieldByName('Sang_Hap');
Close;
end;
end;
어디서 에러가 난거죠???
부탁합니다..
감사합니다....
var
Total,Sale : Real;
begin
With Query1 do
begin
Close;
Sql.Clear;
Sql.Text := 'select Card_No,Card_Name from MEMBER'+
'where Card_No =: PCard_No'+
' and Card_Name =: PCard_Na';
ParamByName('PCard_No').asstring := edit2.text;
ParamByName('PCard_Name').asstring := edit1.text;
ParamByName('PCard_Name').asstring := edit3.text;
Open;
Close;
end;
With Query1 do
begin
Close;
Sql.Clear;
Sql.add ('select * from SANG');
Open;
//구매금액계산
//Sale := 수량 * 단가
//Total := Total + sale
Sale := FieldByName('Sang_Su').asstring * FieldByName ('Sang_Dan').asstring;
Total := Total + Sale;
FieldByName('Sang_Gu').asstring := Sale ;
FieldByName('Sang_Hanp').asstring := Total;
DBGrid1.Columns[0].Field := Table1.FieldByName('Sang_Name');
DBGrid1.Columns[1].Field := Table1.FieldByName('Sang_Dan');
DBGrid1.Columns[2].Field := Table1.FieldByName('Sang_Su');
DBGrid1.Columns[3].Field := Table1.FieldByName('Sang_Gu');
DBGrid1.Columns[4].Field := Table1.FieldByName('Sang_Hap');
Close;
end;
end;
어디서 에러가 난거죠???
부탁합니다..
감사합니다....
3
COMMENTS
-
-
김태균 께서 말씀하시기를...
> SQL.Text 두번째 줄에서 에러가 났네요.
> 지금 대로 하면 Member하고 Where가 붙게 되죠.
> 다음과 같이 써 보세요.
>
> Sql.Text := 'select Card_No,Card_Name from MEMBER'+
> ' where Card_No =: PCard_No'+
>
> 그럼 즐겁게 프로그램 작성하세요.
>
어디가 틀린지 잘 모르겠어요...
똑같이 해놓은것 같거든요..
죄송합니다..눈이어둡나 봐요.^^
다시한번 부탁드립니다..
감사합니다..
-
음... 델아기님은
'where.....이렇게 쓰셨죠.
' 한칸띄고 where....이렇게 쓰시라고요..
(NOTICE) You must be logged in to comment on this post.
-
- 하늘소
- •
- 1999.08.02 23:36
- 1 COMMENTS
- /
- 0 LIKES
-
노력하는이•1999.08.03 03:09하늘소 께서 말씀하시기를... > > 안녕하세요!. > 한가지 해결하지 못하는 문제가 있어서요. > >...
-
- 델아기
- •
- 1999.08.02 21:03
- 1 COMMENTS
- /
- 0 LIKES
-
조복기•1999.08.02 22:04안녕하세요..조복기입니다.. 담아두는 변수는 real로 선언되어있는데 계산하는 필드들을 string값으...
-
- 심재민
- •
- 1999.08.02 20:55
- 1 COMMENTS
- /
- 0 LIKES
-
김태균•1999.08.03 18:08안녕하세요... 델파이 4.0 C/S 버젼에 보시면 데모프로그램에 비슷한 소스가 있습니다. 참고 하시...
-
- 권민철
- 1999.08.02 20:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 양효비
- 1999.08.02 19:39
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 델아기
- •
- 1999.08.02 18:25
- 3 COMMENTS
- /
- 0 LIKES
procedure TFrm0121.edtInCard(Sender: TObject); var Total,Sale : Real; begin With Query1 do begin Close; Sql.Clear; Sql.Text := 'select Card_No,Card_Name from MEMBER'+ 'where Card_No =: PCard_No'+ ' and Card_Name =: PCard_...-
김태균•1999.08.02 19:32SQL.Text 두번째 줄에서 에러가 났네요. 지금 대로 하면 Member하고 Where가 붙게 되죠. 다음과 같이 써 ...
-
델아기•1999.08.02 20:28김태균 께서 말씀하시기를... > SQL.Text 두번째 줄에서 에러가 났네요. > 지금 대로 하면 Member하고 Wh...
-
김태균•1999.08.02 20:46음... 델아기님은 'where.....이렇게 쓰셨죠. ' 한칸띄고 where....이렇게 쓰시라고요..
-
- 지강명
- •
- 1999.08.02 17:34
- 1 COMMENTS
- /
- 0 LIKES
-
sunhee•1999.08.02 18:41안녕하세요. 선희덕이라고 합니다. 이렇게 하면 될꺼 같네요. 1. 우선 전체 텍스트파일의 라인수를 ...
-
- 김행곤
- 1999.08.02 17:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 푸힛
- 1999.08.02 12:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 이명학
- 1999.08.02 07:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 김종성
- •
- 1999.08.02 02:05
- 1 COMMENTS
- /
- 0 LIKES
-
sunhee•1999.08.02 18:46선희덕이라고 합니다. 우선 unit에 shellapi추가하셨나 보시고요. procedure TForm1.N10Click(Sender...
-
- 정호창
- •
- 1999.08.01 22:59
- 1 COMMENTS
- /
- 0 LIKES
-
송기원•1999.08.02 17:21정호창 께서 말씀하시기를... > Page Control에 현재 선택된 Page를 구별하여 > Case별로 다른 Function...
-
- 김헌균
- 1999.08.01 18:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 김헌균
- 1999.08.01 18:37
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 한만택
- 1999.08.01 07:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 정연섭
- •
- 1999.08.01 06:46
- 2 COMMENTS
- /
- 0 LIKES
-
박성훈•1999.08.04 21:35정연섭 께서 말씀하시기를... > 프로그램내 아무데서나 특정키를 누르면 특정 버튼에 있는 이벤트가 > 실...
-
박성훈•1999.08.04 21:34정연섭 께서 말씀하시기를... > 프로그램내 아무데서나 특정키를 누르면 특정 버튼에 있는 이벤트가 > 실...
-
-
- 김재현
- •
- 1999.07.31 23:22
- 1 COMMENTS
- /
- 0 LIKES
-
sunhee•1999.08.02 18:53음 글쎄요. 예전에 저도 델파이로 isapi 프로그램을 해보았는데 정말로 엄청 피봤습니다. 원래 델파이...
지금 대로 하면 Member하고 Where가 붙게 되죠.
다음과 같이 써 보세요.
Sql.Text := 'select Card_No,Card_Name from MEMBER'+
' where Card_No =: PCard_No'+
그럼 즐겁게 프로그램 작성하세요.
델아기 께서 말씀하시기를...
> procedure TFrm0121.edtInCard(Sender: TObject);
> var
> Total,Sale : Real;
> begin
> With Query1 do
> begin
> Close;
> Sql.Clear;
> Sql.Text := 'select Card_No,Card_Name from MEMBER'+
> 'where Card_No =: PCard_No'+
> ' and Card_Name =: PCard_Na';
> ParamByName('PCard_No').asstring := edit2.text;
> ParamByName('PCard_Name').asstring := edit1.text;
> ParamByName('PCard_Name').asstring := edit3.text;
> Open;
> Close;
> end;
> With Query1 do
> begin
> Close;
> Sql.Clear;
> Sql.add ('select * from SANG');
> Open;
> //구매금액계산
> //Sale := 수량 * 단가
> //Total := Total + sale
> Sale := FieldByName('Sang_Su').asstring * FieldByName ('Sang_Dan').asstring;
> Total := Total + Sale;
> FieldByName('Sang_Gu').asstring := Sale ;
> FieldByName('Sang_Hanp').asstring := Total;
> DBGrid1.Columns[0].Field := Table1.FieldByName('Sang_Name');
> DBGrid1.Columns[1].Field := Table1.FieldByName('Sang_Dan');
> DBGrid1.Columns[2].Field := Table1.FieldByName('Sang_Su');
> DBGrid1.Columns[3].Field := Table1.FieldByName('Sang_Gu');
> DBGrid1.Columns[4].Field := Table1.FieldByName('Sang_Hap');
> Close;
> end;
> end;
>
> 어디서 에러가 난거죠???
> 부탁합니다..
> 감사합니다....
>