unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Panel1: TPanel;
    Edit2: TEdit;
    Panel2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Image2: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Image3: TImage;
    Image4: TImage;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    ADOTable1: TADOTable;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses unit3,unit4,unit5,unit10, Unit1;

{$R *.dfm}

procedure TForm2.SpeedButton4Click(Sender: TObject);
begin
application.Createform(Tform3,form3);
form3.showmodal;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
application.Createform(Tform4,form4);
form4.showmodal;
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
application.CreateForm(Tform5,form5);
form5.showmodal;

end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
var
  results:variant;
begin
  ADOTable1.Close;
  ADOTable1.Open;
  ADOTable1.Active;
  results:=ADOTable1.Lookup('用戶名',edit1.text,'密碼');{檢索數據庫中對應用戶名的密碼項}
  if edit1.Text='' then
  application.MessageBox('用戶名不能為空！','提示',mb_ok)
  else if edit2.Text='' then
  application.messagebox('密碼不能為空！','警告',mb_ok)
  else
  if results=edit2.Text then
  begin
   application.CreateForm(Tform10,form10);
   form10.ShowModal;
  end
  else
  showmessage('密碼錯誤或用戶不存在！');
  edit1.Visible:=true;
  edit2.Visible:=true;
  edit1.Text:='';
  edit2.Text:='';
end;



end.