下面是一个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;
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;