Q&A
- 하나의 데이타를 두개의 폼에(소스포함)
메인 메뉴에서 고객이라는 form과 기본정보라는 form을 선택할 수 있도록 해놓고
고객이라는 Form을 선택하여 form이 열려서 조회를 누르면 그곳에
소켓으로 받아온 데이타를 뿌려주고...
또 기본정보를 눌러 기본정보 form이 열려 그 기본정보의 고객정보조회를 누르면
마찬가지로 소켓으로 받은 같은(고객) 데이타를 뿌려주려고 합니다.
고객의 기본 툴은 프레임으로 만들었구요 이 프레임을 두 군데 form에 넣은 것입니다.
각각의 form을 선택하는 방법이 뭔지 알려주시면 고맙겠습니다.
소스는 아래와 같습니다.
if TelemarketingForm.Client_Frame1.(?) = true then ===> ?
begin
with TelemarketingForm.Client_Frame1 do
begin
StrPCopy(@HOST_CLIENT, temp);
PageControl1.ActivePage := TabSheet_Client;
with HOST_CLIENT do
begin
ClientID_Edit.Text := Global_Id;
Jumin_Edit.Text := JUMIN_NO;
Global_JuminNo := JUMIN_NO; //주민번호를 전역변수로.
CeoNo_Edit.Text := CEO_NO;
end;
end;
end
//고객만 조회시
else if then =======================> ?
begin
with Client_Form.Client_Frame1 do
begin
StrPCopy(@HOST_CLIENT, temp);
PageControl1.ActivePage := TabSheet_Client;
with HOST_CLIENT do
begin
ClientID_Edit.Text := Global_Id;
Jumin_Edit.Text := JUMIN_NO;
Global_JuminNo := JUMIN_NO; //주민번호를 전역변수로.
CeoNo_Edit.Text := CEO_NO;
end;
end;
end
고객이라는 Form을 선택하여 form이 열려서 조회를 누르면 그곳에
소켓으로 받아온 데이타를 뿌려주고...
또 기본정보를 눌러 기본정보 form이 열려 그 기본정보의 고객정보조회를 누르면
마찬가지로 소켓으로 받은 같은(고객) 데이타를 뿌려주려고 합니다.
고객의 기본 툴은 프레임으로 만들었구요 이 프레임을 두 군데 form에 넣은 것입니다.
각각의 form을 선택하는 방법이 뭔지 알려주시면 고맙겠습니다.
소스는 아래와 같습니다.
if TelemarketingForm.Client_Frame1.(?) = true then ===> ?
begin
with TelemarketingForm.Client_Frame1 do
begin
StrPCopy(@HOST_CLIENT, temp);
PageControl1.ActivePage := TabSheet_Client;
with HOST_CLIENT do
begin
ClientID_Edit.Text := Global_Id;
Jumin_Edit.Text := JUMIN_NO;
Global_JuminNo := JUMIN_NO; //주민번호를 전역변수로.
CeoNo_Edit.Text := CEO_NO;
end;
end;
end
//고객만 조회시
else if then =======================> ?
begin
with Client_Form.Client_Frame1 do
begin
StrPCopy(@HOST_CLIENT, temp);
PageControl1.ActivePage := TabSheet_Client;
with HOST_CLIENT do
begin
ClientID_Edit.Text := Global_Id;
Jumin_Edit.Text := JUMIN_NO;
Global_JuminNo := JUMIN_NO; //주민번호를 전역변수로.
CeoNo_Edit.Text := CEO_NO;
end;
end;
end
2
COMMENTS
-
-
나그네님 답변고맙습니다.
그런데 그것이 문제가 아니고요 soket으로 받아온 데이타를 ClientFrame에 넣는데요
기본정보에는 이 데이타가 나타나는데 고객정보에는 보여지지 않아서요...
기본정보와 고객정보는 같은 Frame을 각각의 Form에 넣은것이거든요...
나그네 wrote:
> 제가 질문을 잘 이해한 건지 모르겠는데요 폼 선택하는 거 메뉴를 두신다면서요...
> 뭐 버튼으로 하시던해서 tag로 구분두어서 클릭 이벤트는 같이 걸어 주시고
> tag가 1이면(이건 기본정보 버튼) 기본정보창 열고 tag가 2이면(이건 고객정보) 고객정보 열구요...
>
> ^뽀기^ wrote:
> > 메인 메뉴에서 고객이라는 form과 기본정보라는 form을 선택할 수 있도록 해놓고
> > 고객이라는 Form을 선택하여 form이 열려서 조회를 누르면 그곳에
> > 소켓으로 받아온 데이타를 뿌려주고...
> > 또 기본정보를 눌러 기본정보 form이 열려 그 기본정보의 고객정보조회를 누르면
> > 마찬가지로 소켓으로 받은 같은(고객) 데이타를 뿌려주려고 합니다.
> > 고객의 기본 툴은 프레임으로 만들었구요 이 프레임을 두 군데 form에 넣은 것입니다.
> >
> > 각각의 form을 선택하는 방법이 뭔지 알려주시면 고맙겠습니다.
> >
> > 소스는 아래와 같습니다.
> >
> > if TelemarketingForm.Client_Frame1.(?) = true then ===> ?
> > begin
> > with TelemarketingForm.Client_Frame1 do
> > begin
> > StrPCopy(@HOST_CLIENT, temp);
> > PageControl1.ActivePage := TabSheet_Client;
> > with HOST_CLIENT do
> > begin
> > ClientID_Edit.Text := Global_Id;
> > Jumin_Edit.Text := JUMIN_NO;
> > Global_JuminNo := JUMIN_NO; //주민번호를 전역변수로.
> > CeoNo_Edit.Text := CEO_NO;
> > end;
> > end;
> > end
> > //고객만 조회시
> > else if then =======================> ?
> > begin
> > with Client_Form.Client_Frame1 do
> > begin
> > StrPCopy(@HOST_CLIENT, temp);
> > PageControl1.ActivePage := TabSheet_Client;
> > with HOST_CLIENT do
> > begin
> > ClientID_Edit.Text := Global_Id;
> > Jumin_Edit.Text := JUMIN_NO;
> > Global_JuminNo := JUMIN_NO; //주민번호를 전역변수로.
> > CeoNo_Edit.Text := CEO_NO;
> > end;
> > end;
> > end
> >
(NOTICE) You must be logged in to comment on this post.
-
- 초보뽀록
- 2001.08.03 06:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 현진아버지
- 2001.08.03 06:00
- 0 COMMENTS
- /
- 0 LIKES
-
-
- ^뽀기^
- •
- 2001.08.03 04:07
- 2 COMMENTS
- /
- 0 LIKES
메인 메뉴에서 고객이라는 form과 기본정보라는 form을 선택할 수 있도록 해놓고 고객이라는 Form을 선택하여 form이 열려서 조회를 누르면 그곳에 소켓으로 받아온 데이타를 뿌려주고... 또 기본정보를 눌러 기본정보 form이 열려 그 기...-
나그네•2001.08.09 03:49제가 질문을 잘 이해한 건지 모르겠는데요 폼 선택하는 거 메뉴를 두신다면서요... 뭐 버튼으로 하시던해...
-
^뽀기^•2001.08.09 22:51나그네님 답변고맙습니다. 그런데 그것이 문제가 아니고요 soket으로 받아온 데이타를 ClientFrame에 넣는...
-
- 미얀이
- •
- 2001.08.03 03:56
- 3 COMMENTS
- /
- 0 LIKES
-
최용일•2001.08.03 04:23안녕하세요. 최용일입니다. Canvas.CopyRect함수를 이용해서 for문으로 돌리면 되겠네요... 사본캔버...
-
미얀이•2001.08.03 04:41용일님 답변해 주셔서 감사합니다. 그런데여...ㅠ.ㅠ 어케 하는건지 아직도 모르겠습니다. 델파이 he...
-
홍성락•2001.08.06 23:58미얀이 wrote: > 용일님 답변해 주셔서 감사합니다. > > 그런데여...ㅠ.ㅠ 어케 하는건지 아직도 모르...
-
- 준
- •
- 2001.08.03 03:27
- 2 COMMENTS
- /
- 0 LIKES
-
이명훈•2001.08.03 08:26전역변수로 MouseDowning이란 Boolean형의 데이터를 선언하고 MouseDown이벤트에서 MouseDowing을 True ...
-
홍성락•2001.08.03 03:44준 wrote: > 마우스가 눌려있는 상태인지를 어떻게 체크하지요..? > 마우스가 눌린 상태로 좌로 이동하면...
-
- jazz
- 2001.08.03 03:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 나옹맨
- •
- 2001.08.03 02:39
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2001.08.03 04:26안녕하세요. 최용일입니다. Frm_Mess란 폼을 새로 지정해주세요... 그럼 문제 없을듯... var Foun...
-
나옹맨•2001.08.03 20:24[Error] Main.pas(223): Incompatible types: 'TFrm_Mess' and 'TForm' 이런 에러가 나오는데요? 우...
-
- 송인섭
- •
- 2001.08.03 01:48
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.08.03 03:13안녕하세요.. 일단은 Char Type 의 버퍼에 데이터를 받구요 같은 포멧으로 Char Type의 구조체를 만드시...
-
- 한성민
- •
- 2001.08.03 01:26
- 3 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.03 03:16한성민 wrote: > 그냥더블클릭할때와 콘트롤키를 누른상태에서 더블클릭했을때 다른일을 시킬려고 합니다....
-
한성민•2001.08.03 02:33그런데 더블클릭 이벤트에서는 Shift를 인식못한다고 에러가 납니다.
-
홍성락•2001.08.03 03:46한성민 wrote: > 그런데 더블클릭 이벤트에서는 Shift를 인식못한다고 에러가 납니다. /////////////////...
-
- 이글루
- •
- 2001.08.03 00:12
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.08.03 04:34안녕하세요. 최용일입니다. 구현해서 사용하실려면 상당히 복잡하고 시간이 많이 걸릴텐데.... 그냥 ...
-
- 김명찬
- 2001.08.03 00:11
- 0 COMMENTS
- /
- 0 LIKES
-
- nayagod
- 2001.08.02 23:59
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이쵸
- 2001.08.02 23:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 스따시꺼
- 2001.08.02 23:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 델~초^^
- •
- 2001.08.03 02:38
- 1 COMMENTS
- /
- 0 LIKES
-
나그네•2001.08.14 01:03connections[0]과 connections[1] 과 같이 지정해서 사용하시면 안됩니다. connections[0]의 연결이 끊기...
-
- 허접한 넘팽이....
- •
- 2001.08.02 23:41
- 1 COMMENTS
- /
- 0 LIKES
-
김동환•2001.08.03 05:14허접한 넘팽이.... wrote: > 떠 허접한 질문점 할라구... > 실행파일을 시작프로그램에 등록하구 > 사용...
-
- 델러브
- •
- 2001.08.02 23:02
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.03 07:23델러브 wrote: > 안녕하세요. > 엑셀생성시에 좌우의 여백을 조절할수있을까요.. 데이타가 나온다음에는 ...
-
- 델사랑
- 2001.08.02 22:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 장용준
- •
- 2001.08.02 22:00
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.08.02 22:50장용준 wrote: > DB의 문자열에 있는 알파벳을 순차적으로 하려고 하는 데 방법 좀 알려주세요.... > >...
-
장용준•2001.08.02 23:05...
뭐 버튼으로 하시던해서 tag로 구분두어서 클릭 이벤트는 같이 걸어 주시고
tag가 1이면(이건 기본정보 버튼) 기본정보창 열고 tag가 2이면(이건 고객정보) 고객정보 열구요...
^뽀기^ wrote:
> 메인 메뉴에서 고객이라는 form과 기본정보라는 form을 선택할 수 있도록 해놓고
> 고객이라는 Form을 선택하여 form이 열려서 조회를 누르면 그곳에
> 소켓으로 받아온 데이타를 뿌려주고...
> 또 기본정보를 눌러 기본정보 form이 열려 그 기본정보의 고객정보조회를 누르면
> 마찬가지로 소켓으로 받은 같은(고객) 데이타를 뿌려주려고 합니다.
> 고객의 기본 툴은 프레임으로 만들었구요 이 프레임을 두 군데 form에 넣은 것입니다.
>
> 각각의 form을 선택하는 방법이 뭔지 알려주시면 고맙겠습니다.
>
> 소스는 아래와 같습니다.
>
> if TelemarketingForm.Client_Frame1.(?) = true then ===> ?
> begin
> with TelemarketingForm.Client_Frame1 do
> begin
> StrPCopy(@HOST_CLIENT, temp);
> PageControl1.ActivePage := TabSheet_Client;
> with HOST_CLIENT do
> begin
> ClientID_Edit.Text := Global_Id;
> Jumin_Edit.Text := JUMIN_NO;
> Global_JuminNo := JUMIN_NO; //주민번호를 전역변수로.
> CeoNo_Edit.Text := CEO_NO;
> end;
> end;
> end
> //고객만 조회시
> else if then =======================> ?
> begin
> with Client_Form.Client_Frame1 do
> begin
> StrPCopy(@HOST_CLIENT, temp);
> PageControl1.ActivePage := TabSheet_Client;
> with HOST_CLIENT do
> begin
> ClientID_Edit.Text := Global_Id;
> Jumin_Edit.Text := JUMIN_NO;
> Global_JuminNo := JUMIN_NO; //주민번호를 전역변수로.
> CeoNo_Edit.Text := CEO_NO;
> end;
> end;
> end
>