한국 델파이 개발자 모임 - [급합니다] StringGrid의 내용을 출력할때?????

[급합니다] StringGrid의 내용을 출력할때?????

StrinfGrid의 내용을 인쇄코드를 짜려고 합니다(퀵레포트 이용해서요....). 그래서 시험삼아 StringGrid에 강저적으로 입력값을 넣고 짜보았거든요... 근데.. 컴파일했더니 에러는 안나는데 데이타가 찍히지 않거든요 .. 그래서 코드를 올릴께요... 책을 보니 DB연동한 예제만 나와있어서 어떤밴드를 써야한는지 잘 모르겠거든요... 거 참....

급한 부분이래서 ..

메인부분 :

unit uPrint;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Yislabel, Grids;

type

TForm1 = class(TForm)

StringGrid1: TStringGrid;

YISLabel1: TYISLabel;

Button1: TButton;

procedure FormShow(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses uPrint1, uPrint2;

{$R *.DFM}

procedure TForm1.FormShow(Sender: TObject);

begin

begin

StringGrid1.Cells[0,0] := 'Name';

StringGrid1.Cells[1,0] := 'sex';

StringGrid1.Cells[2,0] := 'hobby';

StringGrid1.Cells[3,0] := 'pay';

StringGrid1.Cells[4,0] := 'telnum';

StringGrid1.Cells[5,0] := 'address';

StringGrid1.Cells[0,1] := 'Name';

StringGrid1.Cells[1,1] := 'sex';

StringGrid1.Cells[2,1] := 'hobby';

StringGrid1.Cells[3,1] := 'pay';

StringGrid1.Cells[4,1] := 'telnum';

StringGrid1.Cells[5,1] := 'address';

StringGrid1.Cells[0,2] := 'Name';

StringGrid1.Cells[1,2] := 'sex';

StringGrid1.Cells[2,2] := 'hobby';

StringGrid1.Cells[3,2] := 'pay';

StringGrid1.Cells[4,2] := 'telnum';

StringGrid1.Cells[5,2] := 'address';

StringGrid1.Cells[0,3] := 'Name';

StringGrid1.Cells[1,3] := 'sex';

StringGrid1.Cells[2,3] := 'hobby';

StringGrid1.Cells[3,3] := 'pay';

StringGrid1.Cells[4,3] := 'telnum';

StringGrid1.Cells[5,3] := 'address';

StringGrid1.Cells[0,4] := 'Name';

StringGrid1.Cells[1,4] := 'sex';

StringGrid1.Cells[2,4] := 'hobby';

StringGrid1.Cells[3,4] := 'pay';

StringGrid1.Cells[4,4] := 'telnum';

StringGrid1.Cells[5,4] := 'address';

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.QuickRep1.preview;

end;

procedure TForm1.FormClick(Sender: TObject);

begin

Form3.QuickRep1.preview;

end;

end.

프린트 부분 :

unit uPrint1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, QuickRpt,uPrint, Qrctrls, StdCtrls;

type

TForm2 = class(TForm)

QuickRep1: TQuickRep;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;

var PrintReport: Boolean);

procedure QuickRep1NeedData(Sender : TObject; Var MoreData : Boolean);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

CurItem : Integer;

implementation

{$R *.DFM}

procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;

var PrintReport: Boolean);

begin

CurItem := 1;

end;

procedure TForm2.QuickRep1NeedData(Sender : TObject; Var MoreData : Boolean);

begin

if CurItem < Form1.StringGrid1.Rowcount then

begin

QRLabel1.Caption := Form1.StringGrid1.Cells[0,CurItem];

QRLabel2.Caption := Form1.StringGrid1.Cells[1,CurItem];

QRLabel3.Caption := Form1.StringGrid1.Cells[2,CurItem];

QRLabel4.Caption := Form1.StringGrid1.Cells[3,CurItem];

QRLabel5.Caption := Form1.StringGrid1.Cells[4,CurItem];

QRLabel6.Caption := Form1.StringGrid1.Cells[5,CurItem];

Inc(CurItem); // CurItem을 증가시키면서 현재까지 출력된 개수를 가리키게 한다

MoreData := CurItem < Form1.StringGrid1.RowCount;

end;

end;

end.

빨리 좀 부탁합니다......

이 게시물을

1 COMMENTS

돌멩이 • 2000.12.09 02:33

깡초보 wrote:

