www.pudn.com > 701.rar > Unit1.pas

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.