unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Panel1: TPanel;
    Image1: TImage;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOTable1: TADOTable;
    N6: TMenuItem;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit4, Unit5, Unit7, Unit6, Unit8;

{$R *.dfm}
var pass:boolean;
procedure TForm1.N1Click(Sender: TObject);
begin
   if pass=true then  tushuguanli.show
     else showmessage('請先輸入用戶名和密碼！');
end;

procedure TForm1.N2Click(Sender: TObject);
begin
   if pass=true then   xueshengguanli.show
    else showmessage('請先輸入用戶名和密碼！');
end;

procedure TForm1.N3Click(Sender: TObject);
begin
   if pass=true then   jieyueguanli.show
     else showmessage('請先輸入用戶名和密碼！');
end;

procedure TForm1.N4Click(Sender: TObject);
begin
   if pass=true then   chacunbaobiao.show
     else showmessage('請先輸入用戶名和密碼！');
end;

procedure TForm1.N5Click(Sender: TObject);
begin
   about.show;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin
with form1.Panel2 do
 begin
   adotable1.Active:=true;
   if edit1.text='' then showmessage('請輸入ID')else

      if edit2.Text='' then showmessage('請輸入密碼')
        else   //方法一 密碼+用戶名=1000
             {  val(edit1.Text,i,code1);
               val(edit2.Text,j,code2);
               if ((code1<>0) or (code2<>0)) then showmessage('用戶名和密碼的格式錯誤')
                 else
                  if strtoint(edit1.Text)+strtoint(edit2.Text)=10000  then
                            begin
                              form1.show;
                              showmessage('歡迎使用!');
                              pass:=true;
                              form1.Panel2.Visible:=false;
                            end
                     else  begin
                             showmessage('密碼錯誤!推出系統');
                             form1.Close;

                           end;   }
                  //方法2 密碼表
        begin
          if not adotable1.Locate('name',edit1.Text,[]) then
                begin
                  showmessage('沒有這個用戶，登陸失敗');
                  pass:=false;
                 end
              else
                if adotable1.FieldValues['password']=edit2.Text
                 then begin
                          showmessage('登陸成功');
                          panel2.Visible:=false;
                          pass:=true;
                       end
                  else begin showmessage('密碼錯誤，退出系統！');
                             application.Terminate;
                       end;           
         end;
 end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  form1.Close;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
  if messagedlg('確定要退出系統？',mtinformation,[mbno,mbyes],0)=mrYes
     then Application.Terminate;

end;

end.