Q&A
- [긴급] Modal DB 사용시 Access Violation Error...
program owman;
uses
Forms, Controls,
main in 'main.pas' {frm_Main},
secure in 'secure.pas' {frm_Secure};
{$R *.RES}
var
BUSU_C : String;
function CheckUser : Boolean;
begin
Result := False;
Try
frm_Secure := Tfrm_Secure.Create(Application);
If frm_Secure.ShowModal = mrOk Then // <- mrOk가 리턴되지 않음...
begin
BUSU_C := frm_Secure.GetBusuCode; // 로그인 폼에서 부서코드 가져오기
Result := True;
end;
finally
frm_Secure.Free;
end;
end;
begin
If CheckUser Then
begin
Application.Initialize;
Application.CreateForm(Tfrm_Main, frm_Main);
frm_Main.LetBusuCode(BUSU_C); // 메인 폼에 부서코드 전달
Application.Run; // mrOk 가 리턴되지 않아 실행되지 않아야
// 하는것 같은데, 이부분에서 에러 발생...
end;
end.
코드를 보시면 대충 제가 뭘 하려는지 아시겠죠...?
제가 구현하고자 하는 것은 해당 부서의 관련 정보만 액세스 하기 위해
로그인 대화상자에서 인증이 끝나면 메인 화면이 나타나야 하는디...
글씨 워찌된 영문인지... mrOk가 리턴되지 않고...(첫번재 해결과제!)...
그래서, 메인 폼이 생성되지 못합니다.(두번째 해결과제!)...
그리고, 마지막으로 생성된 메인 폼에 부서코드 전달(세번째 해결과제!)...
꼭 좀 부탁드리겠습니다...
첫번째 해결과제만 해결된다면 다 해결되리라 생각되어지는데...
고수님 명쾌한 답변 부탁드립니다...
uses
Forms, Controls,
main in 'main.pas' {frm_Main},
secure in 'secure.pas' {frm_Secure};
{$R *.RES}
var
BUSU_C : String;
function CheckUser : Boolean;
begin
Result := False;
Try
frm_Secure := Tfrm_Secure.Create(Application);
If frm_Secure.ShowModal = mrOk Then // <- mrOk가 리턴되지 않음...
begin
BUSU_C := frm_Secure.GetBusuCode; // 로그인 폼에서 부서코드 가져오기
Result := True;
end;
finally
frm_Secure.Free;
end;
end;
begin
If CheckUser Then
begin
Application.Initialize;
Application.CreateForm(Tfrm_Main, frm_Main);
frm_Main.LetBusuCode(BUSU_C); // 메인 폼에 부서코드 전달
Application.Run; // mrOk 가 리턴되지 않아 실행되지 않아야
// 하는것 같은데, 이부분에서 에러 발생...
end;
end.
코드를 보시면 대충 제가 뭘 하려는지 아시겠죠...?
제가 구현하고자 하는 것은 해당 부서의 관련 정보만 액세스 하기 위해
로그인 대화상자에서 인증이 끝나면 메인 화면이 나타나야 하는디...
글씨 워찌된 영문인지... mrOk가 리턴되지 않고...(첫번재 해결과제!)...
그래서, 메인 폼이 생성되지 못합니다.(두번째 해결과제!)...
그리고, 마지막으로 생성된 메인 폼에 부서코드 전달(세번째 해결과제!)...
꼭 좀 부탁드리겠습니다...
첫번째 해결과제만 해결된다면 다 해결되리라 생각되어지는데...
고수님 명쾌한 답변 부탁드립니다...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 장진웅
- •
- 2000.03.31 07:57
- 2 COMMENTS
- /
- 0 LIKES
-
최석기•2000.03.31 19:18장진웅 wrote: > > > 저는 어싱크콤포...트라이얼을 실험중인 개발자입니다.. > > fax 콤... -
조규춘•2000.03.31 12:01조규춘이라고 합지요 재목 그대로 입니다. 이 제목이 죄목이 되지 않기를 바라면 적습니다. 퀵리포트를...
-
- 김성훈
- •
- 2000.03.31 07:36
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.31 07:54리치에디트 데모소스엔 리치에디트에관한 모든것이 들어있는데 분석을 잘못하셨네요. 굉장히 잘 짜진 소스...
-
- 박은경
- •
- 2000.03.31 06:40
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.03.31 08:42박은경 wrote: > 안녕하세요? > 진짜 초보인 사람인데요 > 입력되는 5개 수 중 가장 큰수 찾는거 어떻게...
-
- 이수정
- •
- 2000.03.31 06:14
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.31 06:22copy('abcdefg',1,2); 이건 참고하세요 strCat, StrComp, StrCopy, StrECopy, StrDispose, StrLen,...
-
- 델Man
- 2000.03.31 06:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 이지훈
- •
- 2000.03.31 06:06
- 1 COMMENTS
- /
- 0 LIKES
program owman; uses Forms, Controls, main in 'main.pas' {frm_Main}, secure in 'secure.pas' {frm_Secure}; {$R *.RES} var BUSU_C : String; function CheckUser : Boolean; begin Result := False; Try frm_Secure := Tfrm_Secure.C...-
최용일•2000.03.31 07:16버튼에 ModalResult값을 설정하지 않으신 것 같은데 그럼 ShowModal에서 mrOk나 mrCancel같은 값을 얻으실...
-
- 이수정
- •
- 2000.03.31 05:49
- 4 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.31 05:54안녕하세요 하얀까마귀 입니다.. 네 그렇게 하시면 됩니다.. 그냥 그대로 쓰셔도 뭐 상관없겠네요.. ...
-
이수정•2000.03.31 09:45하얀까마귀 wrote: > 안녕하세요 하얀까마귀 입니다.. > > 네 그렇게 하시면 됩니다.. > > 그냥 그...
-
이수정•2000.03.31 06:01하얀까마귀 wrote: > 안녕하세요 하얀까마귀 입니다.. > > 네 그렇게 하시면 됩니다.. > > 그냥 그...
-
하얀까마귀•2000.03.31 09:01안녕하세요 하얀까마귀 입니다. 제가 value대신 asString를 사용하라 한건 value의 경우는 타입이 없으...
-
- 유동훈
- •
- 2000.03.31 04:49
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.31 07:28아마도 두번째 인자인 IsTerminated이 함수나 객체의 메소드같은데... GetExitCodeProcess는 두번째 인...
-
- 정연
- •
- 2000.03.31 03:50
- 2 COMMENTS
- /
- 0 LIKES
-
delchobo•2000.03.31 04:40정연 wrote: > 에러 멧세지 : invalid use of keyword > token : add > ...
-
하얀까마귀•2000.03.31 05:24안녕하세요 하얀까마귀 입니다. add가 키워드 이기 때문에 에러가 나는게 맞습니다... 코드를 이렇게...
-
- lee
- •
- 2000.03.31 03:36
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.31 05:26안녕하세요 하얀까마귀 입니다. 그 에러가 왜생기는지는 아실테고... 답변을 할려면 소스가 있어야 ...
-
- 사노테
- •
- 2000.03.31 03:10
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.31 05:38안녕하세요 하얀까마귀 입니다.. 이것도 db에 관련된거네요.... 난 db가 싫은데... 먼저... dbedi...
-
- 이동준
- •
- 2000.03.31 02:58
- 1 COMMENTS
- /
- 0 LIKES
-
delchobo•2000.03.31 04:48이동준 wrote: > locate 메소드를 이용해야 하는데, 키컬럼이 date형입니다. > db에는 char형으로 되어 ...
-
- 최은정
- •
- 2000.03.31 02:37
- 2 COMMENTS
- /
- 0 LIKES
-
구창민•2000.03.31 02:43최은정 wrote: > Edit Mask 에서 숫자만 들어오게 하고 싶어요.. > 영문처리는 했는데.. 한글이 입력이 ...
-
까마귀•2000.03.31 08:25구창민 wrote: > 최은정 wrote: > > Edit Mask 에서 숫자만 들어오게 하고 싶어요.. > > 영문처리는 했...
-
- 머리나쁜 얀
- •
- 2000.03.31 02:25
- 2 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2000.03.31 05:44안녕하세요 하얀까마귀 입니다... delphi 3.0에 포함된 퀵리포트와 델파이5.0에 포함된 퀵리포트 얘기 ...
-
머리나쁜 얀•2000.03.31 18:26넵 잘 보았습니다 답변에 감사 드리구여 2.0도 상관은 없겠군여 버젼 업이 되어도 기존의 작업 화일은
-
- 까마귀
- •
- 2000.03.31 02:06
- 1 COMMENTS
- /
- 0 LIKES
-
최재원•2000.03.31 03:03까마귀 wrote: > 안녕하세요. > 까마귀입니다. 좋은 하루 되시길.... > > 이상한 에러가 자꾸 생겨서...
-
- 초보맨
- •
- 2000.03.31 01:53
- 4 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.31 02:16폼의 빈공간을 클릭할땐 포커스 변경이 일어나지 않습니다. 그리니까 CM_EXIT 메세지를 잡아챌수가 없죠. ...
-
초보맨•2000.03.31 04:30최용일님의 답변에 감사드립니다... 그런데 제가 델파이에 관란 지식이 좀 짧은 편이라서요 ^^ 염치 없지...
-
최용일•2000.03.31 05:2711207번에 제가 쓴 예제가 있습니다. 그것을 참조해 보세요. 이미지를 드래그했을때 캡션바를 드래그한 ...
-
초보맨•2000.04.01 02:01용일님의 예제를 보고 procedure TEDBCustomCombo.WMNCHitTest(var Msg: TWMNCHitTest); var P: TPoint...
-
- sun
- •
- 2000.03.31 01:51
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.03.31 05:35sun wrote: > Free와 Cafree의 차이점????의 차이점이 뭔가요.. > > 메모리에 관련된 것 같은데.. 차...
-
- 오정섭
- 2000.03.31 01:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 변영섭
- •
- 2000.03.31 00:56
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.03.31 01:46변영섭 wrote: > 그림화일(.bmp,jpg)화일을 데이터베이스에 저장하려고 하는데 어떻게 해야하는지요. > s...
-
- 임택종
- •
- 2000.03.31 00:51
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.31 01:41여기에 또 올리셨네요. 제가 제대로 도움을 못드린 것 같군요.. 또 다른 방법을 알켜드리죠.. 약간의 편...
-
최석기•2000.03.31 01:14임택종 wrote: > 델파이 고수님들께 도움을 요청합니다 > > > 현 델파이 프로젝트를 진행하는중 ...
mrOk나 mrCancel같은 값을 얻으실 수 없습니다. 디폴트로 mrNone으로 설
정되어있거든요...
Tfrm_Secure란 폼의 버튼중에서 OK나 확인같은 버튼의 ModalResult속성에
mrOK란 값을 넣으세요. 취소버튼에도 mrCancel같은 값을 넣으셔야 합니다.
이지훈 wrote:
> program owman;
>
> uses
> Forms, Controls,
> main in 'main.pas' {frm_Main},
> secure in 'secure.pas' {frm_Secure};
>
> {$R *.RES}
> var
> BUSU_C : String;
>
> function CheckUser : Boolean;
> begin
>
> Result := False;
> Try
> frm_Secure := Tfrm_Secure.Create(Application);
> If frm_Secure.ShowModal = mrOk Then // <- mrOk가 리턴되지 않음...
> begin
> BUSU_C := frm_Secure.GetBusuCode; // 로그인 폼에서 부서코드 가져오기
> Result := True;
> end;
> finally
> frm_Secure.Free;
> end;
> end;
>
> begin
>
> If CheckUser Then
> begin
> Application.Initialize;
> Application.CreateForm(Tfrm_Main, frm_Main);
> frm_Main.LetBusuCode(BUSU_C); // 메인 폼에 부서코드 전달
> Application.Run; // mrOk 가 리턴되지 않아 실행되지 않아야
> // 하는것 같은데, 이부분에서 에러 발생...
> end;
>
> end.
>
> 코드를 보시면 대충 제가 뭘 하려는지 아시겠죠...?
>
> 제가 구현하고자 하는 것은 해당 부서의 관련 정보만 액세스 하기 위해
>
> 로그인 대화상자에서 인증이 끝나면 메인 화면이 나타나야 하는디...
>
> 글씨 워찌된 영문인지... mrOk가 리턴되지 않고...(첫번재 해결과제!)...
>
> 그래서, 메인 폼이 생성되지 못합니다.(두번째 해결과제!)...
>
> 그리고, 마지막으로 생성된 메인 폼에 부서코드 전달(세번째 해결과제!)...
>
> 꼭 좀 부탁드리겠습니다...
>
> 첫번째 해결과제만 해결된다면 다 해결되리라 생각되어지는데...
>
> 고수님 명쾌한 답변 부탁드립니다...
>
>