moneytotalunit.pas

人事管理系统帮助人们管理复杂的关系

unit MoneyTotalUnit;

interface

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

type
  TMoneyTotalForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label4: TLabel;
    CBMonth: TComboBox;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MoneyTotalForm: TMoneyTotalForm;

implementation

uses DataMUnit, TotalInfromationUnit, LoginFormUnit;

{$R *.dfm}

procedure TMoneyTotalForm.Button1Click(Sender: TObject);
var
  i,c, q, b, s, g, chu, j, GZ, fgz:integer;
begin
  c:=0;
  q:=0;
  b:=0;
  s:=0;
  g:=0;
  chu:=0;
  j:=0;
  if DataM.ADOMsg.Active = true then
    DataM.ADOMsg.Close;

  DataM.ADOMsg.SQL.Clear;
  DataM.ADOMsg.SQL.Text:='select * from MSG where 员工编号 = '''+edit1.Text +''''
                          + ' and 员工姓名 = '''+edit2.Text+'''';
  DataM.ADOMsg.Prepared;
  DataM.ADOMsg.Open;

  gz:= StrToInt(DataM.ADOMsg.FieldValues['工资']);

  if DataM.ADOPrsent.Active = true then
     DataM.ADOPrsent.Close;
  DataM.ADOPrsent.SQL.Clear;
  DataM.ADOPrsent.SQL.Text:='select * from Prsent where 员工编号 = '''+ edit1.Text +''''
                          + ' and 员工姓名 = '''+ edit2.Text+''''
                          + ' and 缺勤月份 = ''' + CBMonth.Text + '''';
  DataM.ADOPrsent.Prepared;
  DataM.ADOPrsent.Open;




  if DataM.ADOPrsent.RecordCount <> 0 then
    begin
      DataM.ADOPrsent.First;

      for i:= 1 to DataM.ADOPrsent.RecordCount do
        begin
          if DataM.ADOPrsent.FieldValues['缺勤类型'] = '迟到' then
            c:=c+1;

          if DataM.ADOPrsent.FieldValues['缺勤类型'] = '缺勤' then
            q:=q+1;

          if DataM.ADOPrsent.FieldValues['缺勤类型'] = '病假' then
            b:=b+1;

          if DataM.ADOPrsent.FieldValues['缺勤类型'] = '事假' then
            s:=s+1;

          if DataM.ADOPrsent.FieldValues['缺勤类型'] = '公休' then
            g:=g+1;

          if DataM.ADOPrsent.FieldValues['缺勤类型'] = '出差' then
            chu:=chu+1;

          if DataM.ADOPrsent.FieldValues['缺勤类型'] = '加班' then
            j:=j+1;

          DataM.ADOPrsent.Next;
        end;

    end;

    edit3.Text:=intToStr(c);
    edit4.Text:=intToStr(q);
    edit5.Text:=intToStr(b);
    edit6.Text:=intToStr(s);
    edit7.Text:=intToStr(g);
    edit8.Text:=intToStr(chu);
    edit9.Text:=intToStr(j);
    edit10.Text:=intToStr(gz);

    if DataM.ADOMoney.Active = true then
       DataM.ADOMoney.Close;
    DataM.ADOMoney.SQL.Clear;
    DataM.ADOMoney.SQL.Text:='select * from GZ';
    DataM.ADOMoney.Prepared;
    DataM.ADOMoney.Open;

    fgz := gz - StrToInt(DataM.ADOMoney.FieldValues['迟到']) * c;
    fgz := fgz - StrToInt(DataM.ADOMoney.FieldValues['缺勤']) * q;
    fgz := fgz - StrToInt(DataM.ADOMoney.FieldValues['病假']) * b;
    fgz := fgz - StrToInt(DataM.ADOMoney.FieldValues['事假']) * s;
    fgz := fgz - StrToInt(DataM.ADOMoney.FieldValues['公休']) * g;
    fgz := fgz + StrToInt(DataM.ADOMoney.FieldValues['出差']) * chu;
    fgz := fgz + StrToInt(DataM.ADOMoney.FieldValues['加班']) * j;

    edit11.Text:=intTostr(fgz);

    


end;

procedure TMoneyTotalForm.Button2Click(Sender: TObject);
begin
  MoneyTotalForm.Close;
end;

procedure TMoneyTotalForm.Button3Click(Sender: TObject);
begin
  button1.OnClick(nil);
  TotalInfromationForm.show;
end;

procedure TMoneyTotalForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  if LoginForm.CBPurview.Text <> '普通员工' then
  begin
    edit1.Text:='';
    edit2.Text:='';
    Cbmonth.Text:='';
  end;
end;

end.