代码
指导教师：王 鹏
班 级：02412
学 号：26 号
姓 名：温 强
//本模块的功能是实现用户名和密码的验证，来完成系统登录
procedure TDLform.glydlClick(Sender: TObject);
Var //管理员登陆
pw,qx:string; //定义两个数据类型为字符串的变量
begin //判断用户名的输入是否为空
if yhm.Text='' then
begin
MessageBox(handle,'用户名不能为空，请选择或输入用户名！','错误',MB_OK
or MB_ICONERROR);
exit;
end;
query1.Close; //对 Query1 添加 SQL 语句 根据变量 name，返回对应查询结果
PW 和 QX，并传给变量 pw qx.
query1.SQL.Add('select PW,QX from kldlb where ID=(:name)');
query1.ParamByName('name').Value:=yhm.Text;
query1.Open;
pw:=query1.FieldValues['PW'];
qx:=query1.FieldValues['QX'];
if pw=mm.text then
begin
if qx='是' //判断权限，如果权限为“是”的话，进入管理员界面
then GLYform.Show
end
else
begin //如果密码错误，弹出错误对话框，并将密码栏清空
MessageBox(handle,' 密 码 错 误 请 重 新 输 入 ！ ',' 密 码 错 误 ',MB_OK or
MB_ICONERROR);
mm.Text:='';
end;
end;
var //普通用户登陆
pw,qx:string;
begin
if yhm.Text='' then
begin
1
MessageBox(handle,'用户名不能为空，请选择或输入用户名！','错误',MB_OK
or MB_ICONERROR);
exit;
end;
query1.Close;
query1.SQL.Add('select PW,QX from kldlb where ID=(:name)');
query1.ParamByName('name').Value:=yhm.Text;
query1.Open;
pw:=query1.FieldValues['PW'];
qx:=query1.FieldValues['QX'];
if pw=mm.text then
begin
if qx='否' //通过验证权限为“否”，通过登录普通用户界面
then YHform.Show
end
else
begin
MessageBox(handle,' 密 码 错 误 请 重 新 输 入 ！ ',' 密 码 错 误 ',MB_OK or
MB_ICONERROR);
mm.Text:='';
end;
end;
//以下代码实现的是类似于 QQ 的菜单，在窗体 GLYform 中定义了三个 boolean
值变量，分别是 bool2,bool3.bool4，且规定可以向上移动为 true,可以向下移动
为 false；
procedure TGLYform.FormCreate(Sender: TObject);
begin //初始化三个变量为 true，即只能向上移动
bool2:=true;
bool3:=true;
bool4:=true;
memo1.Text:='';
memo3.Text:='';
end;
//以下为点击相应 button 所进行的判断过程，button 名称为文档管理
procedure TGLYform.wdglClick(Sender: TObject);
2
