Q&A
- Table값 구해 넣고 싶습니다.
안냐세요...
아래의 질문으 드렸는데 제가 아직은 몰라서..히히히
또다시 질문을 드립니다.
지금은 버튼을 클릭시 해당 레코드만 나이가 Edit12에 나타나는데, 그것보다 저는 Combobox에서 사용하고 싶습니다. (예 20~24,25~29.....범위를 주어서)
그렇게 하려다 보니 문제점은 구한 값을 새로운 필드(Age)라는 필드에 먼저 넣어두고 난 후 Combobox의 조건을 주어 구하면 될 듯 싶은데...
프로그램 실행시 Age필드에 나타나있으면 좋겠는데... 그러기 위해서는 Table이벤트의 BeforePost(?)에 지정을 하면 될 듯 싶은데...
영 감이 안 옵니다.
아래의 소스를 좀 손봐서 새로운 필드에 넣어두고(그래야지 DBGrid에 보이잖아요)시작과 통시에 값이 들어가 있는 상태에서 제가 Combobox의 조건을 주어 해당사람만 DBGrid에 뿌려주는 형식을 가지고 싶습니다.
DB가 Table형식입니다... 고수님들 좀 쉽게 어떻게 안될까요???/
또한가지... Table형식의 DB를 어디서 어떻게 지정하면 퀴리형식으로 바꿀수 있나요???
자세한 설명을... 그럼 무진장 감사감사...
procedure TForm28.Button4Click(Sender: TObject);
> var
> yy,mmdd,nowyy,nowmmdd,reply:string;
> yy1,mm1,dd1:integer;
> begin
> yy:=copy(Table1.fieldByName('주민등록번호').AsString,1,2);
> mmdd:=copy(Table1.FieldByName('주민등록번호').AsString,3,4);
> reply:=copy(Table1.FieldByName('주민등록번호').AsString,8,1);
> if (reply='1')or(reply='2')then
> yy:='19'+yy
> else if(reply='3')or(reply='4') then
> yy:='20'+yy
> else begin
> ShoWmessage('오류^^;');
> exit;
> end;
> nowyy:=FormatDateTime('yyyy',Date);
> nowmmdd:=FormatDateTime('mm',Date)+FormatDateTime('dd',Date);
> if nowmmdd<=mmdd then
> edit12.text:=IntToStr(StrInt(nowyy)-StrtoInt(yy)-1)
> else
> edit12.text:=IntToStr(Strtoint(nowyy)-StrtoInt(yy));
end;
아래의 질문으 드렸는데 제가 아직은 몰라서..히히히
또다시 질문을 드립니다.
지금은 버튼을 클릭시 해당 레코드만 나이가 Edit12에 나타나는데, 그것보다 저는 Combobox에서 사용하고 싶습니다. (예 20~24,25~29.....범위를 주어서)
그렇게 하려다 보니 문제점은 구한 값을 새로운 필드(Age)라는 필드에 먼저 넣어두고 난 후 Combobox의 조건을 주어 구하면 될 듯 싶은데...
프로그램 실행시 Age필드에 나타나있으면 좋겠는데... 그러기 위해서는 Table이벤트의 BeforePost(?)에 지정을 하면 될 듯 싶은데...
영 감이 안 옵니다.
아래의 소스를 좀 손봐서 새로운 필드에 넣어두고(그래야지 DBGrid에 보이잖아요)시작과 통시에 값이 들어가 있는 상태에서 제가 Combobox의 조건을 주어 해당사람만 DBGrid에 뿌려주는 형식을 가지고 싶습니다.
DB가 Table형식입니다... 고수님들 좀 쉽게 어떻게 안될까요???/
또한가지... Table형식의 DB를 어디서 어떻게 지정하면 퀴리형식으로 바꿀수 있나요???
자세한 설명을... 그럼 무진장 감사감사...
procedure TForm28.Button4Click(Sender: TObject);
> var
> yy,mmdd,nowyy,nowmmdd,reply:string;
> yy1,mm1,dd1:integer;
> begin
> yy:=copy(Table1.fieldByName('주민등록번호').AsString,1,2);
> mmdd:=copy(Table1.FieldByName('주민등록번호').AsString,3,4);
> reply:=copy(Table1.FieldByName('주민등록번호').AsString,8,1);
> if (reply='1')or(reply='2')then
> yy:='19'+yy
> else if(reply='3')or(reply='4') then
> yy:='20'+yy
> else begin
> ShoWmessage('오류^^;');
> exit;
> end;
> nowyy:=FormatDateTime('yyyy',Date);
> nowmmdd:=FormatDateTime('mm',Date)+FormatDateTime('dd',Date);
> if nowmmdd<=mmdd then
> edit12.text:=IntToStr(StrInt(nowyy)-StrtoInt(yy)-1)
> else
> edit12.text:=IntToStr(Strtoint(nowyy)-StrtoInt(yy));
end;
2
COMMENTS
-
-
아래의 소스는 버튼을 클릭시 실행이 되게 코딩이 되어있습니다.
제가 원하는 것은
프로그램 실행시 나이를 구하여 새로운 필드(age)에 들어가게 하여 제가 조건에 맞게 선택(combobox)만 하면 해당 선택사항만 DBGrid에 뿌려주는 소스를 알고 싶습니다.
먼저 나이를 계산하여 Age필드에 넣고 싶습니다.그러면 그 필드만 조건을 주어서 DBGrid에 뿌려주면 되니깐요...어느 위치에 어떠한 소스를 넣으면 되는지????
아래의 소스를 변경하여 ....
그럼 감사하겠슴둥...
cjseok wrote:
> 질문이 이해가 안되는군요
>
> 좀 세세한 설명이 필요합니다.
>
> 서지현 wrote:
> > 안냐세요...
> > 아래의 질문으 드렸는데 제가 아직은 몰라서..히히히
> > 또다시 질문을 드립니다.
> >
> > 지금은 버튼을 클릭시 해당 레코드만 나이가 Edit12에 나타나는데, 그것보다 저는 Combobox에서 사용하고 싶습니다. (예 20~24,25~29.....범위를 주어서)
> > 그렇게 하려다 보니 문제점은 구한 값을 새로운 필드(Age)라는 필드에 먼저 넣어두고 난 후 Combobox의 조건을 주어 구하면 될 듯 싶은데...
> > 프로그램 실행시 Age필드에 나타나있으면 좋겠는데... 그러기 위해서는 Table이벤트의 BeforePost(?)에 지정을 하면 될 듯 싶은데...
> > 영 감이 안 옵니다.
> > 아래의 소스를 좀 손봐서 새로운 필드에 넣어두고(그래야지 DBGrid에 보이잖아요)시작과 통시에 값이 들어가 있는 상태에서 제가 Combobox의 조건을 주어 해당사람만 DBGrid에 뿌려주는 형식을 가지고 싶습니다.
> >
> > DB가 Table형식입니다... 고수님들 좀 쉽게 어떻게 안될까요???/
> > 또한가지... Table형식의 DB를 어디서 어떻게 지정하면 퀴리형식으로 바꿀수 있나요???
> >
> > 자세한 설명을... 그럼 무진장 감사감사...
> >
> > procedure TForm28.Button4Click(Sender: TObject);
> > > var
> > > yy,mmdd,nowyy,nowmmdd,reply:string;
> > > yy1,mm1,dd1:integer;
> > > begin
> > > yy:=copy(Table1.fieldByName('주민등록번호').AsString,1,2);
> > > mmdd:=copy(Table1.FieldByName('주민등록번호').AsString,3,4);
> > > reply:=copy(Table1.FieldByName('주민등록번호').AsString,8,1);
> > > if (reply='1')or(reply='2')then
> > > yy:='19'+yy
> > > else if(reply='3')or(reply='4') then
> > > yy:='20'+yy
> > > else begin
> > > ShoWmessage('오류^^;');
> > > exit;
> > > end;
> > > nowyy:=FormatDateTime('yyyy',Date);
> > > nowmmdd:=FormatDateTime('mm',Date)+FormatDateTime('dd',Date);
> > > if nowmmdd<=mmdd then
> > > edit12.text:=IntToStr(StrInt(nowyy)-StrtoInt(yy)-1)
> > > else
> > > edit12.text:=IntToStr(Strtoint(nowyy)-StrtoInt(yy));
> > end;
> >
> >
(NOTICE) You must be logged in to comment on this post.
-
- nikao76
- •
- 2000.02.12 02:00
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2000.02.12 02:39nikao76 wrote: > 안녕하셔요. 이곳에서 자료를 자주 이용하여 정말 유용하게 사용하고 있습니다. > 다름...
-
nikao76•2000.02.12 18:30구창민님 넘 감사합니다. 매번 제가 글을 올릴때 마다 답변을 해주시는 것 같네요. 새해 복 많이 받으세...
-
-
cjseok•2000.02.12 01:32var S: array[0..79] of char; begin FillChar(S, SizeOf(S), ' '); end; park wrote: > 배열...
-
-
- 서지현
- •
- 2000.02.12 01:08
- 2 COMMENTS
- /
- 0 LIKES
안냐세요... 아래의 질문으 드렸는데 제가 아직은 몰라서..히히히 또다시 질문을 드립니다. 지금은 버튼을 클릭시 해당 레코드만 나이가 Edit12에 나타나는데, 그것보다 저는 Combobox에서 사용하고 싶습니다. (예 20~24,25~29.....범위를...-
cjseok•2000.02.12 01:30질문이 이해가 안되는군요 좀 세세한 설명이 필요합니다. 서지현 wrote: > 안냐세요... > 아래의 ...
-
서지현•2000.02.12 04:31아래의 소스는 버튼을 클릭시 실행이 되게 코딩이 되어있습니다. 제가 원하는 것은 프로그램 실행시 나...
-
- 이동건
- 2000.02.12 00:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2000.02.12 00:34
- 1 COMMENTS
- /
- 0 LIKES
-
cjseok•2000.02.12 01:39string := Formatfloat('00000',1); string := Formatfloat('00000',2); string := Formatfloat('00000',...
-
- cjseok
- 2000.02.12 00:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 밤개미
- 2000.02.11 23:51
- 0 COMMENTS
- /
- 0 LIKES
-
- park
- 2000.02.11 23:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 여용구
- 2000.02.11 23:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 신상철
- 2000.02.11 22:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 아스크림
- •
- 2000.02.11 22:20
- 1 COMMENTS
- /
- 0 LIKES
-
이동근•2000.02.26 20:48프로토콜이나 커넥터의 핀어사인을 다시 한번 확인하시는게 좋을 듯합니다. 그리고 포트설정 내용만으로...
-
- 현수
- 2000.02.11 21:44
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 김형욱
- •
- 2000.02.11 21:34
- 1 COMMENTS
- /
- 0 LIKES
-
김형욱•2000.02.11 21:40김형욱 wrote: > 먼저 제 글을 읽어주셔서 감사합니다. > > 제 문제는 퀵리포트를 이용해서 미리보기를...
-
-
- 초보왕
- •
- 2000.02.11 20:34
- 1 COMMENTS
- /
- 0 LIKES
-
개미•2001.04.14 21:23초보왕 wrote: > 안녕하세요 고수님들 > 여러고수님들의 조언을 얻고자 이렇게 질문을 드립니다. > 보통...
-
- 윤병익
- 2000.02.11 20:32
- 0 COMMENTS
- /
- 0 LIKES
-
- 강민주
- 2000.02.11 20:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 헬프미플리즈
- •
- 2000.02.11 20:10
- 1 COMMENTS
- /
- 0 LIKES
-
박성훈•2000.02.12 17:46헬프미플리즈 wrote: > 델파이 왕초보입니다요 > 저는 매일 하루에도 몇번씩 디렉토리에 생성되는 > 텍...
-
- 김지현
- 2000.02.11 19:53
- 0 COMMENTS
- /
- 0 LIKES
좀 세세한 설명이 필요합니다.
서지현 wrote:
> 안냐세요...
> 아래의 질문으 드렸는데 제가 아직은 몰라서..히히히
> 또다시 질문을 드립니다.
>
> 지금은 버튼을 클릭시 해당 레코드만 나이가 Edit12에 나타나는데, 그것보다 저는 Combobox에서 사용하고 싶습니다. (예 20~24,25~29.....범위를 주어서)
> 그렇게 하려다 보니 문제점은 구한 값을 새로운 필드(Age)라는 필드에 먼저 넣어두고 난 후 Combobox의 조건을 주어 구하면 될 듯 싶은데...
> 프로그램 실행시 Age필드에 나타나있으면 좋겠는데... 그러기 위해서는 Table이벤트의 BeforePost(?)에 지정을 하면 될 듯 싶은데...
> 영 감이 안 옵니다.
> 아래의 소스를 좀 손봐서 새로운 필드에 넣어두고(그래야지 DBGrid에 보이잖아요)시작과 통시에 값이 들어가 있는 상태에서 제가 Combobox의 조건을 주어 해당사람만 DBGrid에 뿌려주는 형식을 가지고 싶습니다.
>
> DB가 Table형식입니다... 고수님들 좀 쉽게 어떻게 안될까요???/
> 또한가지... Table형식의 DB를 어디서 어떻게 지정하면 퀴리형식으로 바꿀수 있나요???
>
> 자세한 설명을... 그럼 무진장 감사감사...
>
> procedure TForm28.Button4Click(Sender: TObject);
> > var
> > yy,mmdd,nowyy,nowmmdd,reply:string;
> > yy1,mm1,dd1:integer;
> > begin
> > yy:=copy(Table1.fieldByName('주민등록번호').AsString,1,2);
> > mmdd:=copy(Table1.FieldByName('주민등록번호').AsString,3,4);
> > reply:=copy(Table1.FieldByName('주민등록번호').AsString,8,1);
> > if (reply='1')or(reply='2')then
> > yy:='19'+yy
> > else if(reply='3')or(reply='4') then
> > yy:='20'+yy
> > else begin
> > ShoWmessage('오류^^;');
> > exit;
> > end;
> > nowyy:=FormatDateTime('yyyy',Date);
> > nowmmdd:=FormatDateTime('mm',Date)+FormatDateTime('dd',Date);
> > if nowmmdd<=mmdd then
> > edit12.text:=IntToStr(StrInt(nowyy)-StrtoInt(yy)-1)
> > else
> > edit12.text:=IntToStr(Strtoint(nowyy)-StrtoInt(yy));
> end;
>
>