main.~pas

本系统是用delphi工具制作而成的一个简单的人事管理系统。

unit main;

interface

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

type
  Tmainform = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    GroupBox2: TGroupBox;
    C1: TCheckBox;
    C2: TCheckBox;
    C3: TCheckBox;
    GroupBox3: TGroupBox;
    Rb1: TRadioButton;
    Rb2: TRadioButton;
    Rb3: TRadioButton;
    FrontSheet: TTabSheet;
    Image1: TImage;
    Label5: TLabel;
    Timer1: TTimer;
    Label6: TLabel;
    N10: TMenuItem;
    Image2: TImage;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    Image3: TImage;
    DBGrid1: TDBGrid;
    GroupBox4: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    ComboBox1: TComboBox;
    Edit8: TEdit;
    Edit9: TEdit;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N7Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure ChangePassButtonClick(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure ComboBox1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Exit(Sender: TObject);
    procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Edit8Enter(Sender: TObject);
    procedure Edit9Enter(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation

uses
login;

{$R *.dfm}

procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

procedure Tmainform.N7Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tmainform.SpeedButton1Click(Sender: TObject);
begin
  FrontSheet.Show;
  speedbutton2.Visible := true;
  speedbutton3.Visible := true;
  speedbutton4.Visible := true;   
  speedbutton5.Visible := true;
  speedbutton6.Visible := true;
  speedbutton7.Visible := true;   
  speedbutton8.Visible := false;
  speedbutton1.Visible := false;
  changepassbutton.Visible :=false;
  speedbutton6.Left:=0;
  speedbutton5.Left:=41;
  speedbutton4.Left:=82;
  speedbutton3.Left:=123;
  speedbutton2.Left:=164;
  speedbutton7.Left:=205;
  changepassbutton.Left:=246;
  speedbutton8.Left := 287;
  speedbutton1.Left := 328;
  mainform.Height:=437;
  mainform.Width:=537;
  pagecontrol1.Height:=361;
  pagecontrol1.Width:=529;
end;

procedure Tmainform.N4Click(Sender: TObject);
begin
  TabSheet1.Show;
  speedbutton2.Visible := false;
  speedbutton3.Visible := false;
  speedbutton4.Visible := false;
  speedbutton5.Visible := false;
  speedbutton6.Visible := false;
  speedbutton7.Visible := false;
  speedbutton8.Visible := true;
  speedbutton1.Visible := true;
  ChangePassButton.Visible :=false;
  speedbutton8.Left := 0;
  speedbutton1.Left := 41;
end;

procedure Tmainform.N10Click(Sender: TObject);
begin
  TabSheet2.Show;
  speedbutton2.Visible := false;
  speedbutton3.Visible := false;
  speedbutton4.Visible := false;
  speedbutton5.Visible := false;
  speedbutton6.Visible := false;
  speedbutton7.Visible := false;
  speedbutton8.Visible := false;
  speedbutton1.Visible := true;
  ChangePassButton.Visible :=true;
  ChangePassButton.Left:=0;
  speedbutton1.Left:= 41;
  mainform.Height:=381;
  mainform.Width:=433;
  pagecontrol1.Height:=304;
  pagecontrol1.Width:=423;
end;

procedure Tmainform.FormActivate(Sender: TObject);
begin
 frontsheet.show;
 combobox1.ItemIndex:=0;
 edit8.Text:='开始编号';
 edit9.Text:='结束编号';
 if loginform.r1 = false then
 begin
   n4.Enabled :=false;
   n5.Enabled :=false;
   n10.Enabled :=false;
   SpeedButton2.Visible:=false;
   SpeedButton5.Visible:=false;
   SpeedButton6.Visible:=false;
   SpeedButton4.Left:=0;
   SpeedButton3.Left:=41;
   SpeedButton7.Left:=82;
   end
 else
 exit;

 if loginform.r2 = false then
 begin
   n8.Enabled :=false;
   SpeedButton4.Visible:=false;
   SpeedButton3.Left:=0;
   SpeedButton7.Left:=41;
 end
 else
 exit;

end;

procedure Tmainform.SpeedButton6Click(Sender: TObject);
begin
 n4.Click;
end;

procedure Tmainform.Timer1Timer(Sender: TObject);
begin
  edit4.Text:=formatdatetime('yyyy/mm/dd hh/mm/ss', now) ;
  label6.Caption:='现在是北京时间:' + formatdatetime('yyyy/mm/dd hh/mm/ss', now) ;
end;

procedure Tmainform.ChangePassButtonClick(Sender: TObject);
var
  ADOQuery1:TADOQuery;
  right1,right2,right3:boolean;
  dp:string;
begin
  ADOQuery1:=TADOQuery.Create(self);
  ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                               extractfilepath(application.ExeName)+
                              'database.mdb;Persist Security Info=False';
  if edit6.Text = '' then
  begin
    MessageDlg('密码不能为空！！', mtInformation, [mbYes],0);
    exit;
  end;
  if (edit6.Text <> edit7.text) then
  begin
    MessageDlg('两次密码不相符，请重新输入！！', mtInformation, [mbYes],0);
    exit;
  end;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from admin where name=:A');
  ADOQuery1.Parameters.ParamByName('A').Value:=Trim(edit5.Text);
  ADOQuery1.Open;
  if ADOQuery1.RecordCount<=0 then
  begin
    MessageDlg('这个用户不存在！！', mtInformation, [mbYes],0);
    ADOQuery1.Free;
    exit;
  end;
  right1:=ADOQuery1.FieldValues['r1'];
  right2:=ADOQuery1.FieldValues['r2'];
  right3:=ADOQuery1.FieldValues['r3'];
  dp:=ADOQuery1.FieldValues['department'];
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('delete from admin where name=:A');
  ADOQuery1.Parameters.ParamByName('A').Value:= edit5.text;
  try
    ADOQuery1.ExecSQL;
  except
  begin
    MessageDlg('操作失败！！', mtInformation, [mbYes],0);
    exit;
  end;
  end;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('insert into admin   values (:A,:B,:C,:D,:E,:F,:G)');
  ADOQuery1.Parameters.ParamByName('A').Value:=edit5.Text;
  ADOQuery1.Parameters.ParamByName('B').Value:=edit6.Text;
  ADOQuery1.Parameters.ParamByName('C').Value:=dp;
  ADOQuery1.Parameters.ParamByName('D').Value:=right1;
  ADOQuery1.Parameters.ParamByName('E').Value:=right2;
  ADOQuery1.Parameters.ParamByName('F').Value:=right3;
  ADOQuery1.Parameters.ParamByName('G').Value:=formatdatetime('yyyy/mm/dd hh/mm/ss', now) ;
  try
    ADOQuery1.ExecSQL;
    MessageDlg('你已经成功的修改了一条记录！！',mtInformation , [mbYes],0);
    edit1.Text:='';
    edit2.Text:='';
  except
    MessageDlg('操作失败！！',mtInformation , [mbYes],0);
  end;
  ADOQuery1.Free;
end;

procedure Tmainform.SpeedButton4Click(Sender: TObject);
begin
 n8.Click;
end;

procedure Tmainform.N5Click(Sender: TObject);
var
  ADOQuery1:TADOQuery;
  ADOQuery2:TADOQuery;
  i:integer;
begin
  ADOQuery1:=TADOQuery.Create(self);
  ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                               extractfilepath(application.ExeName)+
                              'database.mdb;Persist Security Info=False';
  ADOQuery2:=TADOQuery.Create(self);
  ADOQuery2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                               extractfilepath(application.ExeName)+
                              'database.mdb;Persist Security Info=False';
  if MessageDlg('你真的要初始化系统吗？' + #13 + '此操作会初始化管理员数据，并不会影响其他数据！', mtInformation,[mbYes,mbNo],0)= mrYes then
  begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select name from admin');
    ADOQuery1.Open;
    for i:=0 to ADOQuery1.RecordCount - 1 do
    begin
      ADOQuery2.SQL.Clear;
      ADOQuery2.SQL.Add('delete from admin where name=:A');
      ADOQuery2.Parameters.ParamByName('A').Value:= ADOQuery1.FieldValues['name'];
      ADOQuery1.Next;
      try
        ADOQuery2.ExecSQL;
      except
        MessageDlg('操作失败！！', mtInformation, [mbYes],0);