간단한 로그인을 체크하는 프로그램입니다.

정리를 안한거니까 좀 수정하고 해서 사용하면 쓸만 할겁니다.



......



Dm.loginqr.close;

Dm.loginqr.SQL.clear;

Dm.LoginQr.SQL.Add(' select 로그인,암호 from dbo.UserLogin where 로그인

+ ' = ''' + edit1.text + '''');

Dm.LoginQR.Open;



if (edit1.text <> '') and (edit2.text <> '') then

begin

if edit1.text = Dm.LoginQr.FieldByName('로그인').text then

begin

if edit2.Text = Dm.LoginQr.FieldByName('암호').text then

begin

MessageDlg('LOGIN을 허가합니다.', mtInformation,[mbOk],

0);

end

else

begin

MessageDlg('PASSWORD가 틀립니다.' + #13 + '다시 확인하고

입력하세요. ', mtInformation,[mbOk], 0);

edit2.Text := '';

edit2.SetFocus;

end;

end

else

begin

MessageDlg('LOGIN이 틀립니다.' + #13 + '다시 확인하고 입력하세

요.' , mtInformation,[mbOk], 0);

edit1.Text := '';

edit1.Setfocus;

end;

end

else If (edit1.Text = '') and (edit2.Text = '') then

begin

if MessageDlg('Login과 Password를 입력하세요.', mtConfirmation,

[mbYes, mbNo], 0) = mrYes then

begin

edit1.SetFocus;

end;

end

else if edit1.Text = '' then

begin

if MessageDlg('Login을 입력하세요.', mtConfirmation, [mbYes, mbNo],

0) = mrYes then

begin

edit2.SetFocus;

end;

end

else if edit2.Text = '' then

begin

if MessageDlg('Password를 입력하세요.', mtConfirmation, [mbYes,

mbNo], 0) = mrYes then

begin

edit1.SetFocus;

end;

end;

안녕 하세요.

흠..그럼 컴포넌트는 어떤식으로 해야하는지 ㅠ.ㅠ

히궁..

까마득 합니다용.

어떤컴포넌트를 쓰는지 더 자세하게좀 알려 주셨으면 합니다.

정말로 감사 합니다.







김태균 께서 말씀하시기를...

> 간단한 로그인을 체크하는 프로그램입니다.

> 정리를 안한거니까 좀 수정하고 해서 사용하면 쓸만 할겁니다.

>

> ......

>

> Dm.loginqr.close;

> Dm.loginqr.SQL.clear;

> Dm.LoginQr.SQL.Add(' select 로그인,암호 from dbo.UserLogin where 로그인

> + ' = ''' + edit1.text + '''');

> Dm.LoginQR.Open;

>

> if (edit1.text <> '') and (edit2.text <> '') then

> begin

> if edit1.text = Dm.LoginQr.FieldByName('로그인').text then

> begin

> if edit2.Text = Dm.LoginQr.FieldByName('암호').text then

> begin

> MessageDlg('LOGIN을 허가합니다.', mtInformation,[mbOk],

> 0);

> end

> else

> begin

> MessageDlg('PASSWORD가 틀립니다.' + #13 + '다시 확인하고

> 입력하세요. ', mtInformation,[mbOk], 0);

> edit2.Text := '';

> edit2.SetFocus;

> end;

> end

> else

> begin

> MessageDlg('LOGIN이 틀립니다.' + #13 + '다시 확인하고 입력하세

> 요.' , mtInformation,[mbOk], 0);

> edit1.Text := '';

> edit1.Setfocus;

> end;

> end

> else If (edit1.Text = '') and (edit2.Text = '') then

> begin

> if MessageDlg('Login과 Password를 입력하세요.', mtConfirmation,

> [mbYes, mbNo], 0) = mrYes then

> begin

> edit1.SetFocus;

> end;

> end

> else if edit1.Text = '' then

> begin

> if MessageDlg('Login을 입력하세요.', mtConfirmation, [mbYes, mbNo],

> 0) = mrYes then

> begin

> edit2.SetFocus;

> end;

> end

> else if edit2.Text = '' then

> begin

> if MessageDlg('Password를 입력하세요.', mtConfirmation, [mbYes,

> mbNo], 0) = mrYes then

> begin

> edit1.SetFocus;

> end;

> end;

제가 보내드린 소스에 있는 DM은 Datamodule이고요...



필요한 컴포넌트들은 Query, Edit 2개, Button1개가

돼겠네요...



참, 이제야 생각 났는데요 로그인 체크시에는 카운트

기능을 넣어서 3번 정도 로그인 실패시에는 프로그램을

종료하는게 일반적인데 그것을 빼먹었네요...



그럼 도움이 되시기를....

흑흑 정말 죄송해요.

초보는 역시 초보인가 붑니다 ㅠ.ㅠ

소그를 하나 작성해 줄수 없습니까?

제가 일단 해논 소스를 보내 드리지요.



unit Login;



interface



uses

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

StdCtrls, DBTables;



type

TLoginForm = class ( TForm )

Button1 : TButton;

Button2 : TButton;

Button3 : TButton;

Button4 : TButton;

Button5 : TButton;

Edit1 : TEdit;

Edit2 : TEdit;

Label1 : TLabel;

Label2 : TLabel;

Button6 : TButton;

Button7 : TButton;

procedure Button5Click ( Sender : TObject );

procedure Button6Click ( Sender : TObject );

procedure Button1Click ( Sender : TObject );

procedure Button2Click ( Sender : TObject );

procedure Button3Click ( Sender : TObject );

procedure Button4Click ( Sender : TObject );

private

{ Private declarations }

public

{ Public declarations }

end;



var

LoginForm : TLoginForm;



implementation



uses Battle;



{$R *.DFM}



procedure TLoginForm.Button5Click ( Sender : TObject );

begin

close;

end;



procedure TLoginForm.Button6Click ( Sender : TObject );

begin

BattleZone := TBattleZone.Create ( Application );

LoginForm.Hide;

BattleZone.Show;



end;



end.



이궁..위에서 보시듯이...로그인이 체크대면은 battlezone폼을 불러들이는

것입니다.

근대 sql연결방법에 대해 전혀 초보다 보니 ㅠ.ㅠ

흠냐뤼.

데이타모듈이 먼지도 므르것고

어따 추가할런지도 모르겄어용 ㅠ.ㅠ

어케 연결하는지도 .ㅠ.ㅠ

징징.

연결방법부터 차레로 설명해 주셨으면 합니다.



e-mail : shin@taewool.co.kr

icq : 43920199



입니다.

수고스럽겠지만 거듭 감사 드리며.꼬옥 부탁합니다.

꼭 제작하고 싶거든요.

로그인 체크하는것만 꼭 자세히 알려 주십시요.

사용법부터 ㅠ.ㅠ







김태균 께서 말씀하시기를...

> 제가 보내드린 소스에 있는 DM은 Datamodule이고요...

>

> 필요한 컴포넌트들은 Query, Edit 2개, Button1개가

> 돼겠네요...

>

> 참, 이제야 생각 났는데요 로그인 체크시에는 카운트

> 기능을 넣어서 3번 정도 로그인 실패시에는 프로그램을

> 종료하는게 일반적인데 그것을 빼먹었네요...

>

> 그럼 도움이 되시기를....

>