unit1.pas

自己做的一个人力资源管理

unit Unit1;

interface

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

type
  Tlogin_people = class(TForm)
    Panel2: TPanel;
    Panel3: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    ProgressBar1: TProgressBar;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Image1: TImage;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login_people: Tlogin_people;

implementation

uses Unit2, Unit10;

{$R *.dfm}

procedure Tlogin_people.Button1Click(Sender: TObject);
begin
         if  edit1.text='' then
         begin
                showmessage('请输入用户名!');
                exit;
         end;
         if  edit2.text='' then
         begin
                showmessage('请输入密码!');
                exit;
         end;
         if  ComboBox1.ItemIndex+1=0 then
         begin
                showmessage('请选择用户类型!');
                exit;
         end;
         //验证用户名
         with dm.QID do
         begin
                   close;
                   sql.Clear;
                   sql.add('select * from id');
                   open;
         end;

         while edit1.Text<>dm.QID.Fields[1].AsString do
                 if not dm.QID.Eof then
                      begin
                              dm.QID.Next;
                      end
                 else
                      begin
                               while not dm.QID.Bof  do
                                    dm.QID.Prior;
                               showmessage('该用户不存在!');
                               exit;
                      end;
         //验证密码
         if  edit2.Text<>dm.QID.Fields[2].AsString   then
         begin
                   showmessage('密码错误!');
                   exit;
         end;
         //验证类型
         if  ComboBox1.Text<>dm.QID.Fields[3].AsString   then
         begin
                   showmessage('类型错误!');
                   exit;
         end;
         main_people.ShowModal;




end;

procedure Tlogin_people.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
        if not ( key in ['a'..'z','A'..'Z','0'..'9','_',#8] ) then key:=#0;
end;

procedure Tlogin_people.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
         if  key=vk_return then edit2.SetFocus; 
end;

procedure Tlogin_people.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
           if   key=vk_return  then   ComboBox1.SetFocus;
end;

procedure Tlogin_people.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
        if not ( key in ['a'..'z','A'..'Z','0'..'9','_',#8] ) then key:=#0;
end;

procedure Tlogin_people.Button2Click(Sender: TObject);
begin
         login_people.Close;
end;

procedure Tlogin_people.BitBtn2Click(Sender: TObject);
begin
         login_people.Close;
end;

procedure Tlogin_people.BitBtn1Click(Sender: TObject);
begin
          if  edit1.text='' then
         begin
                Image3.Visible:=true;
                showmessage('请输入用户名!');
                Image3.Visible:=false;
                exit;
         end;
         if  edit2.text='' then
         begin
                Image3.Visible:=true;
                showmessage('请输入密码!');
                Image3.Visible:=false;
                exit;
         end;
         if  ComboBox1.ItemIndex+1=0 then
         begin
                Image3.Visible:=true;
                showmessage('请选择用户类型!');
                Image3.Visible:=false;
                exit;
         end;
         //验证用户名
         with dm.QID do
         begin
                   close;
                   sql.Clear;
                   sql.add('select * from id');
                   open;
         end;

         while   edit1.Text<>dm.QID.Fields[0].AsString do
                 if not dm.QID.Eof then
                      begin
                              dm.QID.Next;
                      end
                 else
                      begin
                               while not dm.QID.Bof  do
                                    dm.QID.Prior;
                               Image3.Visible:=true;
                               showmessage('该用户不存在!');
                               Image3.Visible:=false;
                               exit;
                      end;
         //验证密码
         if  edit2.Text<>dm.QID.Fields[1].AsString   then
         begin
                   Image3.Visible:=true;
                   showmessage('密码错误!');
                   Image3.Visible:=false;
                   exit;
         end;
         //验证类型
         if  ComboBox1.Text<>dm.QID.Fields[2].AsString   then
         begin
                   Image3.Visible:=true;
                   showmessage('类型错误!');
                   Image3.Visible:=false;
                   exit;
         end;
         Image2.Visible:=true;
         dm.SYSTEMTimer.Enabled:=true;


                             

end;

procedure Tlogin_people.Image4Click(Sender: TObject);
begin
          showmessage('该功能未开放!');
          exit;
end;

end.