한국 델파이 개발자 모임 - tknumberedit와 엑셀이요

tknumberedit와 엑셀이요

유지보수때문에 보는 프로그램인데요, 실행하면 이런 에러가 뜹니다,,아마도 tknumberedit란 컴포넌트가 없어서 나느게 아닐까싶은데요,,글구 엑셀을 불러올때도 제가 배운거랑 다르게 불러와서리, 여기 적어봅니다,,,아시는 분들의 도움바랍니다

[Fatal Error] MAIN.PAS(75): File not found: 'Number.dcu'

[Fatal Error] Pp119pas.pas(216): File not found: 'Excels.dcu'

[Fatal Error] Pp119pas.pas(216): File not found: 'Excels.dcu'

[Fatal Error] Py104pas.pas(6): File not found: 'Number.dcu'

엑셀실행시코드

procedure Tpy101fm.pp104ExcelPrint;

var

i : integer;

Rec : TBookMark;

Xldb : Tdataset;

begin

Excel := TExcel.Create(self);

XlDb := mastdata.Tabpp104;

Rec := XlDb.GetBookmark;

fncOpenExcel(Excel, '급여집계표.xls');

i := 6;

Excel.Putstrat(1, 1, ac_year + '년' + ac_mnth + '월 육상직급여집계표');

with Xldb do begin

open;

first;

while not eof do begin

Excel.Putstrat(i, 3, inttostr(fieldbyname('t_inwn').asinteger));

Excel.Putstrat(i, 4, floattostr(fieldbyname('t_py01').asfloat));

Excel.Putstrat(i, 5, floattostr(fieldbyname('t_py02').asfloat));

Excel.Putstrat(i, 6, floattostr(fieldbyname('t_py03').asfloat));

Excel.Putstrat(i, 7, floattostr(fieldbyname('t_py04').asfloat));

Excel.Putstrat(i, 8, floattostr(fieldbyname('t_py05').asfloat));

Excel.Putstrat(i, 9, floattostr(fieldbyname('t_py06').asfloat));

//Excel.Putstrat(i,10, floattostr(fieldbyname('t_py07').asfloat));

//Excel.Putstrat(i,11, floattostr(fieldbyname('t_py08').asfloat));

Excel.Putstrat(i,12, floattostr(fieldbyname('t_py09').asfloat));

Excel.Putstrat(i,13, floattostr(fieldbyname('t_py10').asfloat));

Excel.Putstrat(i,14, floattostr(fieldbyname('t_py11').asfloat));

//Excel.Putstrat(i,15, floattostr(fieldbyname('t_py12').asfloat));

Excel.Putstrat(i,16, floattostr(fieldbyname('t_pytt').asfloat));

inc(i);

next;

end;

GotoBookmark(Rec);

FreeBookmark(Rec);

Showmessage( 'Excel로 자료 내보내기가 완료되었습니다' );

excel.free;

end;

end;

이 게시물을

1 COMMENTS

구창민 • 2001.11.22 09:58

[Fatal Error] MAIN.PAS(75): File not found: 'Number.dcu'

[Fatal Error] Pp119pas.pas(216): File not found: 'Excels.dcu'

[Fatal Error] Pp119pas.pas(216): File not found: 'Excels.dcu'

[Fatal Error] Py104pas.pas(6): File not found: 'Number.dcu'

위 에러들은 각 파일들이 없어서 나는 에러입니다.

위의 파일들을 찾으셔서 컴파일 되는 디렉토리나 Lib 디렉토리에 넣어주세요.

^_^;; 근데 제 생각엔, 관련자료를 델파이 관련 사이트를 뒤져가며 새로

짜는게 나을 거 같다는 생각이 드네요..

그럼~ 항상 즐거운 프로그래밍 되시길~~

델피초보 wrote:

> 유지보수때문에 보는 프로그램인데요, 실행하면 이런 에러가 뜹니다,,아마도 tknumberedit란 컴포넌트가 없어서 나느게 아닐까싶은데요,,글구 엑셀을 불러올때도 제가 배운거랑 다르게 불러와서리, 여기 적어봅니다,,,아시는 분들의 도움바랍니다

>

> [Fatal Error] MAIN.PAS(75): File not found: 'Number.dcu'

> [Fatal Error] Pp119pas.pas(216): File not found: 'Excels.dcu'

> [Fatal Error] Pp119pas.pas(216): File not found: 'Excels.dcu'

> [Fatal Error] Py104pas.pas(6): File not found: 'Number.dcu'

>

> 엑셀실행시코드

> procedure Tpy101fm.pp104ExcelPrint;

> var

> i : integer;

