메인윈도우의 name이 FrmMain, 자식윈도우 name이 FrmChild라면

.

.

.

implementation

uses uChild;//FrmChild의 유니트명

.

.

.

var

FrmChild:TFrmChild;

begin

FrmChild:=TFrmChild.Create(self);

FrmChild.Show; //없어도 되는데 없으면 경고메세지 나옴.

.

.

.



도움이 되었으면 합니다.

end;



이상석 wrote:

> 안녕하세요 이상석이라고합니다.

> 저는 시사영어사 토익위원회 재직중에 있습니다.

> 사내 프로그램을 개발 중인데 MDI폼에서 자식윈도우로 LOGIN

> 윈도우를 만들었습니다. 그리고 ID와 Password가 맞으면 다른

> 윈도우로 넘어가도록 하는데, LOGIN윈도우에서 ID,Password확인하는

> 것까지는 되었는데, 다른 자식윈도우가 만들어 지지 않습니다.

> 어떻게 해야하는지요?

> 부탁드립니다.. 그럼 20000.

> --LOGIN 확인 버튼 부분 소스------------------

> procedure TFormLogin.BtnOkClick(Sender: TObject);

> begin

> with DMtwt.QueryUser do begin

> close;

> Sql.Clear;

> Sql.ADD('Select ID From User ');

> Sql.Add('Where ID= "' + EditID.Text + '" ');

> Open;

> end;

>

> with DMtwt.QueryUser2 do begin

> close;

> Sql.Clear;

> Sql.ADD('Select Password From User ');

> Sql.Add('Where Password= "' + EditPassword.Text + '" ');

> Open;

> end;

> //------>로그인 시작 부분

> If Length(EditID.Text) = 0 Then

> begin

> Application.Messagebox('ID를 넣어주세요','확인',MB_OK);

> Exit;

> end

> Else If Length(EditPassword.Text) = 0 Then

> begin

> Application.Messagebox('패스워드를 넣어주세요','확인',MB_OK);

> Exit;

> end

> Else If DMtwt.QueryUser.FieldByName('ID').Asstring = EditID.Text Then//and

> if DMtwt.QueryUser2.FieldByName('Password').Asstring = EditPassword.Text Then

> close

> Else

> begin

> Application.Messagebox('사용자나 패스워드가 틀립니다.','확인',MB_OK);

> Exit;

> EditID.Setfocus;

> end;

> //-----> 로그인 확인 끝 부분

> end;

>

모승열 wrote:

> 메인윈도우의 name이 FrmMain, 자식윈도우 name이 FrmChild라면

> .

> .

> .

> implementation

> uses uChild;//FrmChild의 유니트명

> .

> .

> .

> var

> FrmChild:TFrmChild;

> begin

> FrmChild:=TFrmChild.Create(self);

> FrmChild.Show; //없어도 되는데 없으면 경고메세지 나옴.

> .

> .

> .

>

> 도움이 되었으면 합니다.

> end;

>

> 이상석 wrote:

> > 안녕하세요 이상석이라고합니다.

> > 저는 시사영어사 토익위원회 재직중에 있습니다.

> > 사내 프로그램을 개발 중인데 MDI폼에서 자식윈도우로 LOGIN

> > 윈도우를 만들었습니다. 그리고 ID와 Password가 맞으면 다른

> > 윈도우로 넘어가도록 하는데, LOGIN윈도우에서 ID,Password확인하는

> > 것까지는 되었는데, 다른 자식윈도우가 만들어 지지 않습니다.

> > 어떻게 해야하는지요?

> > 부탁드립니다.. 그럼 20000.

> > --LOGIN 확인 버튼 부분 소스------------------

> > procedure TFormLogin.BtnOkClick(Sender: TObject);

> > begin

> > with DMtwt.QueryUser do begin

> > close;

> > Sql.Clear;

> > Sql.ADD('Select ID From User ');

> > Sql.Add('Where ID= "' + EditID.Text + '" ');

> > Open;

> > end;

> >

> > with DMtwt.QueryUser2 do begin

> > close;

> > Sql.Clear;

> > Sql.ADD('Select Password From User ');

> > Sql.Add('Where Password= "' + EditPassword.Text + '" ');

> > Open;

> > end;

> > //------>로그인 시작 부분

> > If Length(EditID.Text) = 0 Then

> > begin

> > Application.Messagebox('ID를 넣어주세요','확인',MB_OK);

> > Exit;

> > end

> > Else If Length(EditPassword.Text) = 0 Then

> > begin

> > Application.Messagebox('패스워드를 넣어주세요','확인',MB_OK);

> > Exit;

> > end

> > Else If DMtwt.QueryUser.FieldByName('ID').Asstring = EditID.Text Then//and

> > if DMtwt.QueryUser2.FieldByName('Password').Asstring = EditPassword.Text Then

> > close

> > Else

> > begin

> > Application.Messagebox('사용자나 패스워드가 틀립니다.','확인',MB_OK);

> > Exit;

> > EditID.Setfocus;

> > end;

> > //-----> 로그인 확인 끝 부분

> > end;

> >

>

>

많은 도움이 되었습니다.

그런데 어느부분에 써 주어야하난요? Login은 MDIChild이고, 확인 부분에

위의 코드를 넣어보니 다음 열리는 창도 닫아지는데...

다음과 같이 넣었습니다.

------------------------전체 소스 코딩---------------

unit login;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Db, DBTables, Buttons;



type

TFormLogin = class(TForm)

GroupBox1: TGroupBox;

BtnOk: TBitBtn;

BtnCancel: TBitBtn;

Label1: TLabel;

Label2: TLabel;

EditID: TEdit;

EditPassword: TEdit;

procedure BtnCancelClick(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure BtnOkClick(Sender: TObject);



private

{ Private declarations }

public

{ Public declarations }

end;



var

FormLogin: TFormLogin;



implementation



{$R *.DFM}

uses

DM_TWT,iniFiles, FormExam;





procedure TFormLogin.BtnCancelClick(Sender: TObject);

begin

close;

end;



procedure TFormLogin.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caFree;

end;



procedure TFormLogin.BtnOkClick(Sender: TObject);

var ForExamInsert:TFormExamInsert;

begin

with DMtwt.QueryUser do begin

close;

Sql.Clear;

Sql.ADD('Select ID From User ');

Sql.Add('Where ID= "' + EditID.Text + '" ');

Open;

end;



with DMtwt.QueryUser2 do begin

close;

Sql.Clear;

Sql.ADD('Select Password From User ');

Sql.Add('Where Password= "' + EditPassword.Text + '" ');

Open;

end;

//------>로그인 시작 부분

If Length(EditID.Text) = 0 Then

begin

Application.Messagebox('ID를 넣어주세요','확인',MB_OK);

Exit;

end

Else If Length(EditPassword.Text) = 0 Then

begin

Application.Messagebox('패스워드를 넣어주세요','확인',MB_OK);

Exit;

end

Else If DMtwt.QueryUser.FieldByName('ID').Asstring = EditID.Text Then//and

if DMtwt.QueryUser2.FieldByName('Password').Asstring = EditPassword.Text Then

begin

close

end

Else

begin

Application.Messagebox('사용자나 패스워드가 틀립니다.','확인',MB_OK);

Exit;

EditID.Setfocus;

end;

//-----> 로그인 확인 끝 부분

FormExamInsert:=TFOrmExamInsert.Create(self);

FormExamInsert.Show; //없어도 되는데 없으면 경고메세지 나옴.

end;



end.

---------------------------------------------

죄송하지만 다시 알려주십시요. 그럼 즐거운 하루되세요.

20000.