说说各位实现登陆的方法！

Question

说说各位实现登陆的方法！

Answer 1

Application.CreateForm(Tlogform, LogForm);
  logform.Update;
  logform.show;
  if logform.Is_Log=true then
    begin
    Application.Initialize;
    Application.CreateForm(Tmainfrm, mainfrm);
   // Application.CreateForm(TLogForm, LogForm);
    Application.Run;
我的！

Answer 2

Application.CreateForm(Tlogform, LogForm);
  if logform.ShowModal = mrOK then
    begin
    Application.Initialize;
    Application.CreateForm(Tmainfrm, mainfrm);
   // Application.CreateForm(TLogForm, LogForm);
    Application.Run;

Answer 3

Application.CreateForm(Tlogform, LogForm);
  LogForm.ShowModal;  if logform.Is_Log then
    begin
    Application.Initialize;
    Application.CreateForm(Tmainfrm, mainfrm);
   // Application.CreateForm(TLogForm, LogForm);
    Application.Run;    End;  logForm.Free;

Answer 4

//创建登录窗体
  FormEntry:=TFormEntry.Create(Application);
  FormEntry.ShowModal;//创建主窗体
  Application.CreateForm(TMainForm, MainForm);
  MainForm.Show;
  if FormEntry.ModalResult<>mrOk then
    Application.Terminate;
  FormEntry.Free;  Application.Run;

Answer 5

shenjhshen(公子)厉害，常用的都做成了控件，有时间给我发几个好不好，我学习学习
[email protected],我也把常用的都做成控件，尤其是报表