收录日期:2019/04/20 16:49:29 时间:2016/05/31 09:33:47 标签:数据库相关
begin
if (mima.text<>'123456') or (zhanghao.text<>'chenzhiqian') then
showmessage('错误的帐号或密码请重新输入')
else
showmessage('欢迎你使用本程序');
form1.Hide;
Form2.Hide;
  AnimateWindow (Form2.Handle, 3000, AW_CENTER);

Form2.Show;
end;
现在的现象:
我如果输入正确的帐号和密码。执行的是正确的一切
可是我如果输入错误的帐5号密码。执行步骤为
1、弹出。错误的提示showmessage('错误的帐号或密码请重新输入')
2、显示FORM2。
3、form1没有隐藏

我想得到的结果是:
1、输入正确的帐号密码。隐藏,form1显示form2.
2、输入错误的帐号密码。错误提示,并且什么都不执行。

>>2、输入错误的帐号密码。错误提示,并且什么都不执行。

if (mima.text<>'123456') or (zhanghao.text<>'chenzhiqian') then
begin
 showmessage('错误的帐号或密码请重新输入');
 exit;
end
else
if (mima.text<>'123456') or (zhanghao.text<>'chenzhiqian') then
  begin
    showmessage('错误的帐号或密码请重新输入');
    close;
  end
begin
if (mima.text<>'123456') or (zhanghao.text<>'chenzhiqian') then
 begin
showmessage('错误的帐号或密码请重新输入');
exit;
end
else 
begin
showmessage('欢迎你使用本程序');
form1.Hide;
Form2.Hide;
  AnimateWindow (Form2.Handle, 3000, AW_CENTER);

Form2.Show;
end;
end;
谢谢 大家咯 
呵呵,原来
PASCAL里面的IF语句为
IF 条件  then
begin
end
else
begin
end;
end;
的呢~
多翻书 少放分

【出租】:北京,三居中的一间 求助:打开这个网站,保证你不后悔! TlistBox问题? 老妖快来,一个关于使用DHTMLEdit ActiveX控件制作可视化网页编辑器的问题 纪念918国耻日75周年,散75分 excel 路径问题 如何在用户访问没有角色许可的页面时将用户重定向到指定页而不是登录页 sqlserver一分钟内能接受多少插入请求呢? SQL中如何使用附加列 ASP函数的参数问题。 我错在哪里?????? java连接sql server 2000数据库 一直不是很明了的一个问题,关于字段中的值为 ## 如何查找出来/? asp連結數局庫問題? 关于web.xml设置问题 delphi有没有只能输入数字的EDIT? 菜鸟求sql模糊查询语句 网页显示问题 Ajax async 最大只能2线程? 这个在vs2005上为何老是报错,我这个语句用的是msdn2005上的实例呀。看来vs2005真是个垃圾. 有人对深圳易思博有了解的吗 ? 请问,如何设置DataGridView某列的颜色?? Delphi6.0 ListView 显示问题,各位大哥大姐帮帮小弟了~~~不甚感激~~~ 用dephi可以编写activex.dll吗?哪里有例子可以下载.谢谢 为什么vb调用微软语音识别引擎,出现“实时错误 \'-2147024894 (80070002)\':自动化错误”,希望大家给于帮助,谢谢! 请教:asp.net2005里给控件重命名,老是提示“目录名无效”是怎么回事?谢谢 征集计算机网站?请大家收集自己经常上的计算机网站! one package problem 如何得到子窗口的句柄? 为什么DataGrid里显示两条记录,DataList 里只显示一条记录呢?