> Rec : TBookMark;

> Xldb : Tdataset;

> begin

> Excel := TExcel.Create(self);

> XlDb := mastdata.Tabpp104;

> Rec := XlDb.GetBookmark;

> fncOpenExcel(Excel, '급여집계표.xls');

> i := 6;

> Excel.Putstrat(1, 1, ac_year + '년' + ac_mnth + '월 육상직급여집계표');

> with Xldb do begin

> open;

> first;

> while not eof do begin

> Excel.Putstrat(i, 3, inttostr(fieldbyname('t_inwn').asinteger));

> Excel.Putstrat(i, 4, floattostr(fieldbyname('t_py01').asfloat));

> Excel.Putstrat(i, 5, floattostr(fieldbyname('t_py02').asfloat));

> Excel.Putstrat(i, 6, floattostr(fieldbyname('t_py03').asfloat));

> Excel.Putstrat(i, 7, floattostr(fieldbyname('t_py04').asfloat));

> Excel.Putstrat(i, 8, floattostr(fieldbyname('t_py05').asfloat));

> Excel.Putstrat(i, 9, floattostr(fieldbyname('t_py06').asfloat));

> //Excel.Putstrat(i,10, floattostr(fieldbyname('t_py07').asfloat));

> //Excel.Putstrat(i,11, floattostr(fieldbyname('t_py08').asfloat));

> Excel.Putstrat(i,12, floattostr(fieldbyname('t_py09').asfloat));

> Excel.Putstrat(i,13, floattostr(fieldbyname('t_py10').asfloat));

> Excel.Putstrat(i,14, floattostr(fieldbyname('t_py11').asfloat));

> //Excel.Putstrat(i,15, floattostr(fieldbyname('t_py12').asfloat));

> Excel.Putstrat(i,16, floattostr(fieldbyname('t_pytt').asfloat));

> inc(i);

> next;

> end;

> GotoBookmark(Rec);

> FreeBookmark(Rec);

> Showmessage( 'Excel로 자료 내보내기가 완료되었습니다' );

> excel.free;

> end;

> end;

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

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

- 영프리오
- 2001.11.22 06:19
- 0 COMMENTS
- /
- 0 LIKES
요즘은 계속 퀵리포트 질문만 하게 되네요.
- 최적화
- •
- 2001.11.22 05:35
- 1 COMMENTS
- /
- 0 LIKES
open 속도 문제입니다.
- 지락...
  
  •
  
  2001.11.22 09:28
  
  혹시 다른 Query에 많은 자료가 이미 오픈되어있는지 확인해보세요. 한세션의 쿼리에 많은자료가 오픈된 ...
- 왕초보
- 2001.11.23 22:18
- 0 COMMENTS
- /
- 0 LIKES
윈도창컨트롤좀 알켜주세요 꼭이요(복받으실겁니당)
- dskang55
- •
- 2001.11.22 04:09
- 1 COMMENTS
- /
- 0 LIKES
실행시(F9) Err 발생???
- 구창민
  
  •
  
  2001.11.22 09:53
  
  안녕하세요~ 구창민입니다. 어딘가에서 무한 재귀호출을 하고 있는 것은 아닌지요? 코드를 자세히 한...
- wooki
- •
- 2001.11.22 04:07
- 2 COMMENTS
- /
- 0 LIKES
TWebBrowser를 폼에 넣고 사용하는중에...
- 구창민
  
  •
  
  2001.11.22 09:55
  
  html 로 그린 버튼을 클릭한다는 명제부터가 잘못되어진 설계 같습니다. 설계를 바꾸시는게 좋을 거 같...
- 지나가는 이....
  
  •
  
  2001.11.22 18:52
  
  버튼도 웹에서 그리는게 나을 듯 한데.. 그러면 아니되나요? 그리고 나서. ocx 든 web 브라우져 콤포넌트...
- 3분TT
- •
- 2001.11.22 04:02
- 1 COMMENTS
- /
- 0 LIKES
Tvideocap 으로 3분 이상...
- 박상윤
  
  •
  
  2001.11.27 08:34
  
  처음부터 하드로 저장하시지.. 그럼 아무문제 없을 거에여.. 차고로 avi 2.0 은 2기가 까진인가 저장 ...
- 델피초보
- •
- 2001.11.22 03:21
- 1 COMMENTS
- /
- 0 LIKES
tknumberedit와 엑셀이요

