双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何做系统登陆?

2010-02-24 05:50:07 302 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lostmoon 墨衍会员 · AI 创作全网分发关注 + 加入社区

Android实现模拟登陆正方系统查成绩 Android实现模拟登陆正方系统查成绩相信有很多小伙伴的学校在使用的都是正方系统作为教务系统，在平时我们会图方便利用各种微信公众号、超级课程表之类的东西查成绩，今天就跟大家示范一下如何自己编码模拟登陆正方系统并获得我们需要的信息。本次教程需要备有如下知识：了解http协议、抓包、Java网络请求的写法、解析html页面的开源库Jsoup、以及方便网络操作的OkHttp（这个如果不熟悉可以用Andr 阅读详情

有几个表单, FrmWec是一进入软件时显示的欢迎界面,FrmLog是用户登陆窗体,FrmMain是登陆成功后的主窗体.

如果按照这个步骤,做一个较好的登陆程序? 我原来用的是show和Hide的方式,觉得很不妥.

请给写个成熟的,大众化的代码.

...全文

爬虫模拟登陆强智教务系统爬虫模拟登陆强智教务系统阅读详情

lostmoon

Windows SDK/API 1,184 成员 22,326 内容

+ 关注 + 加入社区

切换为时间正序

buding79 2010-02-25

打赏
举报

这个我觉得主要是看你了。
是先显示登陆，后显示主界面。
还是先显示主界面，还是再登陆，看你的控制了。

我写的程序是先登录的，直接写在program单元，写在最前。
//登陆
if frmlogin=nil then frmLogin:=tfrmLogin.Create(nil);
try
if not(frmLogin.ShowModal = mrok) then
begin
exit;
end;
finally
frmLogin.Free;
end;

Application.Initialize;

7年 2010-02-25

打赏
举报

用SHOWMODEL，无非就是登陆成功显示主窗体呗。

「已注销」 2010-02-25

打赏
举报

我的一点代码，仅供参考

procedure TFrmLogin.btnLoginClick(Sender: TObject);
var
Id: string;
password: string;
begin
if cbbUser.Items.Count = 0 then Exit;
id := PComboxID(cbbUser.Items.Objects[cbbUser.ItemIndex])._ID;
if Trim(edtPwd.Text)='' then
begin
UErrorMsgBox('密码不允许为空！');
edtPwd.SetFocus;
Exit;
end;
if qryUser.Locate('Us_ID', id, [loCaseInsensitive]) then
begin
password := qryUser.FieldByName('Us_Password').AsString;
if Trim(edtPwd.Text)<> password then
begin
UErrorMsgBox('密码错误，请重新输入！');
edtPwd.Clear;
edtPwd.SetFocus;
Exit;
end;
end;
with qryUser do
begin
with gUserInfo do
begin
_UserID:=FieldByName('Us_ID').AsInteger;
_UserName :=FieldByName('Us_Name').AsString;

end;
Close;
end;
ModalResult := mrOk;
end;

欢迎界面在工程文件里写即可。

yct0605 2010-02-25

打赏
举报

一闪而过的窗体写在工程文件里面

yct0605 2010-02-25

打赏
举报



1. 登录窗体先显示，登录后显示主窗体



用两个窗口举例如下：

FORM1是主窗体，FORM2是动态生成的登陆窗体（project - > options中的forms页面，把form2从左边拖到右边去），form2上面有两个按钮，一个是登陆，一个是取消，对应代码分别如下：



form2的代码：



unit Unit2;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm2 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    {   Private   declarations   }

  public

    {   Public   declarations   }

  end;



var

  Form2: TForm2;



implementation



{$R   *.dfm}



procedure TForm2.Button1Click(Sender: TObject);

begin

  ModalResult := mrOk;

end;



procedure TForm2.Button2Click(Sender: TObject);

begin

  ModalResult := mrCancel;

end;



end.



然后在工程文件中，默认为project1.pas, 代码如下：



program Project1;



uses

  Forms,

  Controls,

  Unit1 in 'Unit1.pas' {Form1},

  Unit2 in 'Unit2.pas' {Form2};



{$R   *.res}



begin

  Application.Initialize;

  Form2 := TForm2.Create(nil);

  try

    if Form2.ShowModal = mrOk then begin

      Application.CreateForm(TForm1, Form1);

      Application.Run;

    end;

  finally

    Form2.Free;

  end;

end.



运行，查看效果，会发现程序先出现的是form2，当点击了登陆按钮，可以显示主窗体，否则程序结束。至于你说的数据连接窗口，同样的方法，自己编码控制吧。



2 ．两个窗体一起闪烁,两个窗口一起显示,登录窗体在主窗体上方显示,也就是说层叠的, 不过得登录了之后才能使主窗体活动



form1中代码如下：



unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;



type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private

    {   Private   declarations   }

  public

    {   Public   declarations   }

  end;



var

  Form1: TForm1;



implementation



uses Unit2;



{$R   *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

  Form2 := TForm2.Create(nil);

  Form1.Show;

  try

    if Form2.ShowModal <> mrOk then

      Application.Terminate;

  finally

    Form2.Free;

  end;

end;



end.



工程文件的代码如下：



program Project2;



uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1},

  Unit2 in 'Unit2.pas' {Form2};



{$R   *.res}



begin

  Application.Initialize;



  Application.CreateForm(TForm1, Form1);



  Application.Run;

end.



form2的代码如下：



unit Unit2;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm2 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    {   Private   declarations   }

  public

    {   Public   declarations   }

  end;



var

  Form2: TForm2;



implementation



{$R   *.dfm}



procedure TForm2.Button1Click(Sender: TObject);

begin

  ModalResult := mrOk;

end;



procedure TForm2.Button2Click(Sender: TObject);

begin

  ModalResult := mrCancel;

end;



end.

✦双11狂欢大促✦

如何做系统登陆?

相关推荐

双11狂欢大促