盒子论坛 v2.1

procedure TForm1.Button1Click(Sender: TObject);
begin
    if edit1.Text='' then
    begin
    showmessage('用户名不能为空');
    exit
    end;
    if edit2.Text='' then
    begin
    showmessage('密码名不能为空');
    exit
    end;
    if (edit1.Text<>'admin') or (edit2.Text<>'123456') then
    begin
    showmessage('用户名或不正确');
    exit
    end
    else
    begin
      form1.Hide;
      form2.ShowModal;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

end.
----------------------------------------------
-

作者：

wang_80919 (Flying Wang)	★☆☆☆☆	-
	普通会员

2017/11/20 15:30:56

1楼：

具体报什么错，要保密。
----------------------------------------------
(C)(P)Flying Wang

作者：

wang_80919 (Flying Wang)	★☆☆☆☆	-
	普通会员

2017/11/20 15:31:36

2楼：

http://bbs.2ccc.com/topic.asp?topicid=540203
这应该是问题进化了。
----------------------------------------------
(C)(P)Flying Wang

作者：

letianwuji (大器晚成)	▲▲▲▲▲	-
	普通会员

2017/11/20 15:39:48

3楼：

卧槽，这是做登陆模块嘛...
----------------------------------------------
相信自己，若自己都不相信，那还有谁可信。

信息

登陆以后才能回复