怎样作登录窗体

原创 2005年04月23日 14:53:00

⑴让登录窗体在主窗体运行前打开,
⑵根据登录窗体返回值判断主窗体是否应该运行。
详细代码如下:

//project.dpr文件

program project;
... ...
... ...

begin
 Application.Initialize;
 

   EntryFrm:=TEntryFrm.Create(application); //登录窗口
   if EntryFrm.ShowModal=mrOK then          //登录窗体关闭时返回了mrOK值,说明登录成功
   begin
     Application.CreateForm(TMainFrm, MainFrm);
     //其它auto-create forms
   end;
   EntryFrm.Free;
   application.Terminate


 Application.Title := '某某管理系统';
 Application.Run;
end.

//entry.pas 登录窗体文件
var
 count:short;              //登录次数

{$R *.dfm}

procedure TEntryFrm.BitBtn2Click(Sender: TObject);//取消登录
begin
 application.Terminate;
end;

procedure TEntryFrm.BitBtn1Click(Sender: TObject);//确定登录
begin
 Inc(count);
 ID:=edit1.Text;          //帐号
 Pas:=edit2.Text;         //密码;ID,Pas是全局变量

//※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※//
 IDInfo.Open;
 if IDInfo.Locate('ID',ID,[]) then
 begin
   if StrEncry(IDInfo.FieldByName('Pas').AsString)=Pas then //密码解密,登录成功
   begin
     Pop:=IDInfo.fieldbyname('Pop').AsString;               //取得权限
     writelog(ID,'登录');                                   //写入日志
     self.ModalResult:=mrOK;                                //关闭窗口并返回mrOK值
   end;
 end;
 if count>=3 then self.ModalResult:=mrabort;                //只允许登录3次
 IDInfo.Close;
//※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※//


 edit1.Text:='';
 edit2.Text:='';
 edit1.SetFocus;
end;    

C#登录窗体设计(初学者用)

  • 2008年11月24日 13:22
  • 42KB
  • 下载

登录窗体设计

  • 2013年05月25日 14:28
  • 373KB
  • 下载

机房收费系统——登录窗体

前言 登录窗体是一个软件的开始,所以不管是学生管理系统还是机房收费系统我都先进行的登录窗体!接下来,就简单的总结一下! 一、窗体结构登录窗体结构设置还是比较简单的! ![登录窗体的结构](http:/...

C#制作简单的登录窗体

  • 2012年12月07日 17:27
  • 51KB
  • 下载

delphi登录窗体写法

  • 2015年02月14日 09:23
  • 59KB
  • 下载

关于登录窗体的全流程制作

在做一些特殊格式窗体时,需要对系统默认Form做一定的处理,已达到特定的目的,下面就介绍下“登录”窗体的制作,需要实现的效果: 1.无标题 2.可移动 3.窗体外观格式非矩形设计 4.键盘响应 步骤...
  • chenep
  • chenep
  • 2013年09月08日 20:47
  • 518

VB登录窗体应用

  • 2013年12月28日 10:36
  • 70KB
  • 下载

C#调用域账户登录窗体代码 .

  • 2012年12月11日 17:22
  • 27KB
  • 下载

C#编写机房收费系统的登录窗体

这篇博客是对上一篇博客的纠正(上一个博客有点小问题)和机房登录窗体的详细编写。 采用三层的形式。 首先分出三层+实体层: 窗体设计: U层代码: Form1窗...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:怎样作登录窗体
举报原因:
原因补充:

(最多只允许输入30个字)