我要做一个登陆窗口，怎么做？

Question

我要做一个登陆窗口，有关用户名和密码是存在数据库里的，请兄弟姐妹们指点一下，谢谢

Answer 1

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TLocateOptions Opts;
Opts.Clear();
Opts << loPartialKey;
Variant locvalues;
locvalues = Variant(Edit1->Text);
if(UserTable->Locate("ID",locvalues,Opts) == true)
      {
    if(Trim(UserTable->FieldByName("USERPASSWORD")->AsString) == Trim(Edit2->Text))
          {
          username = Trim(UserTable->FieldByName("USERNAME")->AsString);
          scbv = Trim(UserTable->FieldByName("QUANXIAN")->AsString);
          danwei = Trim(UserTable->FieldByName("DIQU")->AsString);           if(Trim(scbv) != "失业证")
                 {
                 MessageBox(NULL,"你不具有该权限!!!","对不起",MB_ICONINFORMATION);
                 Application->Terminate();
                 }
          Label1->Caption = username;
          Label2->Caption = danwei;
          suiImageButton5->Enabled = true;
          suiImageButton2->Enabled = true;
          suiImageButton3->Enabled = true;
          suiImageButton1->Enabled = true;
          Panel1->Visible = false;
          Panel1->Update();
          Label1->Caption = username ;
          Label2->Caption = danwei;
          Label3->Caption = DateToStr(Date());
          }
     else
         MessageBox(this,"错误的密码！！","错误",MB_ICONWARNING);
      }
else
      {
      MessageBox(NULL,"错误的帐号！！","错误",MB_ICONWARNING);
      }      
}

Answer 2

如果不想写的话
给你推荐个控件
bsSkinPasswordDialog

Answer 3

bsSkinPasswordDialog楼上的那有这个控件??