ygzlb.pas

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

unit ygzlb;

interface

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

type
  TForm20 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ComboBox1: TComboBox;
    Label3: TLabel;
    DBGridEh1: TDBGridEh;
    procedure FormPaint(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form20: TForm20;

implementation
uses jsyggz;
{$R *.dfm}

procedure TForm20.FormPaint(Sender: TObject);
begin
canvas.Pen.Color:=clteal;
canvas.Rectangle(speedbutton1.Left-1,speedbutton1.Top-1,speedbutton1.Left+speedbutton1.Width+1,speedbutton1.Top+speedbutton1.Height+1);
canvas.Rectangle(speedbutton2.Left-1,speedbutton2.Top-1,speedbutton2.Left+speedbutton2.Width+1,speedbutton2.Top+speedbutton2.Height+1);
canvas.Rectangle(speedbutton3.Left-1,speedbutton3.Top-1,speedbutton3.Left+speedbutton3.Width+1,speedbutton3.Top+speedbutton3.Height+1);
end;

procedure TForm20.FormShow(Sender: TObject);
begin
label1.Caption:='当前日期：'+datetostr(date);
    form13.adoquery2.First;
    while not form13.adoquery2.Eof do
    begin
    combobox1.Items.Add(form13.adoquery2.FieldValues['部门名称']);
    form13.adoquery2.Next;
    end;
combobox1.ItemIndex:=0;
end;

procedure TForm20.SpeedButton3Click(Sender: TObject);
begin
close;
end;

procedure TForm20.RadioButton2Click(Sender: TObject);
begin
groupbox2.Enabled:=true;
groupbox1.Enabled:=false;
end;

procedure TForm20.RadioButton1Click(Sender: TObject);
begin
groupbox1.Enabled:=true;
combobox1.SetFocus;
groupbox2.Enabled:=false;
end;

procedure TForm20.SpeedButton1Click(Sender: TObject);
begin
if radiobutton1.Checked then
begin
if application.MessageBox('你确认要签发该部门下所有员工的工资吗？','系统提示',mb_yesno or mb_defbutton1 or mb_iconquestion or mb_applmodal)=idyes then
begin
form13.ADOQuery1.SQL.Clear;
form13.ADOQuery1.SQL.Add('update gongz set 签名="已签" where 所在部门="'+combobox1.Text+'"');
form13.ADOQuery1.ExecSQL;
form13.DBGridEh1.Refresh;
showmessage('员工数据签发成功!');
end;
end;

if radiobutton2.Checked then
begin

if application.MessageBox('你确认要签发该员工的工资吗？','系统提示',mb_yesno or mb_defbutton1 or mb_iconquestion or mb_applmodal)=idyes then
begin
with form13.ADOQuery1 do
begin
try
edit;
fieldbyname('签名').AsString:='已签';
post;
showmessage('该员工工资已发放，发放成功！');
except
cancel;
showmessage('发放工资失败！！');
end;
end;
dbgrideh1.Refresh;
end;
end;

end;

procedure TForm20.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form13.OnShow(self);
end;

end.