안녕하세여..타락임다..^^

TDatabase 컴포넌트를 사용하면 사용자가 서버 데이터에 로그인하는 과정을 직접 제어할수 있슴다. 기본 로그인 대화상자는 사용자 이름과 패스워드만을 묻지만, 특정한 상황에서는 그 이외의 정보를 사용자에게 물을 수도 있슴다. 아니만 단지 대화상자의 모습을 좀더 멋지고 예쁘게 꾸미고 싶을 수도 있슴다. 어쨌든 기본 로그인 대화상자가 마음에 들지 않는다면 로그인 대화상자를 직접 작성해서 사용할수도 있슴다.

우선, TDatabase.LoginPrompt 속성을 True 로 함다. 그담에 TDatabase.OnLogin 이벤트에서 사용자 로그인 대화상자를 띄웁니다. OnLogin 이벤트는 TDatabase.LoginPrompt 속성이 True인 상태에서 TDatabase.Connected 속성이 True가 되면 실행됨다.

다음이 사용자 로그인 폼

function OKLogin(ALoginParams: TStrings): word;
var
   FrmLogin : TFrmLogin;
begin
   FrmLogin := TFrmLogin.Create(Application);
   try
       Result := FrmLogin.ShowModal;
       if Result = mrOK then
       begin
           ALoginParams.Values['USER NAME'] := FrmLogin.edtUserName.Text;
           ALoginParams.Values['PASSWORD'] := FrmLogin.edtPassWord.Text;
       end;
   finally
       FrmLogin.Free;
   end;
end;

다음에 TDatabase.OnLogin 이벤트에서..

procedure TFrmMain.dbMainLogin(Database: TDatabase;
   LoginParams: TStrings);
begin
   OKLogin(LoginParams);
end;

즐푸하세여..^^

타락천사..