unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    ADOQuery1: TADOQuery;
    RadioGroup1: TRadioGroup;
    ADOQuery2: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;


implementation

uses Unit6, Unit4, Unit2;



{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
 userid,password,temp:string;
 begin
 if edit1.text='' then
 begin
 MessageBox(0,'帳號不能為空,請務必輸入帳號','警告',MB_ICONEXCLAMATION);
 end
 else
 if Edit2.Text=''then
 begin
 MessageBox(0,'密碼不能為空,請務必輸入密碼','警告',MB_ICONEXCLAMATION);
 end
 else
 if radiogroup1.ItemIndex=1 then
 begin
 userid:=edit1.Text;
 password:=edit2.Text;
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Text:='select 用戶ID from login where 用戶ID='+userid+'and 用戶密碼='+password+'';
 Adoquery1.Open;
 temp:=adoquery1.FieldByName('用戶ID').AsString;
  if temp<>'' then
  begin
  form2.show;
  form1.Hide;
  end
  else
  begin
  MessageBOX(0,'帳號或密碼錯誤,請確認后重新輸入','警告', 48);
  end
  end
  else
  if radiogroup1.ItemIndex=0 then
 begin
 userid:=edit1.Text;
 password:=edit2.Text;
 ADOQuery2.Close;
 ADOQuery2.SQL.Clear;
 ADOQuery2.SQL.Text:='select 用戶ID from login2 where 用戶ID='+userid+'and 用戶密碼='+password+'';
 Adoquery2.Open;
 temp:=adoquery2.FieldByName('用戶ID').AsString;
  if temp<>''then
  begin

  form6.show;
  form1.Hide;
  end
  else
  begin
  MessageBOX(0,'帳號或密碼錯誤,請確認后重新輸入','警告', 48);
  end
  end

end;


procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close;
end;




procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then //判斷是否是按下回車鍵
button1.Click;

end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then //判斷是否是按下回車鍵
button1.Click;

end;

end.