login.pas

一个不错的信息管理系统

unit login;

interface

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

type
  TForm2 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    RadioGroup1: TRadioGroup;
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    ADOTable2: TADOTable;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
 count:integer;
implementation

uses main;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
form2.close;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
results:variant;
begin
adotable1.Active :=false;
adotable2.Active :=false;
adotable1.Active :=true;
adotable2.Active :=true;
if radiogroup1.ItemIndex=0 then
begin
results:=adotable1.lookup('name',edit1.Text,'password');
count:=count+1;
if results=edit2.Text then
begin
form1.Caption:='干部信息管理系统  当前为普通用户：'+edit1.Text+'正在操作';
form1.N2.enabled:=false;
form1.N14.enabled:=true;
form1.N15.enabled:=true;
form1.N16.enabled:=true;
form1.N19.enabled:=true;
form1.N38.enabled:=true;
form1.N39.enabled:=true;
form1.N53.enabled:=true;
form1.N56.Enabled:=true;
form1.N47.Enabled :=false;
form1.user1.Enabled:=true;
form2.Close;
end
else
begin
application.MessageBox('用户名或密码错误！','提示',0);
edit2.Text :='';
edit2.setfocus;
end;
end
else
begin
results:=adotable2.lookup('name',edit1.Text,'password');
count:=count+1;
if results=edit2.Text then
begin
form1.Caption:='干部信息管理系统  当前为管理员：'+edit1.Text+'正在操作';
form1.N22.enabled:=true;
form1.N68.enabled:=true;
form1.N32.enabled:=true;
form1.N57.Enabled:=true;
form1.N2.enabled:=false;
form1.N5.Enabled:=true;
form1.N8.Enabled:=true;
form1.N9.Enabled:=true;
form1.N10.Enabled:=true;
form1.N56.Enabled:=true;
form1.N14.enabled:=true;
form1.N15.enabled:=true;
form1.N16.enabled:=true;
form1.N17.enabled:=true;
form1.N19.enabled:=true;
form1.N62.enabled:=true;
form1.N22.enabled:=true;
form1.N23.enabled:=true;
form1.N25.Enabled:=true;
form1.N26.Enabled:=true;
form1.N27.Enabled:=true;
form1.N28.Enabled:=true;
form1.N29.Enabled:=true;
form1.N38.enabled:=true;
form1.N39.enabled:=true;
form1.N45.enabled:=true;
form1.N47.Enabled :=false;
form1.N53.enabled:=true;
form1.N35.enabled:=true;
form1.N36.enabled:=true;
form1.N51.enabled:=true;
form1.N41.Enabled :=true;
form1.N42.Enabled :=true;
form1.N59.Enabled :=true;
form1.N62.Enabled :=true;
form1.sql1.Enabled:=true;
form1.sql2.Enabled:=true;
form1.user1.Enabled:=true;
form2.Close;
end
else
begin
application.MessageBox('用户名或密码错误！','提示',0);
edit2.Text :='';
edit2.setfocus;
end;
end;
if (count>3) then begin application.MessageBox('你无权进入！','警告',0);
form2.Close;
end;
end;


procedure TForm2.FormActivate(Sender: TObject);
begin
count:=0;
edit1.SetFocus ;
end;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus ;
end;

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
button1.SetFocus ;
end;


end.