> StrinfGrid의 내용을 인쇄코드를 짜려고 합니다(퀵레포트 이용해서요....). 그래서 시험삼아 StringGrid에 강저적으로 입력값을 넣고 짜보았거든요... 근데.. 컴파일했더니 에러는 안나는데 데이타가 찍히지 않거든요 .. 그래서 코드를 올릴께요... 책을 보니 DB연동한 예제만 나와있어서 어떤밴드를 써야한는지 잘 모르겠거든요... 거 참....

> 급한 부분이래서 ..

>

> 메인부분 :

>

> unit uPrint;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> StdCtrls, Yislabel, Grids;

>

> type

> TForm1 = class(TForm)

> StringGrid1: TStringGrid;

> YISLabel1: TYISLabel;

> Button1: TButton;

>

> procedure FormShow(Sender: TObject);

> procedure Button1Click(Sender: TObject);

> procedure FormClick(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> uses uPrint1, uPrint2;

>

> {$R *.DFM}

>

>

>

> procedure TForm1.FormShow(Sender: TObject);

> begin

> begin

> StringGrid1.Cells[0,0] := 'Name';

> StringGrid1.Cells[1,0] := 'sex';

> StringGrid1.Cells[2,0] := 'hobby';

> StringGrid1.Cells[3,0] := 'pay';

> StringGrid1.Cells[4,0] := 'telnum';

> StringGrid1.Cells[5,0] := 'address';

>

> StringGrid1.Cells[0,1] := 'Name';

> StringGrid1.Cells[1,1] := 'sex';

> StringGrid1.Cells[2,1] := 'hobby';

> StringGrid1.Cells[3,1] := 'pay';

> StringGrid1.Cells[4,1] := 'telnum';

> StringGrid1.Cells[5,1] := 'address';

>

> StringGrid1.Cells[0,2] := 'Name';

> StringGrid1.Cells[1,2] := 'sex';

> StringGrid1.Cells[2,2] := 'hobby';

> StringGrid1.Cells[3,2] := 'pay';

> StringGrid1.Cells[4,2] := 'telnum';

> StringGrid1.Cells[5,2] := 'address';

>

> StringGrid1.Cells[0,3] := 'Name';

> StringGrid1.Cells[1,3] := 'sex';

> StringGrid1.Cells[2,3] := 'hobby';

> StringGrid1.Cells[3,3] := 'pay';

> StringGrid1.Cells[4,3] := 'telnum';

> StringGrid1.Cells[5,3] := 'address';

>

> StringGrid1.Cells[0,4] := 'Name';

> StringGrid1.Cells[1,4] := 'sex';

> StringGrid1.Cells[2,4] := 'hobby';

> StringGrid1.Cells[3,4] := 'pay';

> StringGrid1.Cells[4,4] := 'telnum';

> StringGrid1.Cells[5,4] := 'address';

> end;

> end;

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> Form2.QuickRep1.preview;

> end;

>

> procedure TForm1.FormClick(Sender: TObject);

> begin

> Form3.QuickRep1.preview;

> end;

>

> end.

>

> 프린트 부분 :

>

> unit uPrint1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> ExtCtrls, QuickRpt,uPrint, Qrctrls, StdCtrls;

>

> type

> TForm2 = class(TForm)

> QuickRep1: TQuickRep;

> QRLabel1: TQRLabel;

> QRLabel2: TQRLabel;

> QRLabel3: TQRLabel;

> QRLabel4: TQRLabel;

> QRLabel5: TQRLabel;

> QRLabel6: TQRLabel;

> procedure QuickRep1BeforePrint(Sender: TCustomQuickRep;

> var PrintReport: Boolean);

> procedure QuickRep1NeedData(Sender : TObject; Var MoreData : Boolean);

> private

> { Private declarations }

> public

> { Public declarations }

>

>

> end;

>

> var

> Form2: TForm2;

> CurItem : Integer;

> implementation

>

> {$R *.DFM}

>

> procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;

> var PrintReport: Boolean);

> begin

> CurItem := 1;

> end;

>

>

> procedure TForm2.QuickRep1NeedData(Sender : TObject; Var MoreData : Boolean);

> begin

> if CurItem < Form1.StringGrid1.Rowcount then

> begin

> QRLabel1.Caption := Form1.StringGrid1.Cells[0,CurItem];

> QRLabel2.Caption := Form1.StringGrid1.Cells[1,CurItem];

> QRLabel3.Caption := Form1.StringGrid1.Cells[2,CurItem];

> QRLabel4.Caption := Form1.StringGrid1.Cells[3,CurItem];

> QRLabel5.Caption := Form1.StringGrid1.Cells[4,CurItem];

