用delphi7做系统用户登录窗体

来源：百度知道 编辑：UC知道 时间：2024/05/28 00:11:29
也是用像做别的窗体一样的方法吗？有什么区别的?用TComboBox就可以了吗？怎么样配比用户名和密码啊？
不好意思啊，初学比较菜……请教一下^_^,谢谢
那如果已经设置了别的窗体为主窗体的话，还可以更改吗?
可不可以提供一些代码呢？谢谢了，拜托拜托，找了很多书都没有那么细节的问题解答，真得很着急。

应该和做别的窗体差不多，但还有区别的！
区别：
一、把登录的窗体做为主窗体，点击登录后，该窗体不能free，而应该是hide。否则就会出问题。
二、如果在一台电脑上多用户登录的话，用TComboBox,应该还会用到ini文件来记录用户名和密码，当然也可以用注册表，还有其他的方法，比如加密什么的。

如果把别的窗体设为主窗体的话，要改就要动大手术了！不过有一个方法可以不把登录窗体设为主窗体：
设登录窗体为form10，主窗体为form1:
一、在登录窗体上添加你需的控件比如两个ComboBox（用户名和密码），button1(确定)，button2(取消)
procedure Tform1.formcreate(sender: Tobject);
begin
form10.showmodal;{在主窗体建立前先出现登录窗体}
end;

procedure Tform10.Button1Click(Sender: TObject);
begin{这个地方就简单点写了，说明问题就行了}
if (combobox1.text='aa') and (combobox2.text='123') then
form10.hide{如果输入正确，登录窗体hide，主窗体出现}
else
begin
showmessage('密码或用户名不正确');
combobox1.clear;
combobox2.clear;
combobox1.setfocus;
end;
end;

procedure Tform10.button2click(sender: tobject);
begin
form10.close;{如果取消，先关闭登录窗体，再关闭主窗体}
form1.close;
end;