한국 델파이 개발자 모임 - 최수영님! 소스좀 봐주세요.

최수영님! 소스좀 봐주세요.

안녕하세요. 최수영님의 웹에 올린글을 보고, 크리스탈리포트를 델파이에서 실행 하였습니다. 물론, Crystal7VCL4 컴포넌트도 델파이에 셋팅을 했구요. 컴포넌트의 라이센스는 어떻게 되나요?(비지니스용으로...)

크리스탈리포트는 odbc를 이용해 오라클서버의 뷰테이블로 작성했습니다. 델파이에서 첨으로 실행을 했는데.... 크리스탈 엔진 에러 메세지가 나옵니다.

에러번호는 599이고, "cannot open SQLserver Method:Excute " 에러 메세지 내용입니다.

델파이쪽의 소스코딩은 아래와 같습니다.

procedure Tfrm_abd_print.Button1Click(Sender: TObject);

Var

sReportName : String; //파일 이름

sFilePath : String; //파일 경로

sWorkMan : String; //작업자 (로그인 명)

from_date : String; // 시작일자

to_date : String; // 끝일자

from_hour : String; // 시작 시간

to_hour : String; // 끝시간

begin

sFilePath := 'C:rpt'; //파일 경로

sWorkMan := '네이버';

from_date := Crpe1.DateToStr(DateTimePicker1.Date) ; // 시작일자

to_date := Crpe1.DateToStr(DateTimePicker2.Date) ; // 끝일자

from_hour := Crpe1.TimeToStr(DateTimePicker3.Time); // 시작 시간

to_hour := Crpe1.TimeToStr(DateTimePicker4.Time); // 끝시간

if RadioButton1.Checked = true then

sReportName := sFilePath + 'd_abd_call_time'

else if RadioButton2.Checked = true then

sReportName := sFilePath + 'd_abd_call_day'

else if RadioButton3.Checked = true then

sReportName := sFilePath + 'd_abd_call_mon'

else if RadioButton4.Checked = true then

sReportName := sFilePath + 'd_abd_call_week';

if cbCamp.Items.Strings[cbCamp.ItemIndex] = '' then

begin

messagedlg('센터명을 확인 하십시오!!! ',mterror,[mbok],0);

exit;

end;

with Crpe1 do

begin

Selection.Clear;

GroupSelection.Clear;

OutPut:=toWindow; //uses문에 ucrpe32등록하여야 함

// if Uppercase((Sender as TBitBtn).name) = UpperCase('print_bit') then

// OutPut:=toPrinter;

WindowStyle.Title:=caption;

Connect.ServerName := 'server1';

Connect.UserID := 'cti';

Connect.Password := 'cti';

Connect.DatabaseName:= 'sec';

if cbGroup.Items.Strings[cbGroup.ItemIndex] = '' then

begin

ReportName := sReportName + '_1.rpt';

Selection.Formula[0] := '{d_abd_call_time.campaign_id} like "'+listCenterID.Strings[ cbCamp.ItemIndex ]+'" ' +

'and {d_abd_call_time.dd} >= DTSToDate("'+ from_date + '") '+

'and {d_abd_call_time.dd} <= DTSToDate("'+ to_date + '") '+

'and {d_abd_call_time.hh} = "' + from_hour + '" '+

'and {d_abd_call_time.hh} = "' + to_hour + '" ';

end

else

begin

ReportName := sReportName + '.rpt';

Selection.Formula[0] := '{d_abd_call_time.campaign_id} like "'+listCenterID.Strings[ cbCamp.ItemIndex ]+'" '+

'and {d_abd_call_time.group_id} like "'+listGroupID.Strings[ cbGroup.ItemIndex ]+'" '+

'and {d_abd_call_time.dd} >= DTSToDate("'+ from_date + '") '+

'and {d_abd_call_time.dd} <= DTSToDate("'+ to_date + '") '+

'and {d_abd_call_time.hh} = "' + from_hour + '" '+

'and {d_abd_call_time.hh} = "' + to_hour + '" ';

end;

Formulas.Clear;

Formulas.Add('기간1');

Formulas.Formula.Text := from_date ;

Formulas.Add('기간2');

Formulas.Formula.Text := to_date ;

Formulas.Add('시간1');

Formulas.Formula.Text := from_hour ;

Formulas.Add('시간2');

Formulas.Formula.Text := to_hour ;

Formulas.Add('작업자');

Formulas.Formula.Text := sWorkMan ;

Formulas.Add('센터');

Formulas.Formula.Text := cbCamp.Items.Strings[cbCamp.ItemIndex] ;

if cbGroup.Items.Strings[cbGroup.ItemIndex] <> '' then

begin

Formulas.Add('그룹명');

Formulas.Formula.Text := cbGroup.Items.Strings[cbGroup.ItemIndex] ;

