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
推荐阅读
- 华为mate40手机怎么截屏_华为mate40截图功能怎么使用
- 明日之后怎么玩(明日之后精致四合院)
- 明日之后怎么用电脑玩(明日之后如何在电脑玩)
- 明日之后怎么玩好玩(明日之后要怎么玩)
- qq怎么看共同好友(qq怎么看陌生人的共同好友)
- qq显示有一个共同好友怎么看共同好友是谁
- 怎么看我和别人的共同好友是谁(怎么查找两人共同好友)
- 怎么查看跟已有qq好友的共同好友是谁(如何查看qq好友共同好友都有谁)
- qq上显示有共同好友,怎么样才能查到共同好友是谁
- qq怎么看共同好友是谁,qq共同好友查询教程