学校中，每一个“专业班级”应该是唯一的 。还要对“学院”字段建
立第二索引 。关键索引和第二索引可以在需要时建立表之间的
关联与查询，
!“团员记录”数据表（团员记录.db） 。
数据来源：全校团员记录编辑模块进行录入 。“团员记录”数
据表专门用于对全校的团员进行数据处理 。通过对“专业班级”
数据表的关联，又可分别对各个院系各个专业的团员进行数据
处理 。在创建数据表时，我们将团员的“学号”字段创建为关键索
引，因为在团员管理中，一个学校学生团员的学号应该是唯一
的 。这一索引可以在需要时建立表之间的关联与查询 。我们还对
“学院”字段和“专业班级”字段建立第二索引，以便在窗体制作
时进行表与表之间的关联，从而实现查询搜索 。
!名称“：用户权限”数据表（用户权限.db） 。
数据来源：通过权限维护模块进行录入 。本系统是专门供团
员档案管理人员使用的，使用系统需通过权限认证 。在该系统中
允许用户通过权限维护模块，对用户名称及密码进行修改，因此
需要创建一个用户权限表 。在该表中我们将用户“密码”字段设
计成关键而且唯一的字段，因为每一用户的密码必不一致 。
3档案管理人员登录模块的设计与实现
由于篇幅原因，只介绍了这一基本的模块 。
本模块主要用来限制非档案管理人员对本系统的操作，以
增加系统的安全性能，使管理人员更有效的管（理档案 。登陆身份验证处理流程如图2所示 。登录模块的主要代码(quanxiang.pas)
uses zhukong,qidong;//该单元使用的其他单元文件
procere TForm2.SpeedButton1Click(Sender:TObject);
begin//确认操作，检验用户密码
table1.refresh;//按下[确认]按钮后，检查权限维护表中是否有该密码
with table1 do
try
disablecontrols;
filtered:=false;
memo1.Text:=′用户密码=′+′′′′+edit1.Text+′′′′;
filter:=Memo1.Text;
filtered:=true;
finally
enablecontrols;
if table1.recordcount=0 then
begin
showmessage(′对不起，你不是合法用户，请确认权限！′);
edit1.Text:=′′;
end
else begin
form2.Close;
form12.show;
table1.close;
table1.Open;
end;
end;
procere TForm2.SpeedButton2Click(Sender:TObject);
begin//返回
form1.show;
close;
end;
procere TForm2.FormCreate(Sender:TObject);
begin//状态栏显示日期
statusbar1.panels[1].Text:=datetostr(date);
end;
procere TForm2.Edit1Keypress(Sender:TObject;var Key:Char);
begin//提高用户界面可操作性的相关的代码
if key=#13 then
speedbutton1click(edit1);//在密码输入框中的回车操作被视为[确定]按钮的
单击动作
end;参考文献
[1]胡存生等编著.《Delphi 7开发技术与范例》.北京：电子工业出版社，2003.7
[2]王志强等编著.《Delphi 7经典开发案例》.北京：中国铁道出版社，2003.1
[3]尹立民编著.《Delphi 6数据库开发典型实例》.北京：电子工业出版社，2002.10
经验总结扩展阅读
- 2023年7月剖腹产吉日查询
- 2023年7月领证黄道吉日查询
- 父亲节当天得子怎么发朋友圈
- qq怎么看共同好友是谁，qq共同好友查询教程
- qq怎么看共同好友是谁（qq显示有一位共同好友)
- 怎么去俄罗斯长期居住（1万元人民币在俄罗斯旅游)
- 怎么去拥有一道彩虹是什么意思（一抹彩虹是啥意思)
- 怎么去锡林郭勒（最近能不能去锡林郭勒)
- 有到过伊拉克的人吗应该怎么去（从国内怎样到伊拉克)
- 我的世界怎么去月球无模组无指令（我的世界新版怎么去月球)