end;

Formulas.Send;

Execute;

end;

end;

이 게시물을

1 COMMENTS

최수영 • 2000.02.02 18:06

늦게 답변을 보내 되었네요..

점검사항

1. 날자타입이 smalldatetime인가 varchar(8) or char(8)인지요...

smalldatetime이라면 델파이의 날자변수는 "2000/01/01"같인 중간에

/가 들어가야 합니다! ->515 formula error가 나오는디...

2. 크리스탈7.0에 가셔서 문제의 레포트를 부르신다음 set location을 실행

해당데이블을 정확한 드라이버 ex) SQL Server->sybase,ms-sqlserver)

에 해당되는 것을 각각 테이블을 다시연결, data verifiy실행

최수영올림

지니 wrote:

> 안녕하세요. 최수영님의 웹에 올린글을 보고, 크리스탈리포트를 델파이에서 실행 하였습니다. 물론, Crystal7VCL4 컴포넌트도 델파이에 셋팅을 했구요. 컴포넌트의 라이센스는 어떻게 되나요?(비지니스용으로...)

> 크리스탈리포트는 odbc를 이용해 오라클서버의 뷰테이블로 작성했습니다. 델파이에서 첨으로 실행을 했는데.... 크리스탈 엔진 에러 메세지가 나옵니다.

> 에러번호는 599이고, "cannot open SQLserver Method:Excute " 에러 메세지 내용입니다.

> 델파이쪽의 소스코딩은 아래와 같습니다.

> procedure Tfrm_abd_print.Button1Click(Sender: TObject);

> Var

> sReportName : String; //파일 이름

> sFilePath : String; //파일 경로

> sWorkMan : String; //작업자 (로그인 명)

> from_date : String; // 시작일자

> to_date : String; // 끝일자

> from_hour : String; // 시작 시간

> to_hour : String; // 끝시간

>

> begin

>

> sFilePath := 'C:rpt'; //파일 경로

> sWorkMan := '네이버';

> from_date := Crpe1.DateToStr(DateTimePicker1.Date) ; // 시작일자

> to_date := Crpe1.DateToStr(DateTimePicker2.Date) ; // 끝일자

> from_hour := Crpe1.TimeToStr(DateTimePicker3.Time); // 시작 시간

> to_hour := Crpe1.TimeToStr(DateTimePicker4.Time); // 끝시간

> if RadioButton1.Checked = true then

> sReportName := sFilePath + 'd_abd_call_time'

> else if RadioButton2.Checked = true then

> sReportName := sFilePath + 'd_abd_call_day'

> else if RadioButton3.Checked = true then

> sReportName := sFilePath + 'd_abd_call_mon'

> else if RadioButton4.Checked = true then

> sReportName := sFilePath + 'd_abd_call_week';

>

> if cbCamp.Items.Strings[cbCamp.ItemIndex] = '' then

> begin

> messagedlg('센터명을 확인 하십시오!!! ',mterror,[mbok],0);

> exit;

> end;

> with Crpe1 do

> begin

> Selection.Clear;

> GroupSelection.Clear;

> OutPut:=toWindow; //uses문에 ucrpe32등록하여야 함

> // if Uppercase((Sender as TBitBtn).name) = UpperCase('print_bit') then

> // OutPut:=toPrinter;

> WindowStyle.Title:=caption;

> Connect.ServerName := 'server1';

> Connect.UserID := 'cti';

> Connect.Password := 'cti';

> Connect.DatabaseName:= 'sec';

>

> if cbGroup.Items.Strings[cbGroup.ItemIndex] = '' then

> begin

> ReportName := sReportName + '_1.rpt';

> Selection.Formula[0] := '{d_abd_call_time.campaign_id} like "'+listCenterID.Strings[ cbCamp.ItemIndex ]+'" ' +

> 'and {d_abd_call_time.dd} >= DTSToDate("'+ from_date + '") '+

> 'and {d_abd_call_time.dd} <= DTSToDate("'+ to_date + '") '+

> 'and {d_abd_call_time.hh} = "' + from_hour + '" '+

> 'and {d_abd_call_time.hh} = "' + to_hour + '" ';

>

> end

> else

> begin

> ReportName := sReportName + '.rpt';

> Selection.Formula[0] := '{d_abd_call_time.campaign_id} like "'+listCenterID.Strings[ cbCamp.ItemIndex ]+'" '+

> 'and {d_abd_call_time.group_id} like "'+listGroupID.Strings[ cbGroup.ItemIndex ]+'" '+

> 'and {d_abd_call_time.dd} >= DTSToDate("'+ from_date + '") '+

> 'and {d_abd_call_time.dd} <= DTSToDate("'+ to_date + '") '+

> 'and {d_abd_call_time.hh} = "' + from_hour + '" '+

