loginunit.pas

航班管理

unit loginUnit;

interface

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

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DataSource1: TDataSource;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses mainUnit;

{$R *.dfm}
procedure TForm3.SpeedButton1Click(Sender: TObject);
begin
  if edit1.Text=''then
   showmessage('用户名不能为空')
  else
    begin
      with adoquery1 do
       begin
         close;
         sql.Clear;
         sql.Add('select * from 管理员表');
         sql.Add('where 姓名='+''''+edit1.text+'''');
        // sql.Add('select * from 管理员表 where 姓名=edit1.text');
         open;
       if Fieldbyname('密码').asstring=edit2.text then
           form2.Show
          else
            begin
              application.MessageBox('密码无效,请重新输入','系统信息',MB_OK+MB_Iconquestion);
              edit2.SetFocus;
            end;
         end;
     end;
end;

procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
  if messagedlg('你确认要退出吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
  close;
end;

end.