unit4.pas

这个工资管理系统是我今年的毕业设计

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Image1: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure rcan(x1,y1,x2,y2:integer);
    procedure SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton4MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton5MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton6MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton7MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation
uses ry;
{$R *.dfm}
procedure tform4.rcan(x1,y1,x2,y2:integer);
begin
canvas.Pen.Color:=clmaroon;
canvas.Rectangle(x1-1,y1-1,x2+1,y2+1);
end;

procedure TForm4.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image1.CleanupInstance;
image1.Refresh;
rcan(speedbutton1.Left,speedbutton1.Top,speedbutton1.Left+speedbutton1.Width,speedbutton1.Top+speedbutton1.Height);
end;

procedure TForm4.SpeedButton2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image1.CleanupInstance;
image1.Refresh;
rcan(speedbutton2.Left,speedbutton2.Top,speedbutton2.Left+speedbutton2.Width,speedbutton2.Top+speedbutton2.Height);
end;

procedure TForm4.SpeedButton3MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image1.CleanupInstance;
image1.Refresh;
rcan(speedbutton3.Left,speedbutton3.Top,speedbutton3.Left+speedbutton3.Width,speedbutton3.Top+speedbutton3.Height);
end;

procedure TForm4.SpeedButton4MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image1.CleanupInstance;
image1.Refresh;
rcan(speedbutton4.Left,speedbutton4.Top,speedbutton4.Left+speedbutton4.Width,speedbutton4.Top+speedbutton4.Height);
end;

procedure TForm4.SpeedButton5MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image1.CleanupInstance;
image1.Refresh;
rcan(speedbutton5.Left,speedbutton5.Top,speedbutton5.Left+speedbutton5.Width,speedbutton5.Top+speedbutton5.Height);
end;

procedure TForm4.SpeedButton6MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image1.CleanupInstance;
image1.Refresh;
rcan(speedbutton6.Left,speedbutton6.Top,speedbutton6.Left+speedbutton6.Width,speedbutton6.Top+speedbutton6.Height);
end;

procedure TForm4.SpeedButton7MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
image1.CleanupInstance;
image1.Refresh;
rcan(speedbutton7.Left,speedbutton7.Top,speedbutton7.Left+speedbutton7.Width,speedbutton7.Top+speedbutton7.Height);
end;

procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
label2.Caption:='部门设置项：';
label1.Caption:='部门设置项可以设置本单位的所有部门。'#13'其中包括添加、删除、修改等操作！';
end;

procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
label2.Caption:='员工类别项：' ;
label1.Caption:='员工类别项可以查看员工所在部门。'#13'其中包括添加、删除、修改等操作！';
end;

procedure TForm4.SpeedButton3Click(Sender: TObject);
begin
label2.Caption:='员工档案项：';
label1.Caption:='员工档案项可以查看该单位的所有员工信息。'#13'其中包括信息的查询、部门分类查询等！';
end;

procedure TForm4.SpeedButton4Click(Sender: TObject);
begin
label2.Caption:='自定义公式项：';
label1.Caption:='自定义公式项可以设置该单位的'#13'员工工资、个人所得税、奖金、福利等算法！';
end;

procedure TForm4.SpeedButton5Click(Sender: TObject);
begin
label2.Caption:='员工工资项：';
label1.Caption:='员工工资项可以在这里查看员工的工资信息。'#13'其中包括工资信息表、信息条的打印！';
end;

procedure TForm4.SpeedButton6Click(Sender: TObject);
begin
label2.Caption:='年终奖金项：';
label1.Caption:='年终奖金项可以设置该单位的员工到年末的奖金项。'#13'其中包括奖金的添加、修改等操作！';
end;

procedure TForm4.SpeedButton7Click(Sender: TObject);
begin
label2.Caption:='系统维护项：';
label1.Caption:='系统维护项可以很方便的维护本软件的数据库。'#13'包括数据的备份、恢复、更新等操作！';
end;

end.