新手，急~~~，求delphi登陆界面代码!!

Question

刚学delphi，老师要我们做个简单的登陆界面，但我不会写代码
我在sql建了个user表(数据库名也是user)，属性列是：id ,name;
(id,name)为(dba,sql)或(123，456)，我登陆界面有三个按钮：确定，取消，退出。
代码怎么写啊，请大家帮帮忙!

Answer 1

var
yhm,yhmm:string;
begin
   yhm:=trim(edit1.Text);
   yhmm:=trim(edit2.Text);
   with dm.ADODataSet3 do  begin
       if active then active:=false;
           commandtext:='select * from adminlist order by popedom';
           open;
       if  not locate('adLoginName',yhm,[loPartialKey]) then
           begin
               showmessage('登陆名输入错误，请重新输入');
               edit1.Text:='';
               edit2.Text:='';
               edit1.SetFocus;           end
       else
           begin
               if   locate('adPassword',yhmm,[loPartialKey]) then
                   begin
                       f_zcd:=Tf_zcd.Create(application);
                       f_zcd.ShowModal;
                       f_zcd.Free;
                       close;
                       exit;
                   end
                else  begin
                      showmessage('输入的密码错误，请重新输入');
                      edit2.Text:='';
                      edit2.SetFocus;
                 end;
        end;
   end;
   close;
   {
     else
          begin
              F_ZCD:=TF_ZCD.Create(Application);
              F_ZCD.ShowModal;
              F_ZCD.Free;
              f_zcd.user_name:=trim(combobox1.Text);  }
       {   with dm.ADODataSet4 do begin
            if Locate('adloginName',trim(edit.Text),[loPartialKey]) then
                 begin
                   f_zcd.qx_syssetup:=fieldbyname('syssetup').AsBoolean;
                   f_zcd.qx_filltime:=fieldbyname('filltime').AsBoolean;
                   f_zcd.qx_award:=fieldbyname('award').AsBoolean;
                   f_zcd.qx_online:=fieldbyname('online').AsBoolean;
                   f_zcd.qx_member:=fieldbyname('member').AsBoolean;
                   f_zcd.Login_ok:=true;
                 end
           else
                   f_zcd.Login_ok:=false;
          end;
            close;
         end;  }
其实都差不多的   你自己改一下  就可以了

Answer 2

http://community.csdn.net/Expert/topic/5465/5465772.xml?temp=.6055567

Answer 3

我想用delphi 做一个登陆界面，要有两个Button和两个Edit控件，请高手指点哈！我是新手

Answer 4

各位大哥大姐，帮帮我吧！我现在要用delphi做一个作业系统，但是我不会，谁能帮帮我啊！
  系统的要求：一个运行于单机的管理系统，分为教师模块和学生模块。教师模块主要功能为：1）作业题目的打包发布；2）学生作业包的信息阅读、客观题答案自动批阅、主观题的显示、源程序文件还原。学生模块包括：1）实验题目包的阅读；2）学生作业信息和作业答案的记录；3）学生作业的源程序打包；4）防复制等作弊手段的功能。
  我的QQ520067153