Q&A
- Database에서 가장 큰 값을 불러올라면?
안녕하세요 이상석입니다. 데이타베이스 테이블에서 No1이라는 컬럼이 있는데
순번입니다. 폼이 생성될때 자동으로 No1을 첵킹해 현 No1의 가장 큰 값을
EditNo.Text라는 곳에 표시되게 할려고합니다.
그런데 No1은 형식이 문자열이거든요, 그럼 형식은 그대로 놔두고
순번을 증가하게하는 방법은 없나요?
부탁드립니다...
소스부분-------------------->
procedure TFormExamInsert.FormCreate(Sender: TObject);
var
// N : Integer;
K : String;
begin
with DMtwt.QueryExam do begin
Close;
Sql.Clear;
Sql.Add('Select max(No1) As maxno From Exam ');
Open;
end;
K := DMtwt.TblExam.FieldByName('No1').Asstring;//.AsInteger;
If Length(K) = 0 Then
EditNo.Text := '1'
else
begin
EditNo.Text := StrToInt(K) + 1 ;//DMtwt.QueryExam.FieldByName('maxno').Asinteger + 1 ;
end;
end;
---------------------------------------->
그럼 2000, 많은 조언 부탁드립니다.
순번입니다. 폼이 생성될때 자동으로 No1을 첵킹해 현 No1의 가장 큰 값을
EditNo.Text라는 곳에 표시되게 할려고합니다.
그런데 No1은 형식이 문자열이거든요, 그럼 형식은 그대로 놔두고
순번을 증가하게하는 방법은 없나요?
부탁드립니다...
소스부분-------------------->
procedure TFormExamInsert.FormCreate(Sender: TObject);
var
// N : Integer;
K : String;
begin
with DMtwt.QueryExam do begin
Close;
Sql.Clear;
Sql.Add('Select max(No1) As maxno From Exam ');
Open;
end;
K := DMtwt.TblExam.FieldByName('No1').Asstring;//.AsInteger;
If Length(K) = 0 Then
EditNo.Text := '1'
else
begin
EditNo.Text := StrToInt(K) + 1 ;//DMtwt.QueryExam.FieldByName('maxno').Asinteger + 1 ;
end;
end;
---------------------------------------->
그럼 2000, 많은 조언 부탁드립니다.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김종우
- •
- 1999.05.26 18:57
- 3 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.26 19:23memo component의 Assign 메소드를 사용해 보세요... 김종우 wrote: > 안녕하십니까? > > 테이블의... -
김종우•1999.05.26 19:51신인재 wrote: > memo component의 Assign 메소드를 사용해 보세요... > > 김종우 wrote: > > 안녕하...
-
신인재•1999.05.27 03:34Memo1.Lines.Assign(query1.fields[4]); 이런 식으로 쓰면 될껍니다. 김종우 wrote: > 신인재 wrote: ...
-
- simmy
- •
- 1999.05.26 18:33
- 1 COMMENTS
- /
- 0 LIKES
-
redhead•1999.05.26 22:06simmy wrote: > 프로그램이 실행되는 동안에는 레코드의 수정,저장,삭제 모두 잘 되는데, > 시스템을 종...
-
- 영이...
- •
- 1999.05.26 17:47
- 2 COMMENTS
- /
- 0 LIKES
-
신호성•1999.05.27 00:34영이... wrote: > table에 제품코드, 판매일자, 판매단가, 수량, 판매금액이 있습니다. > 그 중에서 코드...
-
한•1999.05.26 18:12영이... wrote: > table에 제품코드, 판매일자, 판매단가, 수량, 판매금액이 있습니다. > 그 중에서 코드...
-
- peter30
- •
- 1999.05.26 12:51
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.26 15:11아마도 TQuery가 조인을 할 때 임시 파일이 생기는것 같습니다. DBF파일이라면 BDE말고 상용 컴포넌트인 ...
-
- 조진희
- •
- 1999.05.26 09:16
- 1 COMMENTS
- /
- 0 LIKES
-
전철호•1999.05.27 01:48조진희 wrote: > 퀵 레포트 출력할때. run하기 전에 프리뷰하면 오른쪽 박스가 잘 나오는데 > run해서 ...
-
- saint09
- •
- 1999.05.26 08:45
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.26 11:42제가 아래에 분명 답변 해드렸는데요...? 아래를 찾아보세요. Chart 로 검색을 해보세요. saint09 wro...
-
- 한상훈
- 1999.05.26 07:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 강경중
- •
- 1999.05.26 07:17
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.05.26 18:33강경중 wrote: > 도와주세요 > 델파이 헬퍼의 묻고 답하기 에서 > 렌으로 연결된 컴퓨터의 이름을 알 수...
-
- 이장욱
- •
- 1999.05.26 06:01
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.26 06:53아래는 델파이 슈퍼 페이지 주소입니다. 찾아보세요....comm32.zip이란 파일이 있더군요... http://sun...
-
- 이진우
- •
- 1999.05.26 04:51
- 1 COMMENTS
- /
- 0 LIKES
-
신인재•1999.05.26 06:58Rx컴포넌트를 인스톨하면 인스톨된 디렉토리에 Unit Subdirectory에 RxCalc.pas 가 있습니다. 이진우...
-
- 이진우
- •
- 1999.05.26 04:42
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.26 11:39없습니다... 이진우 wrote: > 전체가 아니라도 계산기의 버튼 사이즈만 어떻게 고칠려고 하는데... > ...
-
- 이진우
- •
- 1999.05.26 04:39
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.26 11:45셀을 합치실 수는 없습니다. 수동으로 합치려는 셀들의 스트링들을 만들어서 셀(Row든 Column이든)을 없애...
-
- 이상석
- •
- 1999.05.26 03:49
- 1 COMMENTS
- /
- 0 LIKES
안녕하세요 이상석입니다. 데이타베이스 테이블에서 No1이라는 컬럼이 있는데 순번입니다. 폼이 생성될때 자동으로 No1을 첵킹해 현 No1의 가장 큰 값을 EditNo.Text라는 곳에 표시되게 할려고합니다. 그런데 No1은 형식이 문자열이거든요...-
신인재•1999.05.26 07:09K := DMtwt.TblExam.FieldByName('No1').Asstring;//.AsInteger; 여기부분이 좀 이상하군요 쿼리에서...
-
- 이상석
- •
- 1999.05.26 03:13
- 1 COMMENTS
- /
- 0 LIKES
-
서형민•1999.05.26 06:08이상석 wrote: > 안녕하세요, 시사영어사에 재직중에 있는 이상석입니다. > 다름이 아니오라 DB 컬럼을 ...
-
- 최덕환
- •
- 1999.05.26 03:09
- 1 COMMENTS
- /
- 0 LIKES
-
이정욱•1999.05.26 11:47질문은 긴데.. 답변은 간단할것 같네요... 흐.. PPoint는 TPoint의 Pointer형입니다. PixelList.Item...
-
- 지니
- 1999.05.26 02:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 장영선
- 1999.05.26 02:32
- 0 COMMENTS
- /
- 0 LIKES
-
- july
- 1999.05.26 01:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 김윤정
- •
- 1999.05.26 00:19
- 2 COMMENTS
- /
- 0 LIKES
-
서형민•1999.05.26 06:02김윤정 wrote: > 안녕하세요... > API를 공부하기 시작한지 얼마되지 않은 새내기입니다... > > 현재 ...
-
김윤정•1999.05.26 17:13적어주신 코드는 해당 프로그램 안에서만 Active control을 찾을 수 있는것 같은데요... 저는 윈도우상의...
-
- 최석기
- 1999.05.25 23:22
- 0 COMMENTS
- /
- 0 LIKES
여기부분이 좀 이상하군요
쿼리에서 맥스(maxno)값을 가지고 왔는데 정작 k에 대입하는 것은
no1이네요....
K := DMtwt.TblExam.Fields[0].Asstring;//.AsInteger;
이런식으로 하면 되겠네요....
그리고 보통 이런 것은 안보여주는것이 일반적입니다.
만약 no1이 primary인덱스로 잡혀 있고 멀티 유저 시스템이라면
동시에 같은 번호를 두명이상이 부여 받을수 있기 때문이지요.
만약 이럴경우 저장하는 부분에서 트랜잭션을 걸어준다음
맥스값을 가져오고 저장하는 것이 일반적입니다.
이상석 wrote:
> 안녕하세요 이상석입니다. 데이타베이스 테이블에서 No1이라는 컬럼이 있는데
> 순번입니다. 폼이 생성될때 자동으로 No1을 첵킹해 현 No1의 가장 큰 값을
> EditNo.Text라는 곳에 표시되게 할려고합니다.
> 그런데 No1은 형식이 문자열이거든요, 그럼 형식은 그대로 놔두고
> 순번을 증가하게하는 방법은 없나요?
> 부탁드립니다...
> 소스부분-------------------->
> procedure TFormExamInsert.FormCreate(Sender: TObject);
> var
> // N : Integer;
> K : String;
> begin
> with DMtwt.QueryExam do begin
> Close;
> Sql.Clear;
> Sql.Add('Select max(No1) As maxno From Exam ');
> Open;
> end;
>
> K := DMtwt.TblExam.FieldByName('No1').Asstring;//.AsInteger;
>
> If Length(K) = 0 Then
> EditNo.Text := '1'
> else
> begin
>
> EditNo.Text := StrToInt(K) + 1 ;//DMtwt.QueryExam.FieldByName('maxno').Asinteger + 1 ;
> end;
>
> end;
> ---------------------------------------->
> 그럼 2000, 많은 조언 부탁드립니다.