怎么没人理我?
虽然这个问题很菜,但是点拨一下总可以吧!

解决方案 »

  1.   

    看了两回,没弄清楚什么意思!
      

  2.   

    看了两回,没弄清楚什么意思!
      

  3.   

    下面是一个LOGIN窗体的程序其中有两者的比较问题你自己看吧!!!
    procedure Tf_login.Button1Click(Sender: TObject);
    begin
         loginusername:='';
         loginpassword:='';     adoquery1.Close;
         adoquery1.sql.Clear;
         adoquery1.SQL.Add('select name,password from tbl_pass');
         adoquery1.sql.Add('where name='+''''+combobox1.items.[combobox1.itemindex]+'''');
         adoquery1.SQL.Add('and password='+''''+edit1.Text+'''');
         adoquery1.Open;
       if adoquery1.RecordCount>0 then
         begin
           loginusername:=combobox1.text;
           loginpassword:=edit1.Text;
           application.Createform(tf_main,f_main);
           f_main.ShowModal;
           f_main.release;
         end
      else
        begin
          pass:=false;
          application.MessageBox('密码输入错误,请重新输入!','提示',mb_ok);
          edit1.SetFocus;
          exit;
        end;
     end;procedure Tf_login.Button2Click(Sender: TObject);
    begin
     application.Terminate;
    end;procedure Tf_login.FormCreate(Sender: TObject);
    begin
       adoquery1.Close;
       adoquery1.SQL.Clear;
       adoquery1.SQL.Add('select name from tbl_pass');
       adoquery1.open;
       adoquery1.First;
       combobox1.Items.Clear;
       combobox1.Items.Add('');
       while not adoquery1.eof do
        begin
           combobox1.Items.Add(adoquery1.fieldbyname('name').asstring);
           adoquery1.Next;       combobox1.Text :=adoquery1.fields[0].asstring; //*//
        end;
       f_login.ShowModal;
    end;