유지보수때문에 보는 프로그램인데요, 실행하면 이런 에러가 뜹니다,,아마도 tknumberedit란 컴포넌트가 없어서 나느게 아닐까싶은데요,,글구 엑셀을 불러올때도 제가 배운거랑 다르게 불러와서리, 여기 적어봅니다,,,아시는 분들의 도움...
- 구창민
  
  •
  
  2001.11.22 09:58
  
  [Fatal Error] MAIN.PAS(75): File not found: 'Number.dcu' [Fatal Error] Pp119pas.pas(216): File not ...
- 바람인가
- •
- 2001.11.22 03:14
- 1 COMMENTS
- /
- 0 LIKES
master/detail에 관한질문(고수님 꼭 봐주세요..)
- 박상주
  
  •
  
  2001.11.22 19:03
  
  Master/Detail 등록화면에서는 저는 OnNewRecord를 이용합니다. QueryDeail1의 OnNewRecord Event에 ...
- 바보
- •
- 2001.11.22 02:47
- 1 COMMENTS
- /
- 0 LIKES
(질문) 메모에 관한 질문
- 구창민
  
  •
  
  2001.11.22 09:59
  
  님아..^_^;; 죄송스럽지만 질문을 다시 해 주세요. 메모 컴포넌트를 사용하셨다는 말씀인가요? 그...
- 김영남
- 2001.11.22 02:23
- 0 COMMENTS
- /
- 0 LIKES
like 용법..
- 델처버
- •
- 2001.11.22 02:22
- 1 COMMENTS
- /
- 0 LIKES
ClientSocket에서 연결상태 체크??
- 이경문
  
  •
  
  2001.11.22 10:34
  
  데이터를 전송하려 하는 시점에서 연결이 끊겼는데 OnDisconnect가 발생하지 않을 수 있습니다. 이 경우 ...
- halosky
- 2001.11.22 02:06
- 0 COMMENTS
- /
- 0 LIKES
인쇄방향이 자꾸 틀리게 나오거든여~
- 이쁜이
- 2001.11.22 01:35
- 0 COMMENTS
- /
- 0 LIKES
autoexec에 path를 추가하려면 어떻게 해야하죠..?
- 공도리
- •
- 2001.11.22 01:25
- 1 COMMENTS
- /
- 0 LIKES
문자를 아스키값으로 변환할때요.......ㅜ,,ㅜ
- 희
  
  •
  
  2001.11.22 01:52
  
  먼저 Edit box의 값을 String 변수에 대입한 다음 하나씩 Ord로 변환하세요.. > var > i:integer; ...
- 궁금이..
- 2001.11.22 01:19
- 0 COMMENTS
- /
- 0 LIKES
mysql사용법!
- 바보감자
- 2001.11.22 00:49
- 0 COMMENTS
- /
- 0 LIKES
windows2000어드밴스 서버의 터미널 서비스 프로그램에 관해서..
- 통신초보..
- •
- 2001.11.22 00:41
- 1 COMMENTS
- /
- 0 LIKES
통신에서 Packet을 만들때..
- 희
  
  •
  
  2001.11.22 01:47
  
  Delphi의 System unit 에 보면 move라는 함수가 있습니다. 이것을 사용해 보세요.. 그럼..즐...
- 세희
- 2001.11.22 00:36
- 0 COMMENTS
- /
- 0 LIKES
마우스와 PostMessage 두개의 질문
- 넥시트
- •
- 2001.11.22 00:06
- 1 COMMENTS
- /
- 0 LIKES
델파이와 sql2000 BDE설정시 트러스트된.....에러
- 박동호
  
  •
  
  2006.11.29 03:19
  
  많이 늦은 답변이겠지만 혹시나 보시는 분들을 위하여서 저도 도움을 많이 받기 때문에 서버컴퓨터의 s...
- 꼴통
- •
- 2001.11.21 23:47
- 3 COMMENTS
- /
- 0 LIKES
StringGrid에서 (OndrawCell작업) 글자가 안보여염..(ㅠㅠ)
- 홍성락
  
  •
  
  2001.11.21 23:55
  
  꼴통 wrote: > 아래와 같이 코딩을 했는데 글자가 안보이네요.. > 부탁드립니다. > with Stri...
- 꼴통
  
  •
  
  2001.11.22 00:47
  
  저렇게 코딩해서 그리드의 셀을 비교해서 특정셀만 색깔이 바꿔어야 되거든요.. 그리고 스트링 그리드의 F...
- 홍성락
  
  •
  
  2001.11.22 02:15
  
  꼴통 wrote: > 저렇게 코딩해서 그리드의 셀을 비교해서 특정셀만 색깔이 바꿔어야 되거든요.. > 그리고 ...

델피초보
2001/11/22 03:21
Views259

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

1477 1478 1479 1480 1481 1482 1483 1484 1485 1486

Last Page→