求 一个登录界面代码

Question

刚学delphi，想做个简单的登陆界面，但我代码不太会写 
我在sql建了个员工登录表(数据库名也是用工考勤系统)，属性列是：adminName   ,adminpassword 
(id,name)为(001,001)或(002，002)，我登陆界面有三个按钮：确定，取消。按确定后进入主界面。 
代码怎么写啊，请大家帮帮忙!

Answer 1

给你一个最简单的!
begin
if (trim(edit1.text)='')then
begin
messagedlg('账号不能为空',mtWarning,0);
end;
if (trim(edit2.text)='')then
begin
messagedlg('密码不能为空',mtWarning,0);
end;
if (trim(edit1.text)='admin')and(trim(edit2.text)='1234')then
begin
application.Create(Tform2,form2);
form2.show;
form1.hide; //如果不是主体就直接FREE掉
end;
end.