问几个简单的问题。

Question

首先
then 和 else 中的语句如果不止一句的话最好加个 begin  end;
我不知道showDlg是什么，我一般用MessageDlg

Answer 1

begin
  if ComboBox1.Text='管理员‘ and Edit1.text='12345' then 
  begin
     form1.close;
     form2.show;
  else
  begin
     messagedlg('用户名或密码不真确!',mtWarning,[mbOK],0);
     exit;
  end;
  end;
可以用数据库实现。

Answer 2

漏掉了括号---必须加括号否则通不过
if (ComboBox1.Text='管理员') and (Edit1.text='12345') then

Answer 3

delphi中隐藏和关闭有区别吗？

Answer 4

创建两个窗口：MainForm, LogonForm在dpr工程文件里，创建了两个窗口之后的情形如下：begin
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end;你可以在Application.CreateForm(TMainForm, MainForm);
的下一条语句插入：
  LogonForm := TLogonForm.Create(nil);
  LogonForm.ShowModal;             // 如果你希望主窗口继续显示，则可以使用LogonForm.Show;
这样，登录窗口就做好了。然后在登录窗口的登录按钮的OnClick事件里写入如下代码：
begin
  if (edtUserID.Text = 'LogonName') and (edtPwd.Text = '123') then
    Self.Close;
  else
    ShowMessage('登录信息错误,无法登录');
end;在登录窗口的取消登录按钮的OnClick事件里写入如下代码：
begin
  Application.Terminate;
end;在登录窗口的OnClose事件里写入：
begin
  Action := caFree;           // 成功登录则把登录窗口释放掉。
end;另外一个需要解决的问题就是登录窗口的Alt+F4的系统按键，你需要屏蔽它；
首先在TLogonForm的protected段里面做如下声明：
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;然后在完成它的代码：
procedure TLogonForm.WMSysCommand(var Msg: TWMSysCommand);
begin
  case Msg.CmdType of
    SC_CLOSE: ;      // Do nothing
  else
    inherited;
  end;//case
end;这样一个登录窗口基本上就完成了。

Answer 5

procedure TForm1.Button1Click(Sender:TObject);
begin
  if ComboBox1.Text='管理员‘ and Edit1.text='12345' then 
  begin
    Form1.Free;
    Form1:=nil;
    Form2.Show;
  end
  else
  begin
    MessageDlg('用户名或密码不真确!',mtWarning,[mbOK],0);
    exit;
  end;
end;

Answer 6

procedure TForm1.Button1Click(Sender:TObject);
begin
  if (ComboBox1.Text='管理员‘) and (Edit1.text='12345') then 
  begin
    Form1.Free;
    Form2.Show;
  end
  else
  begin
    MessageDlg('用户名或密码不真确!',mtWarning,[mbOK],0);
    exit;
  end;
end;