> QRLabel6.Caption := Form1.StringGrid1.Cells[5,CurItem];

> Inc(CurItem); // CurItem을 증가시키면서 현재까지 출력된 개수를 가리키게 한다

> MoreData := CurItem < Form1.StringGrid1.RowCount;

> end;

> end;

>

>

>

> end.

>

> 빨리 좀 부탁합니다......

TQRStringBand를 사용해 보세요

Items에 StringGrid의 Row 만큼 넣어 주시구요.
- 0
- 0
- 삭제
- 수정
- 댓글

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

- 안젤726
- 2000.12.09 03:18
- 0 COMMENTS
- /
- 0 LIKES
Record Changed By Another User....
- 김광수
- •
- 2000.12.09 03:06
- 1 COMMENTS
- /
- 0 LIKES
멀티모니터 제어하는 방법좀...
- 김광수
  
  •
  
  2000.12.13 23:48
  
  김광수 wrote: 이히히 혼자서 해결했어요. Windows.pas 와 MultiMon.pas 를 보고 연구했어요. 어휴 안그...
- 곽동수
- •
- 2000.12.09 02:54
- 3 COMMENTS
- /
- 0 LIKES
현재 로그인한 NT도메인명 어떻게 알죠?
- 컴맹...
  
  •
  
  2000.12.09 18:22
  
  안녕하세여... NT DOMAIN 이라면... 요렇게 하면 되는걸루 알구 있습니다.. 그럼 20000 // 기본 도메...
- 곽동수
  
  •
  
  2000.12.12 00:44
  
  이런... 제가 자세히 알려주신 소스를 보니깐... 해당 소스는 NT에서 직접 실행했을 경우 가능한 함수들...
- 곽동수
  
  •
  
  2000.12.09 22:05
  
  답변 감사합니다. 하지만 잘 되지 않는군요. GetDefaultDomain에서는 레지스트리에 그 값이 기록되어 ...
- mallove
- •
- 2000.12.09 02:59
- 1 COMMENTS
- /
- 0 LIKES
[꼭 좀 부탁합니다]디비그리드에 디폴트값 넣는 방법이요!!!
- 김진석
  
  •
  
  2000.12.12 00:28
  
  mallove wrote: > 입력창을 만들지 않고 dbgrid에 직접 데이타를 입력해서 저장하는데 > 사용자의 편의를...
- 컴포넌트
- •
- 2000.12.09 02:34
- 2 COMMENTS
- /
- 0 LIKES
indy컴포넌트 설치할려는데...에러..
- 초보초보
  
  •
  
  2000.12.09 06:35
  
  indy 컴포넌트는 indy8009b.exe를 다운 받아서 실행만 시켜주면 인스톨쉴드가 나타나서 자동으로 설치 됩...
- 최은석
  
  •
  
  2000.12.09 03:15
  
  이렇게 해보세요...... 인디컴포를 다운받아서 압축을풀고...... indy50, dclindy50 패키지를 컴파일...
- 델이랑파이랑
- •
- 2000.12.09 02:32
- 2 COMMENTS
- /
- 0 LIKES
Stringgrid의 내용을 Excel로 저장하려합니다...어떻게 하는건지...??
- 최은석
  
  •
  
  2000.12.13 16:59
  
  ........ 메일 잘 받았습니다.... 근데 제가 올린 예제소스에는 ftp 는 필요하지않습니다.. 엑셀이 설치...
- 최은석
  
  •
  
  2000.12.09 02:36
  
  제가 다운받아서 저장해 놓은 팁중에 원하시는 내용이 있어서 올립니다... procedure StringGridToExc...
- 뻐록이
- 2000.12.09 02:21
- 0 COMMENTS
- /
- 0 LIKES
스레드에 관하여.....(급해요)
- 한승구
- 2000.12.09 21:46
- 0 COMMENTS
- /
- 0 LIKES
SendMessage가 잘 안되네요.
- 초보자
- •
- 2000.12.09 02:04
- 1 COMMENTS
- /
- 0 LIKES
Try Exception문에서 ...요..
- 임형호
  
  •
  
  2000.12.09 06:16
  
  While문이나 ...기타 루프문으로 구현을 하시나요? 그러니까... 루프문안에..Try - Except문장이 있는것 ...
- 깡초보
- •
- 2000.12.09 02:03
- 1 COMMENTS
- /
- 0 LIKES
[급합니다] StringGrid의 내용을 출력할때?????

