unit3.~pas

一个简单的旅游管理系统

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit2, Unit1;

{$R *.dfm}
var
ErrorNum:integer;
procedure TForm3.Button3Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
if (edit1.text='') or  (edit2.text='') then
begin
   ErrorNum:=ErrorNum+1;
   showmessage('用户名密码错误!');
   showmessage('第'+ inttostr(errornum)+'次错误');
   if edit1.text='' then
   showmessage('用户名是空的');
   if edit2.text='' then
   showmessage('密码是空的');
   if ErrorNum > 2 then
     application.Terminate;
   end
else
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 管理员表');
adoquery1.SQL.add('where user=:user and password=:pass');
adoquery1.Parameters.parambyname('user').Value:=trim(edit1.text);
adoquery1.Parameters.parambyname('pass').value:=trim(edit2.text);
adoquery1.open;
if adoquery1.Bof and adoquery1.Eof then
showmessage('用户名或密码错误')
else
begin
Form3.Close;
form1.statusbar1.panels[0].text:='用户:'+  edit1.text;
end;
end;
end;


procedure TForm3.FormCreate(Sender: TObject);
begin
ErrorNum:=0
end;

end.