Question

Delphi登陆代码

我做了一个界面：选择操作员ComboBox1，登陆密码edit1，lable1（操作员），lable2（密码），lable3（增加新的操作员），lable4（修改个人设置）Button1（登陆），Button2（退出），Form1（登陆界面），Form2（主界面），Form3（新增操作员界面），Form4（修改个人设置界面）
数据库用的是ADOQuery1，表login是存储用户名和密码的，字段是username和password。请高手帮我做做这个，自己做了几个都运行不了，如果高手做出来的可以用，再追加分，谢了！

Answer 1

这是我的代码，你看下：
begin
with adoquery1 do
begin
close;
sql.Clear;
sql.add('select * from login where username='''+combobox1.text+''' and password='''+edit1.Text+'''');
open;
if(recordcount=0) then begin
showmessage('用户名或密码错误，请重新输入!');
edit1.Clear;
end
else begin
showmessage('登陆成功!');
form1.Hide;
FORM2.Show;
end;
end;
end;

Answer 2

这个挺容易的呀。
没有你的数据库结构和你现有的源码怎么帮你做？

Answer 3

百度 hi 我~ 帮你搞定！