StrinfGrid의 내용을 인쇄코드를 짜려고 합니다(퀵레포트 이용해서요....). 그래서 시험삼아 StringGrid에 강저적으로 입력값을 넣고 짜보았거든요... 근데.. 컴파일했더니 에러는 안나는데 데이타가 찍히지 않거든요 .. 그래서 코드를 올...
- 돌멩이
  
  •
  
  2000.12.09 02:33
  
  깡초보 wrote: > StrinfGrid의 내용을 인쇄코드를 짜려고 합니다(퀵레포트 이용해서요....). 그래서 시험...
- 정영민
- 2000.12.09 17:39
- 0 COMMENTS
- /
- 0 LIKES
record 형을 소켓으로 전송하려면
- 윤미영
- 2000.12.09 01:58
- 0 COMMENTS
- /
- 0 LIKES
프로그램실행시윈도우키를 실행시킬수없도록할수있을까요?
- 정영민
- •
- 2000.12.09 01:49
- 1 COMMENTS
- /
- 0 LIKES
마이다스 사용 배포에 대한 질문
- 아이언
  
  •
  
  2000.12.09 04:47
  
  이전 버젼에서는 DCOM환경 설정을 해 주어야 했구요.. 5.0 버젼에서는 서버 프로그램을 서버컴퓨터해서 ...
- 공공
- •
- 2000.12.09 01:17
- 3 COMMENTS
- /
- 0 LIKES
시간에대한 질문입니다...도와주세요
- 최은석
  
  •
  
  2000.12.09 02:06
  
  Copy(TimeToStr(Time),6,5); 다른방법도 있지만 이게 제일로 편한 방법이지요 제가 필요로 하...
- 공공
  
  •
  
  2000.12.09 02:46
  
  최은석 wrote: > > Copy(TimeToStr(Time),6,5); > > 다른방법도 있지만 이게 제일로 편한 방법...
- 이해주
  
  •
  
  2000.12.09 01:24
  
  공공 wrote: > 제가 필요로 하는게 시간중에서 시:분 까지이거든요.. > 타임 형식을 쓰니까... 오전09:20...
- 궁금이
- •
- 2000.12.09 01:10
- 2 COMMENTS
- /
- 0 LIKES
세개의 콤보박스 연결할때...
- 최은석
  
  •
  
  2000.12.09 01:41
  
  form create 시에 동적배열을 사용해서..... 분류별로 자료를 넣으면 될거같은데요... 궁금이 wrot...
- 궁금이
  
  •
  
  2000.12.09 02:05
  
  답변 감사합니다..^^ 근데...따로 넣으면 않되는데요... 모든 데이터가 한테이블에 있기때문에... 대중...
- 이상우
- •
- 2000.12.09 01:06
- 1 COMMENTS
- /
- 0 LIKES
탐색기에서 특정 디렉토리 Drop 시..
- 이해주
  
  •
  
  2000.12.09 01:38
  
  DragQueryFile() 라는 윈도우 API를 써서 디렉토리명을 알아내시고요. 그 디렉토리로 가서 화일을 뒤져서 ...
- 김태용
- •
- 2000.12.09 01:04
- 1 COMMENTS
- /
- 0 LIKES
access2000과 delphi와 붙치는 방법좀 알려 주세요
- 이해주
  
  •
  
  2000.12.09 01:41
  
  김태용 wrote: > access2000과 delphi와 붙치는 방법좀 알려 주세요 > 단 odbc말고요 odbc는 install만들...
- 초보중초보
- 2000.12.09 01:01
- 0 COMMENTS
- /
- 0 LIKES
qreport에서 .....
- 이학주
- •
- 2000.12.09 00:58
- 2 COMMENTS
- /
- 0 LIKES
그리드에서의 한글 입력...
- 우리말사랑
  
  •
  
  2000.12.09 04:02
  
  이학주 wrote: > 그리드에서 한글을 입력하면 그 위치에 네모난 박스가 > 생겨서 현재 입력하는 내용이 ...
- 우리말사랑
  
  •
  
  2000.12.09 03:38
  
  이학주 wrote: > 그리드에서 한글을 입력하면 그 위치에 네모난 박스가 > 생겨서 현재 입력하는 내용이 ...
- woody
- 2000.12.09 00:33
- 0 COMMENTS
- /
- 0 LIKES
dbgrid1.columns.state 넘 궁금해요 please 답변......

깡초보
2000/12/09 02:03
Views606

Likes0

Comments1

Reports0
Tag List
수정
삭제
목록으로

←First Page

2065 2066 2067 2068 2069 2070 2071 2072 2073 2074

Last Page→