한국 델파이 개발자 모임 - 답변 부탁드리겠습니다.

답변 부탁드리겠습니다.

얼마전 질문을 올렸었습니다. 그러나 답을해주시는 분이 없어서 다시한번 올립니다.

begin

if not MsgYesNo_(application.handle, '승인 하시겠습니까?') then exit;

try

FS1Q0803 := TFS1Q0803.Create(application);

if FS1Q0803.ShowModal = mrOK then

if UpperCase(FS1Q0803.ED_USERPW.Text) = FS1Q0803.fn_check_password then

with wwQY_tz301_1 do

begin

Close;

SQL.Clear;

SQL.Add('Update tz303');

SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = ''SYSDATE'' ');

SQL.Add('Where USER_IDXX = :P_USER_IDXX ');

SQL.Add('and SYST_CODE = :P_SYST_CODE ');

ParamByName('P_USER_IDXX').AsString := GE_USER_IDXX_1.Text;

ParamByName('P_SYST_CODE').AsString := ED_SYST_CODE.Text;

ExecSql;

MsgInfo_(hApp, '승인 완료 되었습니다.');

MsgInfo_(hApp, '이전화면으로 전환됩니다.');

end

else begin

MsgInfo_(hApp, '비밀번호가 일치하지 않습니다.');

end

else

close;

finally

FS1Q0803.Free;

end;

close;

end;

결재를 하게되면 두개의 필드에 Y와 그날의 날짜와 순차적인 번호를 넣고자합니다. 그러나 Y는 넣었는데 다른 하나의 필드에는 SYSDATE라는 문자만 찍습니다. 그날의 날짜와함께 순차적으로 번호를 넣을수있게 코딩을 하려면 어떻게해야하는지 알려주시면 감사하겠습니다.

이 게시물을

5 COMMENTS

씨나락 • 2001.12.27 02:09

SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = ''SYSDATE'' ');

이부분을

SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = '+SYSDATE);

이렇게 고치면 되지 않을까요?

델파이초보 wrote:

> 얼마전 질문을 올렸었습니다. 그러나 답을해주시는 분이 없어서 다시한번 올립니다.

> begin

> if not MsgYesNo_(application.handle, '승인 하시겠습니까?') then exit;

> try

> FS1Q0803 := TFS1Q0803.Create(application);

> if FS1Q0803.ShowModal = mrOK then

> if UpperCase(FS1Q0803.ED_USERPW.Text) = FS1Q0803.fn_check_password then

> with wwQY_tz301_1 do

> begin

> Close;

> SQL.Clear;

> SQL.Add('Update tz303');

> SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = ''SYSDATE'' ');

> SQL.Add('Where USER_IDXX = :P_USER_IDXX ');

> SQL.Add('and SYST_CODE = :P_SYST_CODE ');

> ParamByName('P_USER_IDXX').AsString := GE_USER_IDXX_1.Text;

> ParamByName('P_SYST_CODE').AsString := ED_SYST_CODE.Text;

> ExecSql;

> MsgInfo_(hApp, '승인 완료 되었습니다.');

> MsgInfo_(hApp, '이전화면으로 전환됩니다.');

> end

> else begin

> MsgInfo_(hApp, '비밀번호가 일치하지 않습니다.');

> end

> else

> close;

> finally

> FS1Q0803.Free;

> end;

> close;

> end;

>

> 결재를 하게되면 두개의 필드에 Y와 그날의 날짜와 순차적인 번호를 넣고자합니다. 그러나 Y는 넣었는데 다른 하나의 필드에는 SYSDATE라는 문자만 찍습니다. 그날의 날짜와함께 순차적으로 번호를 넣을수있게 코딩을 하려면 어떻게해야하는지 알려주시면 감사하겠습니다.

>
- 0
- 0
- 삭제
- 수정
- 댓글
한가해 • 2001.12.27 02:08

