简单问题？

Question

先显示主窗体。
然后 
if   mimaform.showmodal=mrok then
  //do it yourself

Answer 1

做个form2，
然后form2.showmodal()

Answer 2

FrmUserLogin:=TFrmUserLogin.Create(nil);
Application.Initialize;
FrmUserLogin:=TFrmUserLogin.Create(nil);//密码验证窗体  
try
    FrmUserlogin.ShowModal ;
    if FrmUserlogin.LoginValue = True then//验证成功
    begin
      Application.CreateForm(TFrmMainUnit, FrmMainUnit);
      Application.Run;
    end;
  finally
    FrmUserlogin.Free;
  end;

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
var psd:string;
begin
IF inputquery('password','Please enter your password',psd) THEN
 begin
 IF psd='11' THEN
 begin
 form1.Show;
 end
 else
 application.Terminate; end;end;
对于较大的数据库系统,建议单开一个登录窗口!