Q&A
- Query문의 특정필드 합을 구할려고 합니다.
제가 워낙 초보라서.......
다름이 아니오라
아래의 문장에서 제가 Query문의 특정 필드의 합을 구하여 화면에
뿌려줄려고 하나 잘되지 않네요...
어떻게 고쳐야 하는지 아시는 분은 자세히 설명좀 해주세요...
에러 메세지 : [Error]A_1.pas[208]; incompatible types: 'Strin' and 'integer'
type
BillingQueryUSE_SUMTOT: TFloatField;
procedure TA_1Form.BitBtn1Click(Sender: TObject);
var
BSumTot : integer; <<-- 합의 변수
begin
BSumTot := 0; <<--변수의 초기화
Screen.Cursor := crHourglass;
if (Length(Edit2.Text) < 6 ) then begin
ShowMessage ('청구년월을 정확히 입력하세요!');
Screen.Cursor := crDefault;
Exit;
end else begin
with BillingQuery do begin
Close;
Sql.Clear;
if (Length(ComboBox1.Text) <= 0 ) then begin
if (Length(ComboBox2.Text) <= 0 ) then begin
if (Length(Edit1.Text) <= 0 ) then begin
Sql.Add('select * from eos_billing_pay where use_ym
= ' +
''''+ edit2.text +'''');
end else begin // 업체선택X, 유저그룹X, id O
Sql.Add('select * from eos_billing_pay where
user_code = ' +
''''+ edit1.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end;
end else begin
if (Length(Edit1.Text) <= 0 ) then begin
Sql.Add('select * from eos_billing_pay where
USER_GROUP = ' +
''''+ ComboBox2.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end else begin
Sql.Add('select * from eos_billing_pay where
user_group = ' +
''''+ ComboBox2.text +'''' +
'and USER_CODE = ' + ''''+ Edit1.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end;
end;
end else begin
if (Length(ComboBox2.Text) <= 0 ) then begin
if (Length(Edit1.Text) <= 0 ) then begin
Sql.Add('select * from eos_billing_pay where
group_code = ' +
''''+ ComboBox1.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end else begin
Sql.Add('select * from eos_billing_pay where
group_code = ' +
''''+ ComboBox1.text +'''' +
'and USER_CODE = ' + ''''+ Edit1.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end;
end else begin
if (Length(Edit1.Text) <= 0 ) then begin
Sql.Add('select * from eos_billing_pay where
group_code = ' +
''''+ ComboBox1.text +'''' +
'and user_group = ' + ''''+ ComboBox2.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end else begin
Sql.Add('select * from eos_billing_pay where
user_group = ' +
''''+ ComboBox2.text +'''' +
'and user_group = ' + ''''+ ComboBox2.text +'''' +
'and USER_CODE = ' + ''''+ Edit1.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end;
end;
end;
BSumTot := BSumTot + billingQuery.FieldByName <<-- Query 필드의 합
('use_sumtot').AsInteger; <<-- 여기서 틀린것 같은데?
open;
Showmessage ('BSumTot')
// MstQuery.active := True;
end;
end;
Screen.Cursor := crDefault;
Edit3.Text := Format('%5d', [billingQuery.RecordCount]) ;
Edit4.Text := BSumTot; << edit콤보에 입력 (여기가 208라인)
if (BillingQuery.RecordCount = 0) then ShowMessage('조회된 데이터가 한건도 존재하지 않습니다.');
end;
다름이 아니오라
아래의 문장에서 제가 Query문의 특정 필드의 합을 구하여 화면에
뿌려줄려고 하나 잘되지 않네요...
어떻게 고쳐야 하는지 아시는 분은 자세히 설명좀 해주세요...
에러 메세지 : [Error]A_1.pas[208]; incompatible types: 'Strin' and 'integer'
type
BillingQueryUSE_SUMTOT: TFloatField;
procedure TA_1Form.BitBtn1Click(Sender: TObject);
var
BSumTot : integer; <<-- 합의 변수
begin
BSumTot := 0; <<--변수의 초기화
Screen.Cursor := crHourglass;
if (Length(Edit2.Text) < 6 ) then begin
ShowMessage ('청구년월을 정확히 입력하세요!');
Screen.Cursor := crDefault;
Exit;
end else begin
with BillingQuery do begin
Close;
Sql.Clear;
if (Length(ComboBox1.Text) <= 0 ) then begin
if (Length(ComboBox2.Text) <= 0 ) then begin
if (Length(Edit1.Text) <= 0 ) then begin
Sql.Add('select * from eos_billing_pay where use_ym
= ' +
''''+ edit2.text +'''');
end else begin // 업체선택X, 유저그룹X, id O
Sql.Add('select * from eos_billing_pay where
user_code = ' +
''''+ edit1.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end;
end else begin
if (Length(Edit1.Text) <= 0 ) then begin
Sql.Add('select * from eos_billing_pay where
USER_GROUP = ' +
''''+ ComboBox2.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end else begin
Sql.Add('select * from eos_billing_pay where
user_group = ' +
''''+ ComboBox2.text +'''' +
'and USER_CODE = ' + ''''+ Edit1.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end;
end;
end else begin
if (Length(ComboBox2.Text) <= 0 ) then begin
if (Length(Edit1.Text) <= 0 ) then begin
Sql.Add('select * from eos_billing_pay where
group_code = ' +
''''+ ComboBox1.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end else begin
Sql.Add('select * from eos_billing_pay where
group_code = ' +
''''+ ComboBox1.text +'''' +
'and USER_CODE = ' + ''''+ Edit1.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end;
end else begin
if (Length(Edit1.Text) <= 0 ) then begin
Sql.Add('select * from eos_billing_pay where
group_code = ' +
''''+ ComboBox1.text +'''' +
'and user_group = ' + ''''+ ComboBox2.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end else begin
Sql.Add('select * from eos_billing_pay where
user_group = ' +
''''+ ComboBox2.text +'''' +
'and user_group = ' + ''''+ ComboBox2.text +'''' +
'and USER_CODE = ' + ''''+ Edit1.text +'''' +
' and use_ym = ' + ''''+ Edit2.text +'''');
end;
end;
end;
BSumTot := BSumTot + billingQuery.FieldByName <<-- Query 필드의 합
('use_sumtot').AsInteger; <<-- 여기서 틀린것 같은데?
open;
Showmessage ('BSumTot')
// MstQuery.active := True;
end;
end;
Screen.Cursor := crDefault;
Edit3.Text := Format('%5d', [billingQuery.RecordCount]) ;
Edit4.Text := BSumTot; << edit콤보에 입력 (여기가 208라인)
if (BillingQuery.RecordCount = 0) then ShowMessage('조회된 데이터가 한건도 존재하지 않습니다.');
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 파이쿡
- 2000.12.26 21:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 최영식
- •
- 2000.12.26 21:41
- 3 COMMENTS
- /
- 0 LIKES
-
행이리•2000.12.29 02:56최영식 wrote: > DBGRID의 row,col을 구하고 싶은데 어떻게 해야 하나요? 고수님들의 답변을 부탁드립니다...
-
뿌요•2000.12.27 21:09최영식 wrote: > DBGRID의 row,col을 구하고 싶은데 어떻게 해야 하나요? 고수님들의 답변을 부탁드립니다...
-
몰러•2000.12.26 22:13최영식 wrote: > DBGRID의 row,col을 구하고 싶은데 어떻게 해야 하나요? 고수님들의 답변을 부탁드립니다...
-
- 델초보..
- 2000.12.26 21:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 선해석
- 2000.12.26 21:00
- 0 COMMENTS
- /
- 0 LIKES
-
- 성병규
- •
- 2000.12.26 20:54
- 2 COMMENTS
- /
- 0 LIKES
-
선해석•2000.12.26 21:01사설망 아이피는 공식적으로 범위가 정해져 있습니다. B Class, C Class 요런 식으로 나뉘어져서요.. 저...
-
이성호•2000.12.27 21:32확실하지는 않지만 제기억으로는 공식적으로 사설 IP는 192.168.x.x (B Class)또는 192.168.0.x (C Class)...
-
- 윤미영
- 2000.12.26 20:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 김규겸
- •
- 2000.12.26 20:31
- 3 COMMENTS
- /
- 0 LIKES
-
...•2000.12.26 20:40김규겸 wrote: > > 안녕하세여..?? 즐거운 크리스마스를 보내셨는지 > 이번 문제는 필드를 2번 나타...
-
김규겸•2000.12.26 21:17빠르고 정확한 답변 넘 감사함다.. 잘 되네영.. 군데 문제가 하나있네영. 테이블 A의 이전데이터와 현재...
-
...•2000.12.26 22:02김규겸 wrote: > 빠르고 정확한 답변 넘 감사함다.. 잘 되네영.. 군데 문제가 하나있네영. > 테이블 A...
-
- rREal
- 2000.12.26 19:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 김병훈
- 2000.12.26 11:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 짝돌이
- •
- 2000.12.26 03:08
- 1 COMMENTS
- /
- 0 LIKES
제가 워낙 초보라서....... 다름이 아니오라 아래의 문장에서 제가 Query문의 특정 필드의 합을 구하여 화면에 뿌려줄려고 하나 잘되지 않네요... 어떻게 고쳐야 하는지 아시는 분은 자세히 설명좀 해주세요... 에러 메세지 : [Error]A_1....-
뿌요•2000.12.27 21:18208line) Edit4.Text := BSumTot; text는 string값을 반영하는데 BSumtot는 integer형이라 맞지않는다는 ...
-
- 무적153
- 2000.12.25 10:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 똥개
- 2000.12.24 18:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 김귀영
- 2000.12.24 11:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2000.12.24 09:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 박혜윤
- •
- 2000.12.24 07:20
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.12.24 22:34박혜윤 wrote: > > 메리 크리스 마스~! > > 한델 식구들 모두 모두 행복하시구, 메리크리스마쓰~~ ...
-
- 정영민
- •
- 2000.12.24 03:00
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.01.11 08:05Indy에서 지원하는 HTTP Server Component는 간단한 것입니다. IIS같이 ASP, CGI가 되게 하려 하면 PIPE...
-
- 안녕
- •
- 2000.12.24 01:51
- 1 COMMENTS
- /
- 0 LIKES
-
바람개비•2000.12.26 19:49음... 혹시 텍스트데이타가 한줄짜리가 아닌가 싶네요. readln은 cr(아스키 13번) 을 찾아서 한문장으로 ...
-
- 쫑현이
- •
- 2000.12.23 21:41
- 1 COMMENTS
- /
- 0 LIKES
-
김영로•2000.12.24 01:14그 쓰레드 안에 FTPClientProgress 루틴을 작성하고 쓰레드 안의 멤버함수로 그것을 정의하세요. 그리고 ...
-
-
타락천사•2000.12.24 22:49안녕하세여.. 타락임다..^^ 처음 시작하시나 보군여..^^ 조은 질문 임다..^^ 우선 기본 개념이 약...
-
^_^•2001.08.13 00:51같은 궁금증으로 검색하다가 읽어봤습니다. 역시 질문하신분처럼 몬가 없을까 하다가 님의 답글을 읽어봤...
-
-
- pallas
- 2000.12.23 20:15
- 0 COMMENTS
- /
- 0 LIKES
text는 string값을 반영하는데 BSumtot는 integer형이라 맞지않는다는 뜻입니다.
Edit4.Text := IntToStr(BSumTot);
String형으로 변환해서 넣으면 됩니다... 즐코..^.*
짝돌이 wrote:
> 제가 워낙 초보라서.......
>
> 다름이 아니오라
> 아래의 문장에서 제가 Query문의 특정 필드의 합을 구하여 화면에
> 뿌려줄려고 하나 잘되지 않네요...
>
> 어떻게 고쳐야 하는지 아시는 분은 자세히 설명좀 해주세요...
>
> 에러 메세지 : [Error]A_1.pas[208]; incompatible types: 'Strin' and 'integer'
>
> type
> BillingQueryUSE_SUMTOT: TFloatField;
>
>
> procedure TA_1Form.BitBtn1Click(Sender: TObject);
> var
> BSumTot : integer; <<-- 합의 변수
>
> begin
> BSumTot := 0; <<--변수의 초기화
> Screen.Cursor := crHourglass;
> if (Length(Edit2.Text) < 6 ) then begin
> ShowMessage ('청구년월을 정확히 입력하세요!');
> Screen.Cursor := crDefault;
> Exit;
> end else begin
> with BillingQuery do begin
> Close;
> Sql.Clear;
> if (Length(ComboBox1.Text) <= 0 ) then begin
> if (Length(ComboBox2.Text) <= 0 ) then begin
> if (Length(Edit1.Text) <= 0 ) then begin
> Sql.Add('select * from eos_billing_pay where use_ym
> = ' +
> ''''+ edit2.text +'''');
> end else begin // 업체선택X, 유저그룹X, id O
> Sql.Add('select * from eos_billing_pay where
> user_code = ' +
> ''''+ edit1.text +'''' +
> ' and use_ym = ' + ''''+ Edit2.text +'''');
> end;
> end else begin
> if (Length(Edit1.Text) <= 0 ) then begin
> Sql.Add('select * from eos_billing_pay where
> USER_GROUP = ' +
> ''''+ ComboBox2.text +'''' +
> ' and use_ym = ' + ''''+ Edit2.text +'''');
> end else begin
> Sql.Add('select * from eos_billing_pay where
> user_group = ' +
> ''''+ ComboBox2.text +'''' +
> 'and USER_CODE = ' + ''''+ Edit1.text +'''' +
> ' and use_ym = ' + ''''+ Edit2.text +'''');
> end;
> end;
> end else begin
> if (Length(ComboBox2.Text) <= 0 ) then begin
> if (Length(Edit1.Text) <= 0 ) then begin
> Sql.Add('select * from eos_billing_pay where
> group_code = ' +
> ''''+ ComboBox1.text +'''' +
> ' and use_ym = ' + ''''+ Edit2.text +'''');
> end else begin
> Sql.Add('select * from eos_billing_pay where
> group_code = ' +
> ''''+ ComboBox1.text +'''' +
> 'and USER_CODE = ' + ''''+ Edit1.text +'''' +
> ' and use_ym = ' + ''''+ Edit2.text +'''');
> end;
> end else begin
> if (Length(Edit1.Text) <= 0 ) then begin
> Sql.Add('select * from eos_billing_pay where
> group_code = ' +
> ''''+ ComboBox1.text +'''' +
> 'and user_group = ' + ''''+ ComboBox2.text +'''' +
> ' and use_ym = ' + ''''+ Edit2.text +'''');
> end else begin
> Sql.Add('select * from eos_billing_pay where
> user_group = ' +
> ''''+ ComboBox2.text +'''' +
> 'and user_group = ' + ''''+ ComboBox2.text +'''' +
> 'and USER_CODE = ' + ''''+ Edit1.text +'''' +
> ' and use_ym = ' + ''''+ Edit2.text +'''');
> end;
> end;
> end;
> BSumTot := BSumTot + billingQuery.FieldByName <<-- Query 필드의 합
> ('use_sumtot').AsInteger; <<-- 여기서 틀린것 같은데?
> open;
> Showmessage ('BSumTot')
> // MstQuery.active := True;
> end;
> end;
> Screen.Cursor := crDefault;
> Edit3.Text := Format('%5d', [billingQuery.RecordCount]) ;
> Edit4.Text := BSumTot; << edit콤보에 입력 (여기가 208라인)
> if (BillingQuery.RecordCount = 0) then ShowMessage('조회된 데이터가 한건도 존재하지 않습니다.');
>
> end;
>