땡땡이('''')를 지우세요..

델파이초보 wrote:

> 얼마전 질문을 올렸었습니다. 그러나 답을해주시는 분이 없어서 다시한번 올립니다.

> begin

> if not MsgYesNo_(application.handle, '승인 하시겠습니까?') then exit;

> try

> FS1Q0803 := TFS1Q0803.Create(application);

> if FS1Q0803.ShowModal = mrOK then

> if UpperCase(FS1Q0803.ED_USERPW.Text) = FS1Q0803.fn_check_password then

> with wwQY_tz301_1 do

> begin

> Close;

> SQL.Clear;

> SQL.Add('Update tz303');

> SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = ''SYSDATE'' ');

> SQL.Add('Where USER_IDXX = :P_USER_IDXX ');

> SQL.Add('and SYST_CODE = :P_SYST_CODE ');

> ParamByName('P_USER_IDXX').AsString := GE_USER_IDXX_1.Text;

> ParamByName('P_SYST_CODE').AsString := ED_SYST_CODE.Text;

> ExecSql;

> MsgInfo_(hApp, '승인 완료 되었습니다.');

> MsgInfo_(hApp, '이전화면으로 전환됩니다.');

> end

> else begin

> MsgInfo_(hApp, '비밀번호가 일치하지 않습니다.');

> end

> else

> close;

> finally

> FS1Q0803.Free;

> end;

> close;

> end;

>

> 결재를 하게되면 두개의 필드에 Y와 그날의 날짜와 순차적인 번호를 넣고자합니다. 그러나 Y는 넣었는데 다른 하나의 필드에는 SYSDATE라는 문자만 찍습니다. 그날의 날짜와함께 순차적으로 번호를 넣을수있게 코딩을 하려면 어떻게해야하는지 알려주시면 감사하겠습니다.

>
- 0
- 0
- 삭제
- 수정
- 댓글
델파이초보 • 2001.12.27 02:20

답변 정말 감사드립니다. 그럼 한가지만 더 물어보겠습니다.

말씀하신대로 '' ''를 지웠더니 sysdate를 가져옵니다. 그럼 그 sysdate뒤에 순차적인 번호를 붙일려면 어떻게 해야하는지요? 번거롭게 해드려서 죄송하지만 답변해주시면 정말 고맙겠습니다.

한가해 wrote:

> 땡땡이('''')를 지우세요..

>

> 델파이초보 wrote:

> > 얼마전 질문을 올렸었습니다. 그러나 답을해주시는 분이 없어서 다시한번 올립니다.

> > begin

> > if not MsgYesNo_(application.handle, '승인 하시겠습니까?') then exit;

> > try

> > FS1Q0803 := TFS1Q0803.Create(application);

> > if FS1Q0803.ShowModal = mrOK then

> > if UpperCase(FS1Q0803.ED_USERPW.Text) = FS1Q0803.fn_check_password then

> > with wwQY_tz301_1 do

> > begin

> > Close;

> > SQL.Clear;

> > SQL.Add('Update tz303');

> > SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = ''SYSDATE'' ');

> > SQL.Add('Where USER_IDXX = :P_USER_IDXX ');

> > SQL.Add('and SYST_CODE = :P_SYST_CODE ');

> > ParamByName('P_USER_IDXX').AsString := GE_USER_IDXX_1.Text;

> > ParamByName('P_SYST_CODE').AsString := ED_SYST_CODE.Text;

> > ExecSql;

> > MsgInfo_(hApp, '승인 완료 되었습니다.');

> > MsgInfo_(hApp, '이전화면으로 전환됩니다.');

> > end

> > else begin

> > MsgInfo_(hApp, '비밀번호가 일치하지 않습니다.');

> > end

> > else

> > close;

> > finally

> > FS1Q0803.Free;

> > end;

> > close;

> > end;

> >

> > 결재를 하게되면 두개의 필드에 Y와 그날의 날짜와 순차적인 번호를 넣고자합니다. 그러나 Y는 넣었는데 다른 하나의 필드에는 SYSDATE라는 문자만 찍습니다. 그날의 날짜와함께 순차적으로 번호를 넣을수있게 코딩을 하려면 어떻게해야하는지 알려주시면 감사하겠습니다.

> >
- 0
- 0
- 삭제
- 수정
- 댓글
빙고 • 2001.12.27 20:35

제 생각에는 이러면 어떨지요? 필드가 문자형이라고 생각한 경우입니다.

데이타형이 틀리다면 거기에 맞게 하시면 되것지요!

Select to_number(nvl(max(GYEL_NUMB),to_char(sysdate,'yyyymmdd')||'0')) +1 Seq

from Table

where substr(gyel_numb,1,8) = to_char(sysdate,'yyyymmdd')

이렇게 해가지구 이 값을 update할때 주면 되지 않을런지..

update 할땐 데이터형을 맞춰주심 되것지요?

혹 위 문장이 안먹는다면 좀 번거롭더라도 Select문으로 max값을 구해봐서

null이면 sysdate에다가 '1' 을 붙여서 update하시고

not null이면 max값에다가 +1해서 update하면 될듯..(데이터형은 알아서 맞추시고요)

제가 괜한 짓해서 헛갈리게 한건 아닌지 모르것네여..

델파이초보 wrote:

> 답변 정말 감사드립니다. 그럼 한가지만 더 물어보겠습니다.

> 말씀하신대로 '' ''를 지웠더니 sysdate를 가져옵니다. 그럼 그 sysdate뒤에 순차적인 번호를 붙일려면 어떻게 해야하는지요? 번거롭게 해드려서 죄송하지만 답변해주시면 정말 고맙겠습니다.

>

> 한가해 wrote:

> > 땡땡이('''')를 지우세요..

> >

> > 델파이초보 wrote:

> > > 얼마전 질문을 올렸었습니다. 그러나 답을해주시는 분이 없어서 다시한번 올립니다.

> > > begin

> > > if not MsgYesNo_(application.handle, '승인 하시겠습니까?') then exit;

> > > try

> > > FS1Q0803 := TFS1Q0803.Create(application);

> > > if FS1Q0803.ShowModal = mrOK then

> > > if UpperCase(FS1Q0803.ED_USERPW.Text) = FS1Q0803.fn_check_password then

> > > with wwQY_tz301_1 do

> > > begin

> > > Close;

> > > SQL.Clear;

> > > SQL.Add('Update tz303');

> > > SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = ''SYSDATE'' ');

> > > SQL.Add('Where USER_IDXX = :P_USER_IDXX ');

> > > SQL.Add('and SYST_CODE = :P_SYST_CODE ');

> > > ParamByName('P_USER_IDXX').AsString := GE_USER_IDXX_1.Text;

> > > ParamByName('P_SYST_CODE').AsString := ED_SYST_CODE.Text;

> > > ExecSql;

> > > MsgInfo_(hApp, '승인 완료 되었습니다.');

> > > MsgInfo_(hApp, '이전화면으로 전환됩니다.');

> > > end

> > > else begin

> > > MsgInfo_(hApp, '비밀번호가 일치하지 않습니다.');

> > > end

> > > else

> > > close;

> > > finally

> > > FS1Q0803.Free;

> > > end;

> > > close;

> > > end;

> > >

> > > 결재를 하게되면 두개의 필드에 Y와 그날의 날짜와 순차적인 번호를 넣고자합니다. 그러나 Y는 넣었는데 다른 하나의 필드에는 SYSDATE라는 문자만 찍습니다. 그날의 날짜와함께 순차적으로 번호를 넣을수있게 코딩을 하려면 어떻게해야하는지 알려주시면 감사하겠습니다.

> > >
- 0
- 0
- 삭제
- 수정
- 댓글
델파이초보 • 2001.12.28 20:18

델파이초보 wrote;

답변 정말 감사드립니다.

빙고 wrote:

> 제 생각에는 이러면 어떨지요? 필드가 문자형이라고 생각한 경우입니다.

> 데이타형이 틀리다면 거기에 맞게 하시면 되것지요!

>

> Select to_number(nvl(max(GYEL_NUMB),to_char(sysdate,'yyyymmdd')||'0')) +1 Seq

> from Table

> where substr(gyel_numb,1,8) = to_char(sysdate,'yyyymmdd')

> 이렇게 해가지구 이 값을 update할때 주면 되지 않을런지..

> update 할땐 데이터형을 맞춰주심 되것지요?

>

> 혹 위 문장이 안먹는다면 좀 번거롭더라도 Select문으로 max값을 구해봐서

> null이면 sysdate에다가 '1' 을 붙여서 update하시고

> not null이면 max값에다가 +1해서 update하면 될듯..(데이터형은 알아서 맞추시고요)

>

> 제가 괜한 짓해서 헛갈리게 한건 아닌지 모르것네여..

>

> 델파이초보 wrote:

> > 답변 정말 감사드립니다. 그럼 한가지만 더 물어보겠습니다.

> > 말씀하신대로 '' ''를 지웠더니 sysdate를 가져옵니다. 그럼 그 sysdate뒤에 순차적인 번호를 붙일려면 어떻게 해야하는지요? 번거롭게 해드려서 죄송하지만 답변해주시면 정말 고맙겠습니다.

> >

> > 한가해 wrote:

> > > 땡땡이('''')를 지우세요..

> > >

> > > 델파이초보 wrote:

> > > > 얼마전 질문을 올렸었습니다. 그러나 답을해주시는 분이 없어서 다시한번 올립니다.

> > > > begin

> > > > if not MsgYesNo_(application.handle, '승인 하시겠습니까?') then exit;

> > > > try

> > > > FS1Q0803 := TFS1Q0803.Create(application);

> > > > if FS1Q0803.ShowModal = mrOK then

> > > > if UpperCase(FS1Q0803.ED_USERPW.Text) = FS1Q0803.fn_check_password then

> > > > with wwQY_tz301_1 do

> > > > begin

> > > > Close;

> > > > SQL.Clear;

> > > > SQL.Add('Update tz303');

> > > > SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = ''SYSDATE'' ');

> > > > SQL.Add('Where USER_IDXX = :P_USER_IDXX ');

> > > > SQL.Add('and SYST_CODE = :P_SYST_CODE ');

> > > > ParamByName('P_USER_IDXX').AsString := GE_USER_IDXX_1.Text;

> > > > ParamByName('P_SYST_CODE').AsString := ED_SYST_CODE.Text;

> > > > ExecSql;

> > > > MsgInfo_(hApp, '승인 완료 되었습니다.');

> > > > MsgInfo_(hApp, '이전화면으로 전환됩니다.');

> > > > end

> > > > else begin

> > > > MsgInfo_(hApp, '비밀번호가 일치하지 않습니다.');

> > > > end

> > > > else

> > > > close;

> > > > finally

> > > > FS1Q0803.Free;

> > > > end;

> > > > close;

> > > > end;

> > > >

> > > > 결재를 하게되면 두개의 필드에 Y와 그날의 날짜와 순차적인 번호를 넣고자합니다. 그러나 Y는 넣었는데 다른 하나의 필드에는 SYSDATE라는 문자만 찍습니다. 그날의 날짜와함께 순차적으로 번호를 넣을수있게 코딩을 하려면 어떻게해야하는지 알려주시면 감사하겠습니다.

> > > >
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 우나기
- •
- 2001.12.27 04:21
- 1 COMMENTS
- /
- 0 LIKES
C++소스를 델파이로 변환에 있어서 조언좀...
- 최용일
  
  •
  
  2001.12.27 18:50
  
  안녕하세요. 최용일입니다. 아래와 같은 형식으로 변환하세요... unit Rudder; interface .......
- 준허접
- 2001.12.27 04:05
- 0 COMMENTS
- /
- 0 LIKES
Qccom32v5 컴포넌트에 대해 아시는 분.....
- 델사
- •
- 2001.12.27 03:40
- 3 COMMENTS
- /
- 0 LIKES
DBGrid에서 셀을 클릭하더라도 화면이 안움직이게하는 방법은?
- manlife
  
  •
  
  2001.12.28 01:22
  
  DBGrid의 오브젝트 인스펙트에서 Option을 선택하면 그 중에 dgRowSelect가 있습니다. 그 값을 False로 ...
- 김대준
  
  •
  
  2001.12.31 23:31
  
  dgRowSelect = True속성을 주고서 이동 안되게 할수 있는 방업은 없나요? 현재 저 같은 경우는.. Row를 ...
- 김대준
  
  •
  
  2001.12.31 23:30
  
  dgRowSelect = True속성을 주고서 이동 안되게 할수 있는 방업은 없나요? 현재 저 같은 경우는.. Row를 ...
- 김영호
- •
- 2001.12.27 02:57
- 1 COMMENTS
- /
- 0 LIKES
문자형 데이타의 자동증가
- 오라클
  
  •
  
  2001.12.28 03:44
  
  김영호 wrote: > 안뇽하세요 > 저는 오라클 디비를 사용하고 있는 사람입니다. 다름이 아니오라 > 숫자...
- 초보임당
- •
- 2001.12.27 02:54
- 1 COMMENTS
- /
- 0 LIKES
마스터키 에 중복된 데이터가 insert
- 데빠이
  
  •
  
  2001.12.27 03:04
  
  초보임당 wrote: > 안녕하십니까.. > 현재 오라클 db연동 프로그램을 만들고 있습니다. > 데이터를 db에...
- 김종석
- 2001.12.27 02:24
- 0 COMMENTS
- /
- 0 LIKES
윈도 팝업메뉴에 특정메뉴 등록하는 법좀...
- 비비드
- 2001.12.27 02:14
- 0 COMMENTS
- /
- 0 LIKES
하나의 쓰레드에서 Window message 비동기로 보내기
- 델파이초보
- •
- 2001.12.27 01:58
- 5 COMMENTS
- /
- 0 LIKES
답변 부탁드리겠습니다.

얼마전 질문을 올렸었습니다. 그러나 답을해주시는 분이 없어서 다시한번 올립니다. begin if not MsgYesNo_(application.handle, '승인 하시겠습니까?') then exit; try FS1Q0803 := TFS1Q0803.Create(application); if FS1Q0803.ShowMod...
- 씨나락
  
  •
  
  2001.12.27 02:09
  
  SQL.Add('Set GYEL_CHEK = ''Y'', GYEL_NUMB = ''SYSDATE'' '); 이부분을 SQL.Add('Set GYEL_CHEK = ''Y'...
- 한가해
  
  •
  
  2001.12.27 02:08
  
  땡땡이('''')를 지우세요.. 델파이초보 wrote: > 얼마전 질문을 올렸었습니다. 그러나 답을해주시는 분...
- 델파이초보
  
  •
  
  2001.12.27 02:20
  
  답변 정말 감사드립니다. 그럼 한가지만 더 물어보겠습니다. 말씀하신대로 '' ''를 지웠더니 sysdate를 가...
- 빙고
  
  •
  
  2001.12.27 20:35
  
  제 생각에는 이러면 어떨지요? 필드가 문자형이라고 생각한 경우입니다. 데이타형이 틀리다면 거기에 맞게...
- 델파이초보
  
  •
  
  2001.12.28 20:18
  
  델파이초보 wrote; 답변 정말 감사드립니다. 빙고 wrote: > 제 생각에는 이러면 어떨지요? 필드가 문...
- 초보자
- •
- 2001.12.27 01:50
- 1 COMMENTS
- /
- 0 LIKES
실행화일아이콘변경(실행화일)
- 김지태
  
  •
  
  2001.12.27 03:12
  
  초보자 wrote: > 안녕하세요 > 타 부서의 프로그램을 우리 부서의 환경에 맞게 변경시키는 작업을 하고 ...
- 최은규
- •
- 2001.12.27 01:33
- 2 COMMENTS
- /
- 0 LIKES
mysql에서 에디트박스로 출력이 안됩니다....
- 앙리앙리
  
  •
  
  2001.12.27 19:14
  
  최은규 wrote: > 제가 원하는 것은 DB에 저장된 값을 특정한 날짜것만 추려서 에디트박스로 > 출력하는 ...
- ^-_-^
  
  •
  
  2001.12.27 07:05
  
  yo` 음냥...코딩이 좀 이상하군요... > form1.edt115.Text := inttostr(form1.query1.FieldByNa...
- 라일락
- 2001.12.27 01:28
- 0 COMMENTS
- /
- 0 LIKES
동적생성에 관한 질문....
- 동동
- •
- 2001.12.27 01:24
- 2 COMMENTS
- /
- 0 LIKES
리치에디트의 내용을 또다른 리치에디트에 넣는방법을 알고 싶어요.
- 김지태
  
  •
  
  2001.12.27 02:39
  
  동동 wrote: > > 안녕하세요. 우선 리치에디트가 두개가 있습니다. 한쪽에서 '보내기'버튼을 누르면 자...
- 동동
  
  •
  
  2001.12.27 03:37
  
  죄송합니다. 제가 질문을 제대로 하지 못했어요. 우선 전체적인 Font가 문제가 아니라 그 중간에 삽...
- 인어공주
- 2001.12.27 01:20
- 0 COMMENTS
- /
- 0 LIKES
RichTExt insertion 질문 입니다.
- 초보
- •
- 2001.12.27 01:14
- 1 COMMENTS
- /
- 0 LIKES
LoadLibrary 함수의 반환값에 관한 질문입니다.
- 김지태
  
  •
  
  2001.12.27 02:57
  
  초보 wrote: > var > hwnd : THandle; > begin > hwnd := LoadLibrary('aaa.exe'); > > if hw...
- 아리엘
- 2001.12.27 00:19
- 0 COMMENTS
- /
- 0 LIKES
동적배열 := 정적배열 이렇게 가능 한가요?
- 왕초짜
- •
- 2001.12.26 23:56
- 2 COMMENTS
- /
- 0 LIKES
레코드를 C 구조체로 전달하는 방법 좀...
- 박서규
  
  •
  
  2001.12.27 14:27
  
  왕초짜 wrote: > 델파이로 구조체를 만들어서 서버로 데이타를 보낼려고합니다 > > 서버는 C 로 되어있...
- 왕초짜
  
  •
  
  2001.12.28 06:06
  
  박서규님.. 정말 감사드립니다. 덕분에 지금은 아~주 잘 된답니다. ^^ 친절한 답변 다시한번 감사...
- 레지스트리를 사용하
- 2001.12.26 23:53
- 0 COMMENTS
- /
- 0 LIKES
질문제목과 분류를 꼭 해주시길 부탁드립니다.
- 이범호
- 2001.12.26 22:40
- 0 COMMENTS
- /
- 0 LIKES
Indy 메일 콤포넌트 사용중 HTML 메일 받을때?
- 우나기
- •
- 2001.12.26 21:44
- 1 COMMENTS
- /
- 0 LIKES
C++소스를 델파이로 변환시키는데 문제..
- 이채성
  
  •
  
  2001.12.26 22:21
  
  C Builder에서 컴파일 한 후 Obj단에서 링크하면 Delphi에서 C 소스를 사용할 수 있습니다. 그 방법...
- 엘뤼
- 2001.12.26 21:31
- 0 COMMENTS
- /
- 0 LIKES
ActiveX Form을 띄운 웹브라우저가 죽어버리네여...

델파이초보
2001/12/27 01:58
Views722

Likes0

Comments5

Reports0
Tag List
수정
삭제
목록으로

←First Page

1430 1431 1432 1433 1434 1435 1436 1437 1438 1439

Last Page→