unit2.~pas

一个小型的职工管理系统希望大家多多指教!基本功能已经实现

unit Unit2;

interface

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


type
  TForm2 = class(TForm)
    RadioGroup1: TRadioGroup;
    Label2: TLabel;
    Label3: TLabel;
    t1: TEdit;
    t2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    ADODataSet2: TADODataSet;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure t2KeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure t1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
   count:integer;
   loginok:boolean;

implementation

uses Unit1,Unit6, Unit5, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);
begin
 form2.close;

end;

procedure TForm2.Button1Click(Sender: TObject);

begin
  if radiogroup1.ItemIndex=0 then
  begin
  if (trim(t1.Text)='')then
  begin
  messageDlg('请输入用户名',mtInformation,[mbOK],MB_OK);
  loginok:=false;
  t1.SetFocus;
  exit;
  end;
  ADODataSet1.Active:=false;
  ADODataSet1.CommandText:='select * from t_user where name='''+t1.Text + '''';
  ADODataSet1.Active:=true;
  if ADODataSet1.ISEmpty then
  begin
  messageDlg('查无此用户',mtInformation,[mbOK],MB_OK);
  t1.Text:='';
  loginok:=false;
  t1.SetFocus;
  exit;
  end;
  ADODataSet1.Recordset.MoveFirst;
   if ADODataSet1.Recordset.Fields.Item ['password'].Value<>t2.Text
   then
     begin
     messageDlg('请检查用户名与密码是否正确',mtInformation,[mbOK],MB_OK);
     t2.Text:='';
      loginok:=false;
     t2.SetFocus;
      exit;
     end;
     loginok:=true;
     form2.close;
     form1.Caption:='职工信息管理系统  当前为普通用户：'+t1.Text+'正在操作';
form1.N7.Enabled:=true;
form1.N8.Enabled:=false;
form1.N10.Enabled:=true;
form1.N11.Enabled:=false;
form1.N13.Enabled:=false;
form1.N19.Enabled:=true;
form1.N17.Enabled:=false;
form1.N18.Enabled:=false;
form1.N20.Enabled:=false;
form6.StatusBar1.Panels[1].Text:='普通用户';
form6.StatusBar1.Panels[2].Text:=t1.Text;
form5.StatusBar1.Panels[1].Text:='普通用户';
form5.StatusBar1.Panels[2].Text:=t1.Text;
form7.StatusBar1.Panels[1].Text:='普通用户';
form7.StatusBar1.Panels[2].Text:=t1.Text;
form8.StatusBar1.Panels[1].Text:='普通用户';
form8.StatusBar1.Panels[2].Text:=t1.Text;
form9.StatusBar1.Panels[1].Text:='普通用户';
form9.StatusBar1.Panels[2].Text:=t1.Text;


  end
  else
  begin
  if (trim(t1.Text)='')then
  begin
  messageDlg('请输入用户名',mtInformation,[mbOK],MB_OK);
  loginok:=false;
  t1.SetFocus;
  exit;
  end;
  ADODataSet1.Active:=false;
  ADODataSet1.CommandText:='select * from t_admin where name='''+t1.Text + '''';
  ADODataSet1.Active:=true;
  if ADODataSet1.ISEmpty then
  begin
  messageDlg('查无此用户',mtInformation,[mbOK],MB_OK);
  t1.Text:='';
  loginok:=false;
  t1.SetFocus;
  exit;
  end;
  ADODataSet1.Recordset.MoveFirst;
   if ADODataSet1.Recordset.Fields.Item ['password'].Value<>t2.Text
   then
     begin
     messageDlg('请检查用户名与密码是否正确',mtInformation,[mbOK],MB_OK);
     t2.Text:='';
      loginok:=false;
     t2.SetFocus;
      exit;
     end;
     loginok:=true;
     form2.close;
     form1.Caption:='职工信息管理系统  当前为管理用户：'+t1.Text+'正在操作';
form1.N7.Enabled:=true;
form1.N8.Enabled:=true;
form1.N10.Enabled:=true;
form1.N11.Enabled:=true;
form1.N13.Enabled:=true;
form1.N19.Enabled:=true;
form1.N17.Enabled:=true;
form1.N18.Enabled:=true;
form1.N20.Enabled:=true;
form6.StatusBar1.Panels[1].Text:='管理员';
form6.StatusBar1.Panels[2].Text:=t1.Text;
form5.StatusBar1.Panels[1].Text:='管理员';
form5.StatusBar1.Panels[2].Text:=t1.Text;
form7.StatusBar1.Panels[1].Text:='管理员';
form7.StatusBar1.Panels[2].Text:=t1.Text;
form8.StatusBar1.Panels[1].Text:='管理员';
form8.StatusBar1.Panels[2].Text:=t1.Text;
form9.StatusBar1.Panels[1].Text:='管理员';
form9.StatusBar1.Panels[2].Text:=t1.Text;

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

procedure TForm2.FormActivate(Sender: TObject);
begin
 t1.SetFocus ;
end;

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

end.