unit Unit17;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,unit2, DB, ADODB, StdCtrls, Grids, DBGrids, XPMenu;

type
  TForm17 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    db4: TADOQuery;
    Button2: TButton;
    XPMenu1: TXPMenu;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form17: TForm17;
      i:byte;
implementation

{$R *.dfm}

procedure TForm17.Button1Click(Sender: TObject);
begin
if pos('''',edit1.Text)>0 then exit;
db4.Close;
db4.SQL.Clear;
db4.SQL.Add('select * from 用戶  ') ;
db4.sql.Add(format('where 用戶名=''%s'' and 密碼=''%s''',[edit1.text,edit2.text]));
db4.Open;
if db4.IsEmpty then begin
showmessage('warning!'+#13+'error');
exit;
end;
i:=1;
self.hide;
showmessage('歡迎使用訪系統');

edit1.Clear;
edit2.Clear;


end;

procedure TForm17.Button2Click(Sender: TObject);
begin
self.Hide;
end;

procedure TForm17.FormCreate(Sender: TObject);
begin
db4.Open;
i:=0;
end;
begin
i:=0;
end.