> 'and {d_abd_call_time.hh} = "' + to_hour + '" ';

> end;

> Formulas.Clear;

> Formulas.Add('기간1');

> Formulas.Formula.Text := from_date ;

> Formulas.Add('기간2');

> Formulas.Formula.Text := to_date ;

> Formulas.Add('시간1');

> Formulas.Formula.Text := from_hour ;

> Formulas.Add('시간2');

> Formulas.Formula.Text := to_hour ;

> Formulas.Add('작업자');

> Formulas.Formula.Text := sWorkMan ;

> Formulas.Add('센터');

> Formulas.Formula.Text := cbCamp.Items.Strings[cbCamp.ItemIndex] ;

> if cbGroup.Items.Strings[cbGroup.ItemIndex] <> '' then

> begin

> Formulas.Add('그룹명');

> Formulas.Formula.Text := cbGroup.Items.Strings[cbGroup.ItemIndex] ;

> end;

>

> Formulas.Send;

> Execute;

> end;

>

>

>

>

>

> end;

>
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- taehun
- •
- 2000.01.20 18:56
- 2 COMMENTS
- /
- 0 LIKES
바코드인식구현을 어떻게 하지요
- 유효종
  
  •
  
  2000.01.20 22:22
  
  taehun wrote: > 저는 매장관리를 하는 프로그램을 만들려고해요 > 직장이 판매점쪽이라서요 프로그램은 ...
- 박성훈
  
  •
  
  2000.01.24 20:58
  
  유효종 wrote: > taehun wrote: > > 저는 매장관리를 하는 프로그램을 만들려고해요 > > 직장이 판매점...
- taehun
- 2000.01.20 18:53
- 0 COMMENTS
- /
- 0 LIKES
분류먼저 해주시길 부탁드립니다.
- 서지현
- •
- 2000.01.20 17:57
- 4 COMMENTS
- /
- 0 LIKES
TTable검색입니다. 고수님들의 넓은 아량으로...
- 김종섭
  
  •
  
  2000.01.20 18:48
  
  서지현 wrote: > 안녕하십니까? > 2000년의 새해도 밝은지 언 20일이 지났습니다. > 하시는 일들은 잘 ...
- 서지현
  
  •
  
  2000.01.20 19:22
  
  김종섭씨 정말 감사드립니다. 그러나 아직도 안 되는 검색 누가 좀 살려줘요... 김종섭 wrote: > 서지...
- 서지현
  
  •
  
  2000.01.20 19:42
  
  김종섭씨 고맙습니다. 그런데 저의 말은 DB를 하나의 DB로 합치는 방법을... (예) 동네 데이터 금평리.D...
- mute
  
  •
  
  2000.01.21 01:06
  
  서지현 wrote: > 김종섭씨 고맙습니다. > 그런데 저의 말은 DB를 하나의 DB로 합치는 방법을... > (예) ...
- 장홍민
- 2000.01.20 17:57
- 0 COMMENTS
- /
- 0 LIKES
richedit에서 라인의 색깔바꾸기가 궁금..
- 궁금이
- •
- 2000.01.20 17:56
- 2 COMMENTS
- /
- 0 LIKES
richedit에서 라인의 색깔바꾸기가 궁금..
- 이대선
  
  •
  
  2000.01.20 20:57
  
  궁금이 wrote: > 날씨가 많이 추워졌네요.. > 다들 감기조심하시고요,,, > 다름이 아니라 richedit에서...
- 장홍민
  
  •
  
  2000.01.21 00:00
  
  이대선 wrote: > 궁금이 wrote: > > 날씨가 많이 추워졌네요.. > > 다들 감기조심하시고요,,, > > 다...
- 서지현
- •
- 2000.01.20 17:49
- 2 COMMENTS
- /
- 0 LIKES
인쇄에 관한 질문인데 무진장 급합니다.
- 유효종
  
  •
  
  2000.01.20 22:09
  
  서지현 wrote: > 이글을 보시는 여러 고수님들께 아뢰옵기 황송하오나 도움이 무진장 필요합니다. > 너그...
- 하얀까마귀
  
  •
  
  2000.01.21 03:45
  
  유효종 wrote: > 서지현 wrote: > > 이글을 보시는 여러 고수님들께 아뢰옵기 황송하오나 도움이 무진장 ...
- 난장돼지
- 2000.01.20 08:29
- 0 COMMENTS
- /
- 0 LIKES
db프로그램로딩시에러....(급히쫌)
- 김종섭
- •
- 2000.01.20 08:22
- 3 COMMENTS
- /
- 0 LIKES
DBgrid 입력시 DataSet 에 적용되기전 값알기
- 하얀까마귀
  
  •
  
  2000.01.21 03:58
  
  김종섭 wrote: > DBgrid 에서 입력이나 수정시 엔터를 치기전까지는 DataSet 에 적용이 되지않아 > 방금 ...
