登录的问题？？

Question

我现在想设置密码登录，然后成功才能进入程序主界面，那么这个过程怎么写呀？？如果不成功则程序停止？？怎么写代码呀？？在哪里写呀？？详细的？？？

Answer 1

Delphi5、Win98下通过，你自己改一下吧！begin
  logoForm := TlogoForm.Create(Application);
  Application.Title := '权限验证';
  logoForm.ShowModal;
  if logoForm.ModalResult=1 then
  begin
     Application.Initialize;
     Application.Title := '网吧财务管理系统';
     Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TNDM, NDM);
  Application.Run;
  end;
end.procedure TlogoForm.YesBitBtnClick(Sender: TObject);
var
   cs,ce: String;
begin
   cs := ComboBox1.Text;
   ce := Edit1.Text;
   landTable.Active := True;
   with landTable do
      if Locate('Uname;Upass',VarArrayOf([cs,ce]),[loPartialKey]) then
      begin
         UserLevel := landTable['Ulevel'];
         landTable.Active := False;
         modalresult := mrOK;
      end;
end;

Answer 2

你别叫开发之神了叫开发未入门吧.....去找本Delphi的参考书先看看

Answer 3

这不是很简单吗，你先做个登陆界面，用来接受用户的的输入用户名和密码，如果验证通过，new出你的程序主界面，不然就application.terminate()

Answer 4

好呀？？不错的建议，我也是这么想的，不过delphi我却实是新学的，