图 书 仓 库 管 理 系 统 第48页

then  findempform.close      file://在找到记录的情况下关闭查找窗口
else
begin
messagedlg(''没有找到你所需要的记录！'',mtinformation,[mbok],0);
edit1.text:='''';edit2.text:='''';edit3.text:='''';edit1.setfocus;
close;  sql.clear;
sql.add(''select * from employee'');    file://刷新员工信息窗口
open;
end; end;
end;
§5.6  系统登陆窗体模块的实现
由于系统登陆窗体中有一幅彩图，在这里不便给出，而只给出了系统的实现。
var  keyname: string;   file://定义了一个全局变量，在key2中有调用
procedure tkeyform.speedbutton1click(sender: tobject);
var s:string;              file://登陆窗口登陆按钮事件
begin
if  (edit1.text='''')  then  begin
messagedlg(''清输入登陆姓名和密码!'',mtinformation,[mbok],0);
edit1.setfocus;
end
else begin
datamoduleform.keytable.active:=true;
if not datamoduleform.keytable.locate(''keyname'',edit1.text,[])
            file://判断登陆名是否存在
then begin
messagedlg(''登陆名错误，请重新输入！'',mtinformation,[mbok],0);
edit1.text:=''''; edit1.setfocus;

 << 上一页  [41] [42] [43] [44] [45] [46] [47] [48] [49] [50]  ... 下一页  >>