收录日期:2019/06/26 10:37:11 时间: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;
的呢~
多翻书 少放分

释放对象的问题 我没遇到过的问题! 求助(foxpro 数据表操作) 打开游戏出现D3D错误 .lrc文件用什么播放器播放? 我的分页有问题,各位兄弟姐妹帮忙看看,改好的话给分要多少给多少!我说真的! *.dat文件一般是用来干什么的?存储格式?谢谢!盼赐教! 菜鸟用JBUILDER的问题 请教计算机英语 有没有较好的利用鼠标右键选择TreeView接点的方法,我现在是挨个挨个循环,但接点数太多时就有问题? 视频流与协议的问题! 怎么样为别人提供例示http://free.2925.net/asp168/的空间 对于一个公司的职务如何建模.对应于权限? 请问如何使用VB开发Windows服务程序? 函数OleCheck 下了一个msdn,想安装vb的帮助,却装不上。 24了,还没女朋友,还是处男,是不是很失败啊?? Web Services在asp.net项目中如何引用多个asmx文件,在线等待。。。 从C++向VC++转,容易吗? 怎用用Applet方便的存取cookie? 为什么我的机器不能打开*.chm的文件? 我也问一个有关message问题 在EhLib24中如何刷新Footer的Sum数据? 下面这个表如何设计??谢谢各位啦! 请问各位高手一个简单的问题! 谁能说下apache什么意思 ACCESS库转为SQLSERVER库需要请各位帮助。 有谁用过mpeg4ip啊,谈谈里面的内容好吗? 关于SQL语法!!! 我在视中设置了自己的光标.怎么当鼠标在滚动条上时,还没变成系统光标.