Q&A
- 부모 폼과 자식 폼의 변수값 전달
안녕들 하세요...
처음에는 쉬워 보이던데 막상 하니까 생각보다 까다롭더군요...
회원관리 프로그램을 작성 할려구요.
1. Main폼에서 회원관리를 선택하면 Modal폼이 뜨면서 StringGrid에 회원에 관한 정보를
뛰우게 하였습니다. 그다음에는 회원정보를 수정하기 위해 수정하려는 회원의 Row를
더블클릭해서 새로운 Modal폼을 뛰운다음 Edit 박스에 선택된 회원의 Data들이 나타나게
해서 수정하려고 하는데... 폼사이의 변수 전달이 생각보다 안되서요.
2. 위에서 나타난 수정하려는 두번째 폼에서 우편번호 옆에 스피드 버튼을 두어서 우편번호
검색창이 Modal폼으로 나타나게 했습니다. 그런다음 원하는 주소 및 우편번호를 검색해서
해당 Row를 클릭하면 회원정보 수정창에 자동으로 들어가게 하려는데 이것 역시 잘 안되네요
소스는 다음과 같이 해보았거든요
첫번째 회원정보가 나타나는 폼 : UserManager
두번째 회원 개개인의 정보가 나타나는 폼 : UserInfo
세번째 우편번호 검색폼 : Zip
1.
procedure TUserManager.GridDblClick(Sender: TObject);
begin
with TUserInfo.Create(self) do begin
try
if UserManager.Grid.Cells[0, 1] <> '' then
UserInfo.Edit1.Text :=
UserManager.Grid.Cells[0, Usermanager.Grid.Row];
ShowModal;
finally
Free;
end;
end;
end;
이렇게 하니까... 엑세스 바이올래이션 에러가 나서요.
2.
procedure TZip.GridClick(Sender: TObject);
begin
With Zip.Grid do
if Cells[0, 1] <> '' then begin
UserInfo.Edit10.Text := Copy(Trim(Cells[0, Row]), 1, 3);
UserInfo.Edit17.Text := Copy(Trim(Cells[0, Row]), 4, 3);
UserInfo.Edit11.Text := Cells[1, Row];
end;
spExit.OnClick(nil);
end;
이런게 해서 선택된 Row를 Edit 박스에 넣으려고 해도 마찬가지로 엑세스 바이올래이션
Error가 발생하네요...
도와 수세요... 그럼 이만.
처음에는 쉬워 보이던데 막상 하니까 생각보다 까다롭더군요...
회원관리 프로그램을 작성 할려구요.
1. Main폼에서 회원관리를 선택하면 Modal폼이 뜨면서 StringGrid에 회원에 관한 정보를
뛰우게 하였습니다. 그다음에는 회원정보를 수정하기 위해 수정하려는 회원의 Row를
더블클릭해서 새로운 Modal폼을 뛰운다음 Edit 박스에 선택된 회원의 Data들이 나타나게
해서 수정하려고 하는데... 폼사이의 변수 전달이 생각보다 안되서요.
2. 위에서 나타난 수정하려는 두번째 폼에서 우편번호 옆에 스피드 버튼을 두어서 우편번호
검색창이 Modal폼으로 나타나게 했습니다. 그런다음 원하는 주소 및 우편번호를 검색해서
해당 Row를 클릭하면 회원정보 수정창에 자동으로 들어가게 하려는데 이것 역시 잘 안되네요
소스는 다음과 같이 해보았거든요
첫번째 회원정보가 나타나는 폼 : UserManager
두번째 회원 개개인의 정보가 나타나는 폼 : UserInfo
세번째 우편번호 검색폼 : Zip
1.
procedure TUserManager.GridDblClick(Sender: TObject);
begin
with TUserInfo.Create(self) do begin
try
if UserManager.Grid.Cells[0, 1] <> '' then
UserInfo.Edit1.Text :=
UserManager.Grid.Cells[0, Usermanager.Grid.Row];
ShowModal;
finally
Free;
end;
end;
end;
이렇게 하니까... 엑세스 바이올래이션 에러가 나서요.
2.
procedure TZip.GridClick(Sender: TObject);
begin
With Zip.Grid do
if Cells[0, 1] <> '' then begin
UserInfo.Edit10.Text := Copy(Trim(Cells[0, Row]), 1, 3);
UserInfo.Edit17.Text := Copy(Trim(Cells[0, Row]), 4, 3);
UserInfo.Edit11.Text := Cells[1, Row];
end;
spExit.OnClick(nil);
end;
이런게 해서 선택된 Row를 Edit 박스에 넣으려고 해도 마찬가지로 엑세스 바이올래이션
Error가 발생하네요...
도와 수세요... 그럼 이만.
2
COMMENTS
-
-
서브폼을 생성하는 부분이 잘못된 것 같군요. 이 부분만 해결되면 되겠는
데요...
|procedure TUserManager.GridDblClick(Sender: TObject);
|begin
| UserInfo := TUserInfo.Create(self); <=======
| try
| if UserManager.Grid.Cells[0, 1] <> '' then
| UserInfo.Edit1.Text :=
| UserManager.Grid.Cells[0, Usermanager.Grid.Row];
| ...
|
> procedure TUserManager.GridDblClick(Sender: TObject);
> begin
> with TUserInfo.Create(self) do begin <=================
> try
> if UserManager.Grid.Cells[0, 1] <> '' then
> UserInfo.Edit1.Text :=
> UserManager.Grid.Cells[0, Usermanager.Grid.Row];
> ShowModal;
> finally
> Free;
> end;
> end;
> end;
>
(NOTICE) You must be logged in to comment on this post.
-
- 조현석
- 2000.03.22 19:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 박은철
- 2000.03.22 19:19
- 0 COMMENTS
- /
- 0 LIKES
-
- sensemin
- •
- 2000.03.22 19:08
- 3 COMMENTS
- /
- 0 LIKES
-
안경옥•2000.03.23 00:18sensemin wrote: > 안녕하세요?? > > 전 델파이 초보인데요.. > > 퀵레포트로 보고서를 작성하는데 ...
-
강인규•2000.03.22 20:50문제를 어렵게 생각하시면 한없이 어렵습니다. QRSysData엔 앞에 하이픈은 Text에 넣을 수는 있지만 뒤에 ...
-
blueSky•2000.03.22 19:39sensemin wrote: > 안녕하세요?? > > 전 델파이 초보인데요.. > > 퀵레포트로 보고서를 작성하는데 ...
-
-
blueSky•2000.03.22 19:49초보맨 wrote: > dbgrid 에서 방향키 down 에 이벤트를 줄려고 하는데 down 의 key 값을 모르겠어요 > 참...
-
최용일•2000.03.22 19:18vk_Down입니다. 나머지 키값은 windows유닛을 찾아보세요... 초보맨 wrote: > dbgrid 에서 방향키 down...
-
-
- 궁금해요
- 2000.03.22 18:51
- 0 COMMENTS
- /
- 0 LIKES
-
- ICANDEL
- 2000.03.22 18:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 이수정
- •
- 2000.03.22 17:19
- 3 COMMENTS
- /
- 0 LIKES
-
4ME•2000.03.22 17:51데이타베이스 컴포넌트를 이용해서 해보세요.. BDE는 설정하셨죠? Query 나 Table를 데이타베이스 이름과...
-
이수정•2000.03.22 19:43DB 를 New 로 생성 시켰는데.. SQL Server 로 해 놓으니.. 패스워드를 물어보는데.. 패스워드를 설정...
-
까마귀•2000.03.23 00:43이수정 wrote: > DB 를 New 로 생성 시켰는데.. > > SQL Server 로 해 놓으니.. 패스워드를 물어보는데...
-
- 유상민
- 2000.03.22 10:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 혜진이
- •
- 2000.03.22 09:56
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.22 18:42다음과 같이 하세요. 다음은 파일목록을 리스트 박스에 넣는 예제입니다. 제가 알기론 TFileList란 객체는...
-
- 바보
- 2000.03.22 09:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 그런건 묻지 말아요~!
- •
- 2000.03.22 08:10
- 2 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.03.22 10:44안녕하셔요! 나도 이런건 안해봐서 모르지만 단순무지한 방법으로 해보왔는데. 나중에 더 간단한 소스 발...
-
바보•2000.03.22 09:13Trim을 쓰세요... 왼쪽을 자를려면... Ltrim 오른쪽을 자를려면.. Rtrim 양쪽다 다를려면.. Trim if...
-
- 김정일
- •
- 2000.03.22 06:48
- 1 COMMENTS
- /
- 0 LIKES
-
젠키•2000.03.22 17:56김정일 wrote: > 예를들어, > C:Program FilesTestTest.exe > 라는 파일명을 이용해서, > 현재 이 프...
-
- 지누
- •
- 2000.03.22 05:29
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.22 20:01Assign메소드를 쓰세요. 대부분의 이미지 객체엔 다 있으니까요... 예) DestBitmap.Assign(SourceBitmap...
-
바보•2000.03.22 09:21그냥 mouseDown 할때... image1.picture.bitmap := image2.picture.bitmap; 이렇게 넣어 버리면 안될까...
-
- 윤진석
- •
- 2000.03.22 05:12
- 1 COMMENTS
- /
- 0 LIKES
-
바보•2000.03.22 09:29전 바보라서 암꺼두 몰라요!! 그냥 제생각에는 정렬하는 시간보다.. DATA를 읽고..뿌려 줄때 더 많이 걸릴...
-
- 이용현
- 2000.03.22 04:35
- 0 COMMENTS
- /
- 0 LIKES
-
- 부탁해요
- 2000.03.22 04:01
- 0 COMMENTS
- /
- 0 LIKES
-
- Paddy
- •
- 2000.03.22 03:51
- 2 COMMENTS
- /
- 0 LIKES
안녕들 하세요... 처음에는 쉬워 보이던데 막상 하니까 생각보다 까다롭더군요... 회원관리 프로그램을 작성 할려구요. 1. Main폼에서 회원관리를 선택하면 Modal폼이 뜨면서 StringGrid에 회원에 관한 정보를 뛰우게 하였습니다. 그다음...-
박권섭•2000.05.17 05:16Paddy wrote: > 안녕들 하세요... > > 처음에는 쉬워 보이던데 막상 하니까 생각보다 까다롭더군요... ...
-
최용일•2000.03.22 05:33서브폼을 생성하는 부분이 잘못된 것 같군요. 이 부분만 해결되면 되겠는 데요... |procedure TUserMan...
-
- 서진현
- 2000.03.22 03:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 최은정
- •
- 2000.03.22 03:18
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.03.22 05:36다음과 같이 넣으세요... a := PageControl1.ActivePage.TabIndex; 최은정 wrote: > 델왕초 입니다....
-
- 김홍만
- •
- 2000.03.22 02:56
- 1 COMMENTS
- /
- 0 LIKES
-
젠키•2000.03.22 18:00김홍만 wrote: > [질문] > 프로그램을 실행하니 단독으로 실행할수 없는 프로그램이라고 메세지가 나오는...
> 안녕들 하세요...
>
> 처음에는 쉬워 보이던데 막상 하니까 생각보다 까다롭더군요...
>
> 회원관리 프로그램을 작성 할려구요.
>
> 1. Main폼에서 회원관리를 선택하면 Modal폼이 뜨면서 StringGrid에 회원에 관한 정보를
> 뛰우게 하였습니다. 그다음에는 회원정보를 수정하기 위해 수정하려는 회원의 Row를
> 더블클릭해서 새로운 Modal폼을 뛰운다음 Edit 박스에 선택된 회원의 Data들이 나타나게
> 해서 수정하려고 하는데... 폼사이의 변수 전달이 생각보다 안되서요.
>
> 2. 위에서 나타난 수정하려는 두번째 폼에서 우편번호 옆에 스피드 버튼을 두어서 우편번호
> 검색창이 Modal폼으로 나타나게 했습니다. 그런다음 원하는 주소 및 우편번호를 검색해서
> 해당 Row를 클릭하면 회원정보 수정창에 자동으로 들어가게 하려는데 이것 역시 잘 안되네요
>
> 소스는 다음과 같이 해보았거든요
>
> 첫번째 회원정보가 나타나는 폼 : UserManager
> 두번째 회원 개개인의 정보가 나타나는 폼 : UserInfo
> 세번째 우편번호 검색폼 : Zip
>
> 1.
> procedure TUserManager.GridDblClick(Sender: TObject);
> begin
> with TUserInfo.Create(self) do begin
> try
> if UserManager.Grid.Cells[0, 1] <> '' then
> UserInfo.Edit1.Text :=
> UserManager.Grid.Cells[0, Usermanager.Grid.Row];
> ShowModal;
> finally
> Free;
> end;
> end;
> end;
>
> 이렇게 하니까... 엑세스 바이올래이션 에러가 나서요.
>
procedure TUserManager.GridDblClick(Sender: TObject);
begin
UserInfo := TUserInfo.Create(self) ;
try
if UserManager.Grid.Cells[0, 1] <> '' then
UserInfo.Edit1.Text := UserManager.Grid.Cells[0, Usermanager.Grid.Row];
UserInfo.ShowModal;
finally
UserInfo.Free;
end;
end;
와 같이 Modal 폼의 생성 부분을 분리하셔야 하겠습니다.
( 혹시나 ??? Uses 란에 UserManager 가 적혀 있어야 합니다. )