DELPHI用户登录方案
3.2 用户登录方案
在进入一个系统时,必须先在登录窗体中输入正确的用户名和密码才能进入。这样可以确保系统的安全性和保密性,登录窗体的制作按照系统的大小及用处,可以分为不同的登录窗体样式,在系统第一次登录前,首先要对操作员信息进行相应的设置。本节将对登录窗体及操作员管理窗体的制作过程进行详细的说明。
3.2.1 简单用户登录
简单用户登录,是指在登录窗体中只通过用户名及密码进行登录,用户登录后可以对系统中的数据进行任意操作。这是最简单的登录方式。
1.方案分析
在登录窗体中,输入用户名和密码,单击确定(或登录)按钮,系统将在数据表中查找有无相同的记录,如果有则进入主窗体;如果没有则给出错误提示。下面给出简单用户登录的流程图,如图3.3所示。
图3.3 简单用户登录流程图
在制作简单用户登录方案时,主要有以下几个难点:
(1)怎样在用户数据表中对用户名及密码进行添加或修改。
(2)如何在添加用户名时,提示用户名已经存在。
2.实施过程
在开发一些小型的超市管理软件时,因为超市的范围较小,不需要使用权限来制约用户,这时就可以使用简单用户登录方案。下面以一个小型超市为例,介绍简单登录方案的制作过程。
实例位置:光盘\mr\3\3.2\3.2.1\01
本方案实现的简单登录窗体,如图3.4所示。窗体中要有用户名及密码的输入文本框,为了使输入的密码处于保密状态,将密码文本框中的字符用“*”来表示。当用户名和密码正确时,单击“确定”按钮,将进入主窗体。
图3.4 简单登录窗体
在制作登录窗体前,首先要在数据库中制作一个用户表(tb_Briefness_User),该数据表记录了本系统的合法用户名及密码。tb_Briefness_User数据表的关系图如图3.5所示。
图3.5 tb_Briefness_User数据表的关系图
在设计tb_Briefness_User数据表时,为了能够对添加的用户名进行自动排号,可以将数据表中的ID字段设为数字型,并将标识设为“是”,这样,在添加记录时,就会在ID字段中自动添加编号,用户名和密码都是以字符串型式进行读取的,将其设置成字符型。
在主窗体中可以调用“操作员管理”窗体对用户的相关信息进行编辑,如图3.6所示。
图3.6 操作员管理
程序各窗体中相关组件说明,如表3.2所示。
表3.2 &n
相关文档:
//定义全局变量
public
{ Public declarations }
outlook,MailItem,Recipient:variant;
OutlookNameSpace:variant;
OutlookFolder:variant;
OutlookAttachment:variant;
//创建打开outlook
procedure TForm1.CreateOutLook;
begin
try
outlook:=CreateOleObject('OutLook.app ......
以下是在网上收集的一些对无类型参数的说明.个人理解无类型变量就是一个指针.
象Delphi中function Read(var Buffer; Count: Longint): Longint; override;象Buffer这样没有类型的参数究竟应该怎么给参数????
这说明Buffer是通过地址方式传递的,一般说来只 ......
淘宝开放平台的开发例子大多都是c#,php,java等,缺少Pascal的例子。
现用delphi写了一个示例,
关键点是签名的生成,签名需按key字母顺序排序,并去掉等于号后首尾相连。
关键代码:
memstr:= TMemoryStream.Create;
//用授权码获取 session
IdHTTP1.Get('http://container.api.tbsandbox.com/c ......