show的显示有关问题

show的显示问题
运行后，输入用户和密码点确定，Login消失了，但是ManageForm或ServeingForm都没有显示

这是代码：
unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables;

type
  TLoginForm = class(TForm)
  Table1: TTable;
  DataSource1: TDataSource;
  GroupBox1: TGroupBox;
  Label1: TLabel;
  Label2: TLabel;
  Edit1: TEdit;
  Edit2: TEdit;
  Button1: TButton;
  Button2: TButton;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
  private
  { Private declarations }
  public
  { Public declarations }
  end;

var
  LoginForm,ManageForm,ServeingForm: TLoginForm;






implementation

  uses Serveing,Manage;


{$R *.dfm}

procedure TLoginForm.Button1Click(Sender: TObject);
Var
aname,apassword:string;


begin

  aname:=trim(Edit1.Text);
  apassword:=trim(Edit2.Text);

  Table1.Open;
  Table1.SetKey;
  Table1.Fields[0].AsString:=aname;
  if Table1.GotoKey then
  if Table1.Fields[1].AsString=apassword then

  if Table1.Fields[2].AsString='内管' then
  begin
  Table1.Close;
  LoginForm.Close;
  ManageForm:=TLoginForm.Create(Application);
  ManageForm.show
  end

  else

  begin
  Table1.Close;
  LoginForm.Close;
  ServeingForm:=TLoginForm.Create(Application);
  ServeingForm.Show
  end

  else

  begin
  MessageDlg('您不是合法用户，请退出！',mtInformation,[mbOk],0);

  Table1.Close;
  Loginform.Close;
  end;

end;

procedure TLoginForm.Button2Click(Sender: TObject);
begin
  Close;
end;

end.

[解决办法]

Delphi(Pascal) code

你的写法太乱了，但看得出来你这样肯定是不行的。需要把  LoginForm隐藏了而不是关闭;程序应该这样改。  LoginForm.Hide();  ManageForm:=TLoginForm.Create(Application);  ManageForm.show;  LoginForm.Close;两处地方都是。