Q&A
- 그리드에 값을 증가시켜주려고 합니다..
8자리 코드번호를 넣어주려고 합니다..
앞에 네자리는 영문이구요..화면에서 값을 받아 넣어줍니다..
그리고 뒤에 네자리는 0001,0002,0003,...1000,1001..
이런식으로 주려고 합니다..
그리드에 아무것도 없을때는 뒤에 4자리를 '0001'로 셋팅해주고..
그리드에 한건 이상이 있을 때는 그리드의 코드값의 뒤에 네자리와 비교하여
그 최대값에 1을 증가시켜 최대값을 넣어주려고 합니다..
그런데..
더이상 진도가 나가지 않네요..
여기 저기 뒤져는 봤지만 워낙 초보라서 봐도 잘 모르겠더라구요..
실은 제가 질문을 제대로 했는지도 의심스럽슴다..ㅠ.ㅠ
어떻해 하면 좋을까요..
부탁드립니다..
ls_maxcode := copy((Query1.FieldByName('mtr_code').AsString),5,4);
if ls_maxcode = '' then
begin
ls_maxcode := '0001';
Result := RxDBLC_Fst_Class.Value + RxDBLC_Snd_Class.Value + ls_MaxCode;
end
* 구창민님에 의해서 게시물 이동되었습니다 (2002-11-05 19:35)
앞에 네자리는 영문이구요..화면에서 값을 받아 넣어줍니다..
그리고 뒤에 네자리는 0001,0002,0003,...1000,1001..
이런식으로 주려고 합니다..
그리드에 아무것도 없을때는 뒤에 4자리를 '0001'로 셋팅해주고..
그리드에 한건 이상이 있을 때는 그리드의 코드값의 뒤에 네자리와 비교하여
그 최대값에 1을 증가시켜 최대값을 넣어주려고 합니다..
그런데..
더이상 진도가 나가지 않네요..
여기 저기 뒤져는 봤지만 워낙 초보라서 봐도 잘 모르겠더라구요..
실은 제가 질문을 제대로 했는지도 의심스럽슴다..ㅠ.ㅠ
어떻해 하면 좋을까요..
부탁드립니다..
ls_maxcode := copy((Query1.FieldByName('mtr_code').AsString),5,4);
if ls_maxcode = '' then
begin
ls_maxcode := '0001';
Result := RxDBLC_Fst_Class.Value + RxDBLC_Snd_Class.Value + ls_MaxCode;
end
* 구창민님에 의해서 게시물 이동되었습니다 (2002-11-05 19:35)
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이주데이타시스템
- 2002.11.06 05:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 김준휘
- •
- 2002.11.06 04:13
- 1 COMMENTS
- /
- 0 LIKES
8자리 코드번호를 넣어주려고 합니다.. 앞에 네자리는 영문이구요..화면에서 값을 받아 넣어줍니다.. 그리고 뒤에 네자리는 0001,0002,0003,...1000,1001.. 이런식으로 주려고 합니다.. 그리드에 아무것도 없을때는 뒤에 4자리를 '0001'로...-
물고기나라•2002.11.06 23:09쿼리결과에 대한 정보가 부족하지만 뒤네자리가 순서대로 정렬된 상태면 간단하게는 Query1.Last 보...
-
- 소영이
- •
- 2002.11.06 04:10
- 2 COMMENTS
- /
- 0 LIKES
-
김철권•2002.11.07 03:22type pident = ^identrec; identrec = packed record ...
-
소영이•2002.11.07 18:26
-
- 정용훈
- •
- 2002.11.06 03:45
- 1 COMMENTS
- /
- 0 LIKES
-
최은석•2002.11.06 04:03문제는 입력받은 값이 숫자인지 문자인지를 판단해야 하는거 같은데 StrToIntDef 함수를 사용하시면 될듯...
-
- 김진호
- 2002.11.06 03:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 김영철
- 2002.11.06 03:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 한종권
- 2002.11.06 03:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 이종혁
- 2002.11.06 02:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 샤리
- •
- 2002.11.06 02:49
- 1 COMMENTS
- /
- 0 LIKES
-
갈매기•2002.11.12 03:27프로그램이 실행중이면 덮어씌워지지가 않는걸로 압니다.. 프로그램을 열기전에 날짜를 비교해서 업데...
-
- 김은영
- •
- 2002.11.06 02:35
- 3 COMMENTS
- /
- 0 LIKES
-
이방인•2002.11.06 03:04델파이가 실행파일 달랑 하나 가지고 실행돼나요???? 거기 동봉된 CD는 평간판으로 알고있습니다. ...
-
김은영•2002.11.06 03:07답변 고맙심더. 근데..영어가 딸려서 그런지.. 회원가입까정 하구 다운로드 누르고 여기저기 봐두 델파...
-
이방인•2002.11.06 03:21>답변 고맙심더. >>www.Borland.com 가서리...다운받을려구 무진장 했심더. >근데..영어가 딸려서 그런지...
-
- ▲┫┃■┃콜론
- 2002.11.06 02:17
- 0 COMMENTS
- /
- 0 LIKES
-
- 김민우
- •
- 2002.11.06 01:54
- 1 COMMENTS
- /
- 0 LIKES
-
안광호•2002.11.06 02:45starttime, endtime, parkingtime 의 오라클 타입을 모르겠습니다. 여기서는 DATE 형 이라는 전제하에 설명...
-
- 김진호
- •
- 2002.11.06 00:00
- 1 COMMENTS
- /
- 0 LIKES
-
oRarAanDomDeSigner•2002.11.06 02:19DBGrid의 Column Editor에서 각 Column의 ReadOnly 속성을 이용하세요.
-
- 이승민
- •
- 2002.11.05 21:04
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2002.11.06 03:00안녕하세요. 최용일입니다. 상수정의는 되어 있지 않지만 Windows유닛의 IDC_HELP를 찾아보시면 있습니...
-
이승민•2002.11.07 03:38답변 감사드립니다. ^^
-
- 김동완
- •
- 2002.11.05 20:56
- 2 COMMENTS
- /
- 0 LIKES
-
KDDG_ZZOM•2002.11.05 22:36procedure TForm1.BitBtn1Click(Sender: TObject); var PCProName : String; v...
-
김동완•2002.11.06 02:45
-
- 김상수
- •
- 2002.11.05 20:53
- 1 COMMENTS
- /
- 0 LIKES
-
이방인•2002.11.06 03:10원론 적인 얘기인지는 모르겠지만, C:Program FilesBorlandDelphi6Demos 안에 TeeChart 샘플이 있습...
-
- 도리도리
- 2002.11.05 20:50
- 0 COMMENTS
- /
- 0 LIKES
-
- 오서영
- 2002.11.05 20:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자A
- 2002.11.05 20:33
- 0 COMMENTS
- /
- 0 LIKES
-
- 김해성
- 2002.11.05 20:25
- 0 COMMENTS
- /
- 0 LIKES
쿼리결과에 대한 정보가 부족하지만
뒤네자리가 순서대로 정렬된 상태면
간단하게는 Query1.Last 보내고 +1 해서 구하면 되겠네요.
섞여있다면
그리드에 나온값이 이미 한번 쿼리를 거친거죠?
그럼 앞에 영문4자리가 똑같은 가정하에
같은 쿼리로 MAX(mtr_code)로 해서 뒤네자리만 +1 하면 될꺼 같은데
이도저도 아니면
가장 무식하게는 맥스를 구할 때 까지 루프를 돌리면 되겠네요.
Temp : String;
ls_maxcode := '0001';
Query1.First;
while not Query1.Eof do begin
Temp := copy((Query1.FieldByName('mtr_code').AsString),5,4);
if Temp > ls_maxcode then
ls_maxcode := Temp;
Query1.Next;
end;
그럼 즐프하세요.