Q&A
안뇽 하신가여.. 울트라 초보사발임당...
오늘도 질문이 있어서리...^^;;
다른게 아니고여... 질문 내용은..
지가 코딩으로 출력물을 맹글었는디여.. 근디...
2장을 뽑아야하는디...
첫장은 청구부서용이구 2번째 장은 구매부서용이렇게 나오게 하는것임당...
첫번째 청구부서용 하구 2번째 구매부서용은 양식이 그렇게 다른쥐가 않습니당..
전 프로시저를 이용해서리... 맹글었는디여... 제가 초보라서리.. 이걸
비슷한 프로시저를 하나더 맹글어서 사용하고 있슴당... 글구 이걸 프린트할라구 또다른 프로시져를 2개더 맹글었슴당 ㅠㅠ 어떻게 하면 한 프로시져로 맹글수 있을까여...ㅠㅠ 그러니까 출력은 청구부서용, 구매부서용 이걸 하나의 프로시져로 맹글수 있을까 하는 것임당... 아래의 예에선... textout(x,y,'청구부서용'),textout(x,y,'구매부서용')
이것만 다르게 돼었있슴당.. 이걸 어떻게 하면 하나의 프로시져로 맹글죠??? 에거 에거 암만 생각해두 안돼는군여 ㅠㅠ 지가 머리가 나뽀서리 ㅠㅠ
예를...
procedure Tgmmain_f.pr(canvas:Tcanvas); // 청구부서용임당.....
begin
with canvas do
begin
Font.size := round(8*300/getdevicecaps(handle,LOGPIXELSY));
font.style := [];
pen.width := 2;
rectangle(255,-438,2820,-1900); // 외형
font.Size := 21;
font.Style := [fsbold,fsunderline];
// font.Style := [fsunderline];
font.Name := '고딕체';
textout(910,-150,'구 매 청 구 서');
moveto(2309,-218); // 위쪽 사각형
lineto(2819,-218);
moveto(2309,-218);
lineto(2309,-418);
moveto(2819,-218);
lineto(2819,-418);
moveto(2309,-418);
lineto(2819,-418);
font.Style:=[];
font.Size:=9;
textout(2590,-168,'(청구부서용)');
.
.
.
procedure Tgmmain_f.pr2(canvas:Tcanvas); // 구매부서용임당...
begin
with canvas do
begin
Font.size := round(8*300/getdevicecaps(handle,LOGPIXELSY));
font.style := [];
pen.width := 2;
rectangle(255,-438,2820,-1900); // 외형
font.Size := 21;
font.Style := [fsbold,fsunderline];
// font.Style := [fsunderline];
font.Name := '고딕체';
textout(910,-150,'구 매 청 구 서');
moveto(2309,-218); // 위쪽 사각형
lineto(2819,-218);
moveto(2309,-218);
lineto(2309,-418);
moveto(2819,-218);
lineto(2819,-418);
moveto(2309,-418);
lineto(2819,-418);
font.Style:=[];
font.Size:=9;
textout(2590,-168,'(구매부서용)');
.
.
.
- 코딩으로 양식을 맹글었는디여..근디..문제가 ㅠㅠ
안뇽 하신가여.. 울트라 초보사발임당...
오늘도 질문이 있어서리...^^;;
다른게 아니고여... 질문 내용은..
지가 코딩으로 출력물을 맹글었는디여.. 근디...
2장을 뽑아야하는디...
첫장은 청구부서용이구 2번째 장은 구매부서용이렇게 나오게 하는것임당...
첫번째 청구부서용 하구 2번째 구매부서용은 양식이 그렇게 다른쥐가 않습니당..
전 프로시저를 이용해서리... 맹글었는디여... 제가 초보라서리.. 이걸
비슷한 프로시저를 하나더 맹글어서 사용하고 있슴당... 글구 이걸 프린트할라구 또다른 프로시져를 2개더 맹글었슴당 ㅠㅠ 어떻게 하면 한 프로시져로 맹글수 있을까여...ㅠㅠ 그러니까 출력은 청구부서용, 구매부서용 이걸 하나의 프로시져로 맹글수 있을까 하는 것임당... 아래의 예에선... textout(x,y,'청구부서용'),textout(x,y,'구매부서용')
이것만 다르게 돼었있슴당.. 이걸 어떻게 하면 하나의 프로시져로 맹글죠??? 에거 에거 암만 생각해두 안돼는군여 ㅠㅠ 지가 머리가 나뽀서리 ㅠㅠ
예를...
procedure Tgmmain_f.pr(canvas:Tcanvas); // 청구부서용임당.....
begin
with canvas do
begin
Font.size := round(8*300/getdevicecaps(handle,LOGPIXELSY));
font.style := [];
pen.width := 2;
rectangle(255,-438,2820,-1900); // 외형
font.Size := 21;
font.Style := [fsbold,fsunderline];
// font.Style := [fsunderline];
font.Name := '고딕체';
textout(910,-150,'구 매 청 구 서');
moveto(2309,-218); // 위쪽 사각형
lineto(2819,-218);
moveto(2309,-218);
lineto(2309,-418);
moveto(2819,-218);
lineto(2819,-418);
moveto(2309,-418);
lineto(2819,-418);
font.Style:=[];
font.Size:=9;
textout(2590,-168,'(청구부서용)');
.
.
.
procedure Tgmmain_f.pr2(canvas:Tcanvas); // 구매부서용임당...
begin
with canvas do
begin
Font.size := round(8*300/getdevicecaps(handle,LOGPIXELSY));
font.style := [];
pen.width := 2;
rectangle(255,-438,2820,-1900); // 외형
font.Size := 21;
font.Style := [fsbold,fsunderline];
// font.Style := [fsunderline];
font.Name := '고딕체';
textout(910,-150,'구 매 청 구 서');
moveto(2309,-218); // 위쪽 사각형
lineto(2819,-218);
moveto(2309,-218);
lineto(2309,-418);
moveto(2819,-218);
lineto(2819,-418);
moveto(2309,-418);
lineto(2819,-418);
font.Style:=[];
font.Size:=9;
textout(2590,-168,'(구매부서용)');
.
.
.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 타락천사...
- •
- 2000.11.10 01:34
- 1 COMMENTS
- /
- 0 LIKES
-
mallove•2000.11.10 02:04타락천사... wrote: > 델파이 데이터 베이스에 관한 좋은 책좀 추천해주세요.... > 초중급용으로 '델...
-
- 강서기
- •
- 2000.11.10 01:29
- 1 COMMENTS
- /
- 0 LIKES
-
컴맹•2000.11.10 08:51강서기 wrote: > 안냐세요?? > > 지금 굉장히 궁금한 게 있는디요... > 혹시 Form : TForm 이런식으로...
-
- 뜨아악
- •
- 2000.11.10 01:24
- 2 COMMENTS
- /
- 0 LIKES
-
뿌요•2000.12.23 21:11뜨아악 wrote: > table에 money 필드를 지어했습니다. > 앞에 역슬래쉬가 붙더군요. > 일반 DBText나 D...
-
coolling•2000.11.10 18:15TABLE 컴포넌트나 QUERY컴포넌트의 Field Editor에서 해당 필드의 속성중에서 currency속성을 true하거나...
-
- 아기코알라
- •
- 2000.11.10 01:06
- 2 COMMENTS
- /
- 0 LIKES
-
뻐록이•2000.11.10 05:50아기코알라 wrote: > > DBGrid에 데이타를 입력할 때 저는 다른 입력창을 만들어 입력하도록 해놓았는...
-
권민호•2000.11.10 01:51아기코알라 wrote: > > DBGrid에 데이타를 입력할 때 저는 다른 입력창을 만들어 입력하도록 해놓았는...
-
- 김규억
- 2000.11.10 00:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 홍용원
- •
- 2000.11.10 00:58
- 2 COMMENTS
- /
- 0 LIKES
-
정성훈•2000.11.10 02:41안녕하세요. 음 전 바코드 회사에서 일하고 있거든요. 그런데 3 out of 5 바코드는 첨 들어보네요.. 그...
-
홍용원•2000.11.10 03:17정성훈 wrote: > 안녕하세요. > 음 전 바코드 회사에서 일하고 있거든요. > 그런데 3 out of 5 바코드는...
-
- 전찬우
- •
- 2000.11.10 00:55
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.11.10 03:32전찬우 wrote: > 안녕하세요. > 웹브라우저에서 alt 옵션과 같은 기능, 즉 해당 이미지 객체위로 마우스 ...
-
- 정용광
- 2000.11.10 00:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보자
- •
- 2000.11.10 00:27
- 1 COMMENTS
- /
- 0 LIKES
-
cyber57•2000.11.10 21:09>cyber57 wrote: 이미지 파일마다 각각의 파일의 특성을 가지고 있습니다. 다른말로 하면 사용자 정의 ...
-
- 김민재
- •
- 2000.11.10 00:19
- 1 COMMENTS
- /
- 0 LIKES
-
cell•2000.11.10 03:18김민재 wrote: > 제가 짐 테스트를 할려구 하거등요..급해요... > 우선 제 pc에 com1과 com2를 케이블로 ...
-
- 뻐록이
- •
- 2000.11.10 00:09
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2000.11.10 01:54뻐록이 wrote: > 디비그리드에서 입력하고 있습니다. > 근데 첫번째 컬럼에서 빠져 나갈때 에러 체크를 ...
-
- 사발우성
- •
- 2000.11.09 23:25
- 1 COMMENTS
- /
- 0 LIKES
안뇽 하신가여.. 울트라 초보사발임당... 오늘도 질문이 있어서리...^^;; 다른게 아니고여... 질문 내용은.. 지가 코딩으로 출력물을 맹글었는디여.. 근디... 2장을 뽑아야하는디... 첫장은 청구부서용이구 2번째 장은 구매부서용이렇게 ...-
공성환•2000.11.09 23:42답변이라고 해야될지...?? 예전에 제가 자료실에 올렸던 자료를 보시고 필요한 부분만 쓰시면 될것같습니...
-
-
Mr.Q•2000.11.10 03:34김진영 wrote: > c_name := s_mediam_name.Items.GetText; > if c_name = FieldByName('ad_mediam_name')...
-
-
- 어린왕자
- •
- 2000.11.18 02:50
- 1 COMMENTS
- /
- 0 LIKES
-
정성훈•2000.11.18 02:51html help work shop 는 저도 확실히는 모르지만 이번 한번 써봤습니다. 그런데 보니까 그냥 html 문서를 ...
-
- 김동준
- 2000.11.09 22:10
- 0 COMMENTS
- /
- 0 LIKES
-
- TIME
- •
- 2000.11.09 22:06
- 1 COMMENTS
- /
- 0 LIKES
-
홍길동•2000.11.14 03:22TIME wrote: > 안녕하세요? 추운데 잘들 지내시는지요~ > 저의 궁금중좀 풀어주세요 > 현제 포커스를 가...
-
- 초보
- •
- 2000.11.09 21:30
- 3 COMMENTS
- /
- 0 LIKES
-
정성훈•2000.11.10 02:58초보 wrote: > 디비에디트박스에서, 번호를 입력받아 > 테이블에 저장을 하려합니다. > 만약, 테이블에...
-
cell•2000.11.09 23:46초보 wrote: > 디비에디트박스에서, 번호를 입력받아 > 테이블에 저장을 하려합니다. > 만약, 테이블에...
-
임형호•2000.11.09 21:35중복데이터를 방지할려면 프라이머리키로 설정하시는 방법이 있구요. 자동증가필드로 설정을 하시는방법도 ...
-
- Jonny
- 2000.11.09 21:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 기타맨
- •
- 2000.11.09 20:33
- 1 COMMENTS
- /
- 0 LIKES
-
linuxwiz•2000.11.09 22:04bde를 설치하세여...^^; 기타맨 wrote: > try > AliasList := TStringList.Create; > ...
-
- 빙구
- 2000.11.09 20:31
- 0 COMMENTS
- /
- 0 LIKES
예전에 제가 자료실에 올렸던 자료를 보시고 필요한 부분만 쓰시면 될것같습니다...
폼양식을 그릴 좌표값,타이틀값, 데이타값의 좌표를 먼저 선언하신다음에 필요할때 이용하면 될것같습니다...
저는 지금 강남구청쪽일을 하고 있는데 지금 출력물 대부분을 캐드에서 좌표값을 획득하여 무식하게 코딩으로 구현하고
있지요...
아직 미리보기가 쫌그래서 그렇지 사용하는데는 지장없습니다...
사발우성 wrote:
>
> 안뇽 하신가여.. 울트라 초보사발임당...
>
> 오늘도 질문이 있어서리...^^;;
>
> 다른게 아니고여... 질문 내용은..
>
> 지가 코딩으로 출력물을 맹글었는디여.. 근디...
>
> 2장을 뽑아야하는디...
>
> 첫장은 청구부서용이구 2번째 장은 구매부서용이렇게 나오게 하는것임당...
>
> 첫번째 청구부서용 하구 2번째 구매부서용은 양식이 그렇게 다른쥐가 않습니당..
>
> 전 프로시저를 이용해서리... 맹글었는디여... 제가 초보라서리.. 이걸
>
> 비슷한 프로시저를 하나더 맹글어서 사용하고 있슴당... 글구 이걸 프린트할라구 또다른 프로시져를 2개더 맹글었슴당 ㅠㅠ 어떻게 하면 한 프로시져로 맹글수 있을까여...ㅠㅠ 그러니까 출력은 청구부서용, 구매부서용 이걸 하나의 프로시져로 맹글수 있을까 하는 것임당... 아래의 예에선... textout(x,y,'청구부서용'),textout(x,y,'구매부서용')
> 이것만 다르게 돼었있슴당.. 이걸 어떻게 하면 하나의 프로시져로 맹글죠??? 에거 에거 암만 생각해두 안돼는군여 ㅠㅠ 지가 머리가 나뽀서리 ㅠㅠ
>
> 예를...
> procedure Tgmmain_f.pr(canvas:Tcanvas); // 청구부서용임당.....
> begin
>
> with canvas do
> begin
> Font.size := round(8*300/getdevicecaps(handle,LOGPIXELSY));
> font.style := [];
> pen.width := 2;
> rectangle(255,-438,2820,-1900); // 외형
> font.Size := 21;
> font.Style := [fsbold,fsunderline];
> // font.Style := [fsunderline];
> font.Name := '고딕체';
> textout(910,-150,'구 매 청 구 서');
> moveto(2309,-218); // 위쪽 사각형
> lineto(2819,-218);
> moveto(2309,-218);
> lineto(2309,-418);
> moveto(2819,-218);
> lineto(2819,-418);
> moveto(2309,-418);
> lineto(2819,-418);
> font.Style:=[];
> font.Size:=9;
> textout(2590,-168,'(청구부서용)');
> .
> .
> .
> procedure Tgmmain_f.pr2(canvas:Tcanvas); // 구매부서용임당...
> begin
>
> with canvas do
> begin
> Font.size := round(8*300/getdevicecaps(handle,LOGPIXELSY));
> font.style := [];
> pen.width := 2;
> rectangle(255,-438,2820,-1900); // 외형
> font.Size := 21;
> font.Style := [fsbold,fsunderline];
> // font.Style := [fsunderline];
> font.Name := '고딕체';
> textout(910,-150,'구 매 청 구 서');
> moveto(2309,-218); // 위쪽 사각형
> lineto(2819,-218);
> moveto(2309,-218);
> lineto(2309,-418);
> moveto(2819,-218);
> lineto(2819,-418);
> moveto(2309,-418);
> lineto(2819,-418);
> font.Style:=[];
> font.Size:=9;
> textout(2590,-168,'(구매부서용)');
> .
> .
> .
>