- 유효종
  
  •
  
  2000.01.20 22:42
  
  김종섭 wrote: > DBgrid 에서 입력이나 수정시 엔터를 치기전까지는 DataSet 에 적용이 되지않아 > 방금 ...
- 김종섭
  
  •
  
  2000.01.21 02:51
  
  유효종 wrote: > 김종섭 wrote: > > DBgrid 에서 입력이나 수정시 엔터를 치기전까지는 DataSet 에 적용...
- hs7606
- •
- 2000.01.20 07:54
- 1 COMMENTS
- /
- 0 LIKES
DBGrid 특정한 레코드에 값을 넣고 싶을때는...
- 강인규
  
  •
  
  2000.01.20 20:02
  
  이게 질문의 요지인지는 잘 모르겠지만..... table1.first; while not table1.eof do begin table1....
- 지니
- •
- 2000.01.20 07:47
- 1 COMMENTS
- /
- 0 LIKES
최수영님! 소스좀 봐주세요.

안녕하세요. 최수영님의 웹에 올린글을 보고, 크리스탈리포트를 델파이에서 실행 하였습니다. 물론, Crystal7VCL4 컴포넌트도 델파이에 셋팅을 했구요. 컴포넌트의 라이센스는 어떻게 되나요?(비지니스용으로...) 크리스탈리포트는 odbc를...
- 최수영
  
  •
  
  2000.02.02 18:06
  
  늦게 답변을 보내 되었네요.. 점검사항 1. 날자타입이 smalldatetime인가 varchar(8) or char(8)인지요.....
- hs7606
- 2000.01.20 07:24
- 0 COMMENTS
- /
- 0 LIKES
분류먼저 해주시길 부탁드립니다.
- hs7606
- 2000.01.20 07:24
- 0 COMMENTS
- /
- 0 LIKES
분류먼저 해주시길 부탁드립니다.
- hs7606
- 2000.01.20 07:24
- 0 COMMENTS
- /
- 0 LIKES
분류먼저 해주시길 부탁드립니다.
- logos07
- •
- 2000.11.11 02:10
- 1 COMMENTS
- /
- 0 LIKES
연산식에서 연산자와 숫자를 구별하려면?
- castle load
  
  •
  
  2000.11.11 02:11
  
  logos07 wrote: > 안녕하세요 > 부산에서 델파이 공부를 하는 서현우라 합니다. > 제가 이제 델파이 공...
- 김희옥
- 2000.01.20 03:41
- 0 COMMENTS
- /
- 0 LIKES
급합니다..퀵퀵퀵!!!
- 최민성
- 2000.01.20 03:35
- 0 COMMENTS
- /
- 0 LIKES
C로만든 DLL 함수 호출해서 사용하는 방법
- park
- •
- 2000.01.20 03:30
- 3 COMMENTS
- /
- 0 LIKES
줄 띄우기?
- 허일학
  
  •
  
  2000.01.20 05:14
  
  park wrote: > 란녕하세요!!! > 1 ..... > 1 ..... > 1 .... . > > > 2 .... > 2 ..... > 이런 ...
- park
  
  •
  
  2000.01.20 05:46
  
  허일학 wrote: > park wrote: > > 란녕하세요!!! > > 1 ..... > > 1 ..... > > 1 .... . > > > > ...
- 김영해
  
  •
  
  2000.01.20 07:42
  
  park wrote: > 허일학 wrote: > > park wrote: > > > 란녕하세요!!! > > > 1 ..... > > > 1 ..... > ...
- hs7606
- •
- 2000.01.20 03:05
- 1 COMMENTS
- /
- 0 LIKES
DBGrid에서 마우스로 클릭한 Cell의 한개의 칸의 Data만
- 버스맨
  
  •
  
  2000.01.20 06:22
  
  result := DBGrid1.SelectedField.Value; hs7606 wrote: > DBGrid에서 마우스로 클릭한 Cell의 한개의 ...
- taehun
- 2000.01.20 02:39
- 0 COMMENTS
- /
- 0 LIKES
바코드 값을 인식과 실제 구현방법을 알고 싶어요
- 신승철
- •
- 2000.01.20 02:38
- 1 COMMENTS
- /
- 0 LIKES
소켓통신중의 에러 메시지를 강제적으로 없애는 방법이 있는지요.
- 안치봉
  
  •
  
  2000.01.20 08:01
  
  만약 델파이에 기본으로 있는 소켓콤포넌트를 말하시느거면 여기에서 검색을 해보세요... -.-;; 제가 알...

지니
2000/01/20 07:47
Views413

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

2670 2671 2672 2673 2674 2675 2676 2677 2678 2679

Last Page→