delphi 代码问题

来源:百度知道 编辑:UC知道 时间:2024/06/24 10:14:12
如下:
写用户登 陆界面。首先排除用户名与密码不能为空。则用户名与密码分别用EDIT1和EDIT2来表示。
代码如下。
if edit1.text and edit2.text ='' then
这段代码需要加什么。
提示错误。我不知道怎么做。就空出来了- -

if (edit1.text='') and (edit2.text ='') then
begin
showmessage('用户名或密码不能为空');
//处理登录失败代码
end;
这样应当可以

if edit1.text=''then Application.MessageBox('用户名不能为空','错误',0)
else if edit2.text ='' then Application.MessageBox('密码不能为空','错误',0)
else begin
....判断密码是否正确,这个可能需要从数据库提前,所以我没法帮你写....
end;