delphi 数据库 ado技术

   用delphi做了一个霸气的登陆界面

   

   用数据库记录账号的登陆功能的实现

   第一步配置con1控件

   

  第二步配置adoquery1属性

   

   第三步：添加按钮点击事件

   

procedure TForm2.btn1Click(Sender: TObject);
begin
    if (edt1.Text = '') or (edt2.Text = '')then
    ShowMessage('账号或密码不能为空')
    else
    begin
    With ADOQuery1 do
    begin
      close;
      SQL.Clear;
      SQL.Add('select * from admins where  学号='''+edt1.text+'''  and 密码='''+edt2.text+'''');
       Open;
       if Eof then
       begin
       ShowMessage('账号或密码错误');
       exit;
       end
       else
       begin         //界面跳转
        Form2.Hide; //当前窗口隐藏
        Form1.Show; //要跳转到的窗口显示
        Form1.stat1.Panels[1].Text := edt1.Text;
        Form1.stat1.Panels[3].Text := FieldValues['权限'];
        Form1.stat1.Panels[5].Text := getTimeNow();
       end;
    end;
    end;
end;

  这样一个登陆界面登陆及跳转就实现了