delphi设计一个登陆界面,有能教下用case语句来设置界面吗?本人初学.

Question

下面代码运行不了.想用case语句设置,而且FORM1.SHOW是弹出错误的提示的.求助!
procedure TForm2.Button1Click(Sender: TObject);
begin
if (Combobox1.Text='123') and (Edit2.Text='111111')
or (Combobox1.Text='456') and (Edit2.Text='222222')
or (Combobox1.Text='789') and (Edit2.Text='333333')
or (Combobox1.Text='000') and (Edit2.Text='444444') then
form1.Show
else
messagebox(0,'输入的用户名或密码有误,请重新输入','错误',64) ;
end;
begin
if edit2.text='' and combobox1.text:<>'' then
messagebox(0,'请输入密码!','提示',48)
else
messagebox(0,'请输入用户名!','提示',48);

end.

Answer 1

兄弟 做登陆界面一般用的方法是这样的,比如:
主窗体为: F_zct 登陆窗体为: F_log
那么在F_zct的Onshow事件中写代码如下：
procedure TF_zct.FormShow(Sender: TObject);
begin
application.CreateForm(TF_log,F_log); {这里主窗体的单元要引用登陆界面的单元}
F_log.ShowModal;
F_log.Free;
//..这里可以写一些登陆界面显示的位置代码 left / top属性 还可以写点动画,如下代码
//..animatewindow(self.handle,500,AW_VER_NEGATIVE);
end;

这样写了之后 你运行程序就会弹出登陆界面—>判断用户名/密码—>相应处理
如果户名密码正确 就调用登陆界面的close命令 取消按钮代码：application.Tminate命令;

验证用户名和密码部分 一般我都用数据库的 这个内容多 我就不说了 我也在学习中

Answer 2

procedure TForm2.Button1Click(Sender: TObject);
begin
if ( (Combobox1.Text='123') and (Edit2.Text='111111'))
or ( (Combobox1.Text='456') and (Edit2.Text='222222'))
or ( (Combobox1.Text='789') and (Edit2.Text='333333'))
or ((Combobox1.Text='000') and (Edit2.Text='444444')) then
begin
self.hidden;
form1.Show;
exit;
end
else
application.messagebox(0,'输入的用户名或密码有误,请重新输入','错误',64) ;
if (edit2.text='') and (combobox1.text<>'') then
application.messagebox(0,'请输入密码!','提示',48);
else
application.messagebox(0,'请输入用户名!','提示',48);
end;
//你试试,我这没delphi

Answer 3

1、string是不能case的。(我用的是delphi7，不知道delphi的高版本可不可以)。
2、form1.show出错的可能原因是你没有创建form1。

Answer 4

登陆界面最好用模态窗体。。
还有你这个判断是不对的：
if (Combobox1.Text='123') and (Edit2.Text='111111')
or (Combobox1.Text='456') and (Edit2.Text='222222')
or (Combobox1.Text='789') and (Edit2.Text='333333')
or (Combobox1.Text='000') and (Edit2.Text='444444') then
改成：
if ((Combobox1.Text='123') and (Edit2.Text='111111'))
or （(Combobox1.Text='456') and (Edit2.Text='222222'))
or ((Combobox1.Text='789') and (Edit2.Text='333333'))
or ((Combobox1.Text='000') and (Edit2.Text='444444')) then
begin
Form1:= TForm1.Create(Application);
From1.Show;
end else
.......

Answer 5

哪有case，你想干嘛？说清楚好不？