unit1.pas

DELPHI教师管理系统全套设计(论文+代码).设计好参考

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Menus, DB, ADODB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit4, Unit5, Unit6, Unit7, Unit8, Unit11;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM users');
ADOQuery1.SQL.Add('where user=:ss');
ADOQuery1.Parameters.ParamByName('ss').Value:= edit1.Text ;
 ADOQuery1.Open ;
if  ADOQuery1.Eof and ADOQuery1.Bof  then
    begin
     showmessage('用户错误');
    end

else

   begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('SELECT * FROM users');
      ADOQuery1.SQL.Add('where pass=:kk and user=:ss');
      ADOQuery1.Parameters.ParamByName('ss').Value:= edit1.Text ;
      ADOQuery1.Parameters.ParamByName('kk').Value:= edit2.Text ;
      ADOQuery1.Open ;
     if  ADOQuery1.Eof and ADOQuery1.Bof  then
        begin
         showmessage('密码错误');
        end
     else
        begin
          form9.show ;
          form1.Hide
        end
   end
 
end;



end.