Q&A
- 이전 레코드 데이타과 현재레코드 데이타 비교
안녕하세요 또 질문을 하게 되었습니다. 다름이 아니라 하나의 필드에 데이타가 정렬되어있습니다. 소스는 나중에 보시고 맨아래 차근차근 쓰겠습니다.
예를 들어
부서코드
--------
0000
0000
0000
0000
0000
0000
0001 <------------이전 레코드와 데이타가 다름
0001
0001
0001
0002 <------------이전 레코드와 데이타가 다름
0002
0003
0010
0010
0010
아래소스좀 보시고요
while not eof do
begin
STG_WM0023W1_0.Rowcount := recordcount *3+4;
STG_WM0023W1_0.Cells[0,i] := FieldByName('HSabun').AsString; //사번
STG_WM0023W1_0.Cells[1,i] := FieldByName('HHname').AsString; //성명
STG_WM0023W1_0.Cells[2,i] := FieldByName('MDayWage').AsString; //일급
STG_WM0023W1_0.Cells[3,i] := FieldByName('LWorkDay').AsString; //근무
STG_WM0023W1_0.Cells[4,i] := FieldByName('LWeekBonus').AsString; //주차
STG_Wm0023W1_0.Cells[5,i] := FieldByName('LKongje').AsString; //공제
STG_WM0023W1_0.Cells[0,i+1] := FieldByname('DIpsa').AsString; //입사일
STG_WM0023w1_0.Cells[1,i+1] := FieldByName('HJikName').AsString; //직책
STG_WM0023W1_0.Cells[2,i+1] := FieldByName('LChoYunjang').AsString; //초과연장
STG_WM0023W1_0.Cells[3,i+1] := FieldByName('LYunjang').AsString; //연장
STG_WM0023W1_0.Cells[4,i+1] := FieldByName('LAllnight').AsString; //심야
STG_WM0023W1_0.Cells[5,i+1] := FieldByName('LYearly').AsString; //연차
STG_WM0023W1_0.Cells[0,i+2] := FieldByName('HKeupHo').AsString; //급호
STG_WM0023w1_0.Cells[1,i+2] := ''; //공백
STG_WM0023W1_0.Cells[2,i+2] := FieldByName('LMonthly').AsString; //월차
STG_WM0023W1_0.Cells[3,i+2] := FieldByName('LAbsence').AsString; //결근
STG_WM0023W1_0.Cells[4,i+2] := FieldByName('LWeekly').AsString; //주휴
STG_WM0023W1_0.Cells[5,i+2] := FieldByName('LMenst').AsString; //생휴
if 현재데이타 <> 이전데이타 then
showmessage(FieldByName('HBuseo').AsString); //******여기서 이전데이타과 현재데이타를 비교하고 싶은데 어떻게 해야 하는지...
next;
i := i+3;
end;
너무 지저분한가요...아시는 분 조언좀 부탁드립니다. 데이타
예를 들어
부서코드
--------
0000
0000
0000
0000
0000
0000
0001 <------------이전 레코드와 데이타가 다름
0001
0001
0001
0002 <------------이전 레코드와 데이타가 다름
0002
0003
0010
0010
0010
아래소스좀 보시고요
while not eof do
begin
STG_WM0023W1_0.Rowcount := recordcount *3+4;
STG_WM0023W1_0.Cells[0,i] := FieldByName('HSabun').AsString; //사번
STG_WM0023W1_0.Cells[1,i] := FieldByName('HHname').AsString; //성명
STG_WM0023W1_0.Cells[2,i] := FieldByName('MDayWage').AsString; //일급
STG_WM0023W1_0.Cells[3,i] := FieldByName('LWorkDay').AsString; //근무
STG_WM0023W1_0.Cells[4,i] := FieldByName('LWeekBonus').AsString; //주차
STG_Wm0023W1_0.Cells[5,i] := FieldByName('LKongje').AsString; //공제
STG_WM0023W1_0.Cells[0,i+1] := FieldByname('DIpsa').AsString; //입사일
STG_WM0023w1_0.Cells[1,i+1] := FieldByName('HJikName').AsString; //직책
STG_WM0023W1_0.Cells[2,i+1] := FieldByName('LChoYunjang').AsString; //초과연장
STG_WM0023W1_0.Cells[3,i+1] := FieldByName('LYunjang').AsString; //연장
STG_WM0023W1_0.Cells[4,i+1] := FieldByName('LAllnight').AsString; //심야
STG_WM0023W1_0.Cells[5,i+1] := FieldByName('LYearly').AsString; //연차
STG_WM0023W1_0.Cells[0,i+2] := FieldByName('HKeupHo').AsString; //급호
STG_WM0023w1_0.Cells[1,i+2] := ''; //공백
STG_WM0023W1_0.Cells[2,i+2] := FieldByName('LMonthly').AsString; //월차
STG_WM0023W1_0.Cells[3,i+2] := FieldByName('LAbsence').AsString; //결근
STG_WM0023W1_0.Cells[4,i+2] := FieldByName('LWeekly').AsString; //주휴
STG_WM0023W1_0.Cells[5,i+2] := FieldByName('LMenst').AsString; //생휴
if 현재데이타 <> 이전데이타 then
showmessage(FieldByName('HBuseo').AsString); //******여기서 이전데이타과 현재데이타를 비교하고 싶은데 어떻게 해야 하는지...
next;
i := i+3;
end;
너무 지저분한가요...아시는 분 조언좀 부탁드립니다. 데이타
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- JENNY
- •
- 2000.08.03 02:13
- 2 COMMENTS
- /
- 0 LIKES
-
허춘•2000.08.03 09:10JENNY wrote: > 안녕하세요. 2번이나 Q & A를올렸는데, 아무도 답변을 안주시더군요. 요번엔 꼭 답변주세... -
김영해•2000.08.03 03:10JENNY wrote: > 안녕하세요. 2번이나 Q & A를올렸는데, 아무도 답변을 안주시더군요. 요번엔 꼭 답변주세...
-
- tommy
- •
- 2000.08.03 01:29
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요 또 질문을 하게 되었습니다. 다름이 아니라 하나의 필드에 데이타가 정렬되어있습니다. 소스는 나중에 보시고 맨아래 차근차근 쓰겠습니다. 예를 들어 부서코드 -------- 0000 0000 0000 0000 0000 0000 0001-
허춘•2000.08.03 09:09tommy wrote: > 안녕하세요 또 질문을 하게 되었습니다. 다름이 아니라 하나의 필드에 데이타가 정렬되어...
-
- 지혀니
- •
- 2000.08.03 01:10
- 2 COMMENTS
- /
- 0 LIKES
-
허춘•2000.08.03 09:30지혀니 wrote: > 에러가 나엽.. > invalid use of keyword > token: , .... > Line Number1. > 뭐....
-
김영해•2000.08.03 02:02지혀니 wrote: > 에러가 나엽.. > invalid use of keyword > token: , .... > Line Number1. > 뭐....
-
- 이건
- 2000.08.03 01:08
- 0 COMMENTS
- /
- 0 LIKES
-
- hanminet
- •
- 2000.08.03 00:53
- 2 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.08.03 01:24hanminet wrote: > 퀵에서 > 라벨처럼 인쇄하려고 합니다만 잘 되지 않네요... > 퀵에서 column을 주어...
-
hanminet•2000.08.05 18:00고맙슴다... 조금이나마 기대를 햇건만 .... 어찌하오리까.... 안되는 것을.... 어찌되었든 고...
-
- coolling
- •
- 2000.08.03 00:38
- 2 COMMENTS
- /
- 0 LIKES
-
김영해•2000.08.03 02:04coolling wrote: > 델파이가 아니라 오라클의 질문입니다... > > 도스모드에서 익스포트한 파일을 도스...
-
coolling•2000.08.04 01:45영해님... 임포트 시키려면 기존의 테이블을 다 지우라고 하셨는데 그냥 테이블을 덮어 쓰는게 아닌가요...
-
- Mr.Q
- •
- 2000.08.03 01:31
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2000.08.03 02:47Mr.Q wrote: > ExtactIcon API사용시, undeclared identifier 에러납니다. > 어케해야하는지? 음..Mr...
-
Mr.Q•2000.08.03 03:21구창민 wrote: > Mr.Q wrote: > > ExtactIcon API사용시, undeclared identifier 에러납니다. > > 어케...
-
- 문진현
- •
- 2000.08.03 00:25
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•2000.08.03 01:22문진현 wrote: > 안녕하세요... > MDI Application을 Activex폼을 이용하여 > 웹으로 포팅할려구 하는데...
-
문진현•2000.08.03 01:31답변 감사합니다.. 자료실에 소스가 있더군요.. 소스 보구 모르는거 있으면 다시 물어 볼께요..^^ 좋...
-
-
이영근•2000.08.03 00:16소금 wrote: > 이영근 wrote: > > 제가 paradox table 에서 일자(field: date1)를 오늘 날자와 > > 비교...
-
허춘•2000.08.03 09:26이영근 wrote: > 소금 wrote: > > 이영근 wrote: > > > 제가 paradox table 에서 일자(field: date1)를 ...
-
소금•2000.08.03 00:39꼭 그런건 아닙니다. 아래와 같은 sql문도 가능합니다. select * from 테이블명 where '20000802' - ...
-
-
- 김동형
- 2000.08.02 23:49
- 0 COMMENTS
- /
- 0 LIKES
-
- siro
- •
- 2000.08.02 23:40
- 4 COMMENTS
- /
- 0 LIKES
-
구창민•2000.08.03 02:49siro wrote: > 안녕하세요. > > 소켓을 이용해서 파일 전송을 하고 있습니다. > 그런데 이것을 이용...
-
siro•2000.08.03 02:54구창민 wrote: > siro wrote: > > 안녕하세요. > > > > 소켓을 이용해서 파일 전송을 하고 있습니다. ...
-
구창민•2000.08.03 03:04siro wrote: > 구창민 wrote: > > siro wrote: > > > 안녕하세요. > > > > > > 소켓을 이용해서 파일...
-
siro•2000.08.13 04:41감사합니다.. 이제야 소켓 연결을 해서 프로그램 하는 방법을 조금 알것 같아요. 히히 ^^; 어느 정도 해...
-
- 송기원
- 2000.08.02 22:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 송기원
- •
- 2000.08.02 22:13
- 9 COMMENTS
- /
- 0 LIKES
-
화랑•2000.08.03 01:36
-
송기원•2000.08.03 01:47
-
화랑•2000.08.03 01:53
-
송인표•2000.08.05 03:42
-
화랑•2000.08.05 15:57
-
송인표•2000.08.06 02:25
-
송기원•2000.08.09 18:40
- • • •
-
- 희수기
- •
- 2000.08.02 21:54
- 3 COMMENTS
- /
- 0 LIKES
-
Black}{ole•2000.08.03 00:29희수기 wrote: > 저는 local db로 아폴로라는 것을 사용하고 있습니다... > > query를 사용해서 delete...
-
최석기•2000.08.03 00:20희수기 wrote: > 저는 local db로 아폴로라는 것을 사용하고 있습니다... > > query를 사용해서 delete...
-
혀노•2000.08.02 23:46아폴로가 뭔지 잘 모르겠지만요,,, 오라클 같은 경우는 삭제후 commit 을 시켜야 하거든요,,, 아마도 거...
-
- Lim
- 2000.08.02 21:51
- 0 COMMENTS
- /
- 0 LIKES
-
- HEIM
- 2008.06.20 20:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 안충권
- 2000.08.02 21:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2000.08.02 21:46
- 3 COMMENTS
- /
- 0 LIKES
-
소금•2000.08.02 23:54왕초보 wrote: > procedure TfrmDisplay.ScrollAdjust; > begin > Units.x:=DEF_SCROLL_UNITS; > Units...
-
왕초보•2000.08.03 01:48소금 wrote: > 왕초보 wrote: > > procedure TfrmDisplay.ScrollAdjust; > > begin > > Units.x:=DEF_S...
-
소금•2000.08.03 18:48> procedure TfrmDisplay.ScrollAdjust; > begin > Units.x:=DEF_SCROLL_UNITS; > Units.y:=DEF_SCROLL_...
-
- 김종석
- •
- 2000.08.02 21:10
- 1 COMMENTS
- /
- 0 LIKES
-
송기원•2000.08.02 22:18김종석 wrote: > 일반적으로 Key를 설정하면 자동으로 정렬이 되든되요.. > Key를 설정하지 않고 이름순...
-
- 윤미영
- 2000.08.02 21:06
- 0 COMMENTS
- /
- 0 LIKES
> 안녕하세요 또 질문을 하게 되었습니다. 다름이 아니라 하나의 필드에 데이타가 정렬되어있습니다. 소스는 나중에 보시고 맨아래 차근차근 쓰겠습니다.
>
>
> 예를 들어
>
> 부서코드
> --------
> 0000
> 0000
> 0000
> 0000
> 0000
> 0000
> 0001 <------------이전 레코드와 데이타가 다름
> 0001
> 0001
> 0001
> 0002 <------------이전 레코드와 데이타가 다름
> 0002
> 0003
> 0010
> 0010
> 0010
>
> 아래소스좀 보시고요
>
Var
LastRecord : string;
LastRecord := FieldByName('HBuseo').AsString;
> while not eof do
> begin
> STG_WM0023W1_0.Rowcount := recordcount *3+4;
> STG_WM0023W1_0.Cells[0,i] := FieldByName('HSabun').AsString; //사번
> STG_WM0023W1_0.Cells[1,i] := FieldByName('HHname').AsString; //성명
> STG_WM0023W1_0.Cells[2,i] := FieldByName('MDayWage').AsString; //일급
> STG_WM0023W1_0.Cells[3,i] := FieldByName('LWorkDay').AsString; //근무
> STG_WM0023W1_0.Cells[4,i] := FieldByName('LWeekBonus').AsString; //주차
> STG_Wm0023W1_0.Cells[5,i] := FieldByName('LKongje').AsString; //공제
>
> STG_WM0023W1_0.Cells[0,i+1] := FieldByname('DIpsa').AsString; //입사일
> STG_WM0023w1_0.Cells[1,i+1] := FieldByName('HJikName').AsString; //직책
> STG_WM0023W1_0.Cells[2,i+1] := FieldByName('LChoYunjang').AsString; //초과연장
> STG_WM0023W1_0.Cells[3,i+1] := FieldByName('LYunjang').AsString; //연장
> STG_WM0023W1_0.Cells[4,i+1] := FieldByName('LAllnight').AsString; //심야
> STG_WM0023W1_0.Cells[5,i+1] := FieldByName('LYearly').AsString; //연차
>
> STG_WM0023W1_0.Cells[0,i+2] := FieldByName('HKeupHo').AsString; //급호
> STG_WM0023w1_0.Cells[1,i+2] := ''; //공백
> STG_WM0023W1_0.Cells[2,i+2] := FieldByName('LMonthly').AsString; //월차
> STG_WM0023W1_0.Cells[3,i+2] := FieldByName('LAbsence').AsString; //결근
> STG_WM0023W1_0.Cells[4,i+2] := FieldByName('LWeekly').AsString; //주휴
> STG_WM0023W1_0.Cells[5,i+2] := FieldByName('LMenst').AsString; //생휴
>
> next;
if FieldByName('HBuseo').AsString <> LastRecord then
DoSomething;
> if 현재데이타 <> 이전데이타 then
> showmessage(FieldByName('HBuseo').AsString); //******여기서 이전데이타과 현재데이타를 비교하고 싶은데 어떻게 해야 하는지...
> i := i+3;
> end;
>
> 너무 지저분한가요...아시는 분 조언좀 부탁드립니다. 데이타