login.pas

图书管理系统(Delphi),可作毕业设计

unit Login;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOTable1: TADOTable;
    procedure Button2Click(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Main;

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
If messagedlg('你确实要退出系统吗？',Mtconfirmation,[Mbyes,Mbcancel],0)=Mryes then
Application.Terminate
else
form1.Show;

end;

procedure TForm1.Image2Click(Sender: TObject);
begin
Application.Minimize;
end;

procedure TForm1.Image3Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.Active:=true;
   if edit1.Text='' then showmessage('请输入用户名') else
      if edit2.Text='' then showmessage('请输入密码')
        else
        begin
          if not adotable1.Locate('Name',edit1.Text,[]) then
                begin
                  showmessage('没有这个用户，登陆失败');
                end
              else
                if adotable1.FieldValues['Password']=edit2.Text
                 then begin
                          form2.Show;
                          form1.Hide;
                      end
                  else begin showmessage('密码错误，请重新输入!!');
                       Form1.Show;

                       end;
         end;
          edit1.Text:='';
          edit2.Text:='';
end;

end.