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
相关文档：
function ListFiles(Dir: String):TStrings;
var
FSearchRec: TSearchRec;
FileList: TStrings;
FindResult: Integer;
begin
if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
FileList :=TStringList.Create;
FindResult:=FindFirst(Dir+'*.*,faAnyFile+faDirectory,FSearchRec);
while FindRes ......
Delphi的Socket编程要分几步？
2008-12-20 02:03:24
标签：Delphi Socket 编程 [推送到技术圈]
ClientSocket 和ServerSocket
几个重要的属性:
1.client和server都有port属性，需要一致才能互相通信
2.client有Address属性,使用时填写对方(server)的IP地址 & ......
====================================================
Delphi操作文件的一般步骤：
1）关联文件：
AssignFile(var F; FileName :string)；
2）初始化文件：
Append(var F :Text);
//只写，于文件最后追加数据
Reset(var F [; RecSize :Word]); ......
在sql server 的northwide 中建立主表
create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) )
go
create table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary key(sell_id,inv) )
首先,要注意以下设置
1.要注意报从表qrydetail设置,批保存开式. 即.locktype= batc ......
