Q&A
Function tForm2.CodeCount : String;
var
IScreenCount, i: Integer;
SCode : String;
begin
//레코드가 비어있으면 처음 pk에 10개의0을 집어넣습니다.
if Query2.RecordCount = 0 then begin
Result := '0000000000';
end
//여기서부터가 문제인데여... 0000000001그다음은 0000000002이런식으로
pk를 스트링으로 집어넣어야 하는데..물론 serial로 넣으면 되지만...
꼭 이렇게 넣어야할것이 다른 db와도 연결을시켜서 복합적으로 검색을 하려고
하니까..스트링을 써야 할것 같아서여.. 문법이 틀렸나?
else begin
if Query2.Last then begin
//이렇게 하면 현재 pk가 int변수 IScreenCount에 들어가겠져?
IScreenCount := Query2.Fieldbyname('screen_code').AsInteger;
'0000000000'를 int로 바꾸어서 넣으면 int 0
이 될테고..
//int 0에 +1을 하면 1이될테고...
IScreenCount+1;
//그걸 length 해서 나머지 9개를 '0'으로 채워넣으면
for i :=0 to i:= 10-Length(IScreenCount)do begin
SCode := '0';
end;
//일단 9개의 0이 SCode 에 채워넣어지면
//형변환을 해서 붙여넣으면 9개의 '0'과하나의'1'이 넣어
져야하는데......
SCode := +Length(IScreenCount)intTostr;
end;
end;
end;
end;
- [DB] primary key의 카운트...좀 봐주십시오..ㅠㅠ
Function tForm2.CodeCount : String;
var
IScreenCount, i: Integer;
SCode : String;
begin
//레코드가 비어있으면 처음 pk에 10개의0을 집어넣습니다.
if Query2.RecordCount = 0 then begin
Result := '0000000000';
end
//여기서부터가 문제인데여... 0000000001그다음은 0000000002이런식으로
pk를 스트링으로 집어넣어야 하는데..물론 serial로 넣으면 되지만...
꼭 이렇게 넣어야할것이 다른 db와도 연결을시켜서 복합적으로 검색을 하려고
하니까..스트링을 써야 할것 같아서여.. 문법이 틀렸나?
else begin
if Query2.Last then begin
//이렇게 하면 현재 pk가 int변수 IScreenCount에 들어가겠져?
IScreenCount := Query2.Fieldbyname('screen_code').AsInteger;
'0000000000'를 int로 바꾸어서 넣으면 int 0
이 될테고..
//int 0에 +1을 하면 1이될테고...
IScreenCount+1;
//그걸 length 해서 나머지 9개를 '0'으로 채워넣으면
for i :=0 to i:= 10-Length(IScreenCount)do begin
SCode := '0';
end;
//일단 9개의 0이 SCode 에 채워넣어지면
//형변환을 해서 붙여넣으면 9개의 '0'과하나의'1'이 넣어
져야하는데......
SCode := +Length(IScreenCount)intTostr;
end;
end;
end;
end;
2
COMMENTS
-
-
CREATE TABLE "TABLENAME"
(
ABC VARCHAR2(10) NOT NULL
, PRIMARY KEY (ABC)
);
SELECT TO_CHAR( TO_NUMBER(ABC) + 1,'000000009') FROM TABLE
이런식으로 넣으면 되겠져...
(NOTICE) You must be logged in to comment on this post.
-
- 미친코딩
- •
- 2001.06.07 23:42
- 1 COMMENTS
- /
- 0 LIKES
-
박종환•2001.06.08 00:00라이센스 관련 메세지 입니다. 즉, 돈주고 사라는 메세지입니다. 만일 VB 의 OCX를 사용하다가 생긴 문제...
-
- 델초보
- 2001.06.07 23:42
- 0 COMMENTS
- /
- 0 LIKES
-
- 미친코딩
- 2001.06.07 23:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 오인균
- •
- 2001.06.07 22:52
- 3 COMMENTS
- /
- 0 LIKES
-
제덕모/마으미•2001.06.07 23:58첫번째 : Multiple Instance와 Single Instance 멀티는 말 그대로 하나의 애플리케이션 서버의 ...
-
오인균•2001.06.08 01:25이렇게.. 답변을 주셔서 정말 감사합니다.. 제덕모님께서 말씀하신 내용은 저희도 시행착오를 거쳐서 많...
-
마으미•2001.06.08 02:34긁적... 긁적.. Procedure 프로시져이름; begin Lock; try with qryS1100 do be...
-
- 심현지
- •
- 2001.06.07 22:49
- 1 COMMENTS
- /
- 0 LIKES
-
김상면•2001.06.07 23:00edit OnExit 이벤트에 하시지 마시구요... 차라리 Memo의 OnEnter 이벤트에 Edit.SetFocus 하심이 좋을...
-
- 설창원
- 2001.06.07 22:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- •
- 2001.06.07 22:13
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2001.06.07 22:46델초보 wrote: > DBGrid에서 석차를 구하려고 하는데여~~~ > 위의 필드와 아래 필드를 비교하려면 어떻게...
-
- passio
- 2001.06.07 21:44
- 0 COMMENTS
- /
- 0 LIKES
-
- Delphi
- •
- 2001.06.07 22:40
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.06.08 08:36안녕하세요. 최용일입니다. 델파이 4라면 아마도 텍스트DFM을 지원할겁니다... 델파이5에서 폼에서 마우...
-
김상면•2001.06.07 23:11절대 고수는 아니구요... 5.0에서요... Project -> Options -> Packages 의 Build With Runtime Pack...
-
- 미지수
- •
- 2001.06.07 20:39
- 1 COMMENTS
- /
- 0 LIKES
-
하기•2001.06.07 21:02간단하게 한번만 Check하면 되지 않을까요? if aaa >= 0 then Edit1.Text := format('%0.10d',[aaa]) ...
-
- androse
- 2001.06.07 20:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 뽀록이
- •
- 2001.06.07 20:06
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2001.06.07 20:59뽀록이 wrote: > with Admin_S_Q do > begin > Close; > Sql.Clear; > Sql.Add(' Insert INTO ...
-
- 조복문
- •
- 2001.06.07 19:56
- 1 COMMENTS
- /
- 0 LIKES
-
방기남•2001.06.07 21:11procedure ... var i: Integer; // loop s: String; // 확인용 스트링변수 begin for i := 0 ...
-
- 델초보
- •
- 2001.06.07 19:30
- 1 COMMENTS
- /
- 0 LIKES
-
백정훈•2008.07.10 23:16혹시 보내는 PC 컴퓨터명(도메인명)이 한글이지않나요?.. Indy에서는 에러가 나더군요..그래서 프로퍼티...
-
- 김동민
- 2001.06.07 19:14
- 0 COMMENTS
- /
- 0 LIKES
-
- jhlee4u
- •
- 2001.06.07 19:06
- 2 COMMENTS
- /
- 0 LIKES
-
major•2001.06.07 20:28jhlee4u wrote: > 안녕하세요. > 델파이프로그램에서 자기ip번호를 알수 있는 방법 아시면 알켜주세요. ...
-
하기•2001.06.07 19:14IP로 검색을 해 보세요... 아마 예전에 올라간 내용이 있을껄요??? jhlee4u wrote: > 안녕하세요. >...
-
- smtm
- •
- 2001.06.07 19:06
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.06.07 19:23SHELLEXECUTE 로 검색 다시...^^*
-
- 미키
- 2001.06.07 19:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.06.07 18:50
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.06.07 18:52ㅠ.ㅠ 님아 델파이 씨디에 같이 들어있슴다.. 델파 3,4,5
-
- aparadin
- •
- 2001.06.07 18:38
- 2 COMMENTS
- /
- 0 LIKES
Function tForm2.CodeCount : String; var IScreenCount, i: Integer; SCode : String; begin //레코드가 비어있으면 처음 pk에 10개의0을 집어넣습니다. if Query2.RecordCount = 0 then begin Result := '0000000000'; end //여기서부터...-
하기•2001.06.07 19:07현재의 상태대로 Coding을 하신다면 FormatFloat를 쓰셔도 될것 같은데요... Function ... var ... b...
-
똘망울•2001.06.07 19:00CREATE TABLE "TABLENAME" ( ABC VARCHAR2(10) NOT NULL , PRIMARY KEY (ABC) ); SELECT TO_C...
Function ...
var
...
begin
if Query2.RecordCount = 0 then Result := '0000000000'
else begin
if Query2.Last then
begin
IScreenCount := Query2.Fieldbyname('screen_code').AsInteger;
SCode := formatfloat('0000000000',IScreenCount+1);
end;
end;
end;
이런식으로요.... 좀 간단해 졌죠.... ^^;
그럼...
aparadin wrote:
>
> Function tForm2.CodeCount : String;
> var
> IScreenCount, i: Integer;
> SCode : String;
> begin
> //레코드가 비어있으면 처음 pk에 10개의0을 집어넣습니다.
> if Query2.RecordCount = 0 then begin
> Result := '0000000000';
> end
> //여기서부터가 문제인데여... 0000000001그다음은 0000000002이런식으로
> pk를 스트링으로 집어넣어야 하는데..물론 serial로 넣으면 되지만...
> 꼭 이렇게 넣어야할것이 다른 db와도 연결을시켜서 복합적으로 검색을 하려고
> 하니까..스트링을 써야 할것 같아서여.. 문법이 틀렸나?
> else begin
> if Query2.Last then begin
> //이렇게 하면 현재 pk가 int변수 IScreenCount에 들어가겠져?
> IScreenCount := Query2.Fieldbyname('screen_code').AsInteger;
>
> '0000000000'를 int로 바꾸어서 넣으면 int 0
> 이 될테고..
>
> //int 0에 +1을 하면 1이될테고...
> IScreenCount+1;
>
> //그걸 length 해서 나머지 9개를 '0'으로 채워넣으면
> for i :=0 to i:= 10-Length(IScreenCount)do begin
> SCode := '0';
> end;
> //일단 9개의 0이 SCode 에 채워넣어지면
> //형변환을 해서 붙여넣으면 9개의 '0'과하나의'1'이 넣어
> 져야하는데......
> SCode := +Length(IScreenCount)intTostr;
> end;
> end;
> end;
> end;
>