monthtotalaunit.pas

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

unit MonthTotalaUnit;

interface

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

type
  TTotalaForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    CBMonth: TComboBox;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TotalaForm: TTotalaForm;

implementation

uses MoneyTotalUnit, DataMUnit;

{$R *.dfm}

procedure TTotalaForm.Button1Click(Sender: TObject);
var i:integer;
begin

  if DataM.ADOMSGA.Active = true then
    DataM.ADOMSGA.Close;
  DataM.ADOMSGA.SQL.Clear;
  DataM.ADOMSGA.SQL.Text:='select * from MSG';
  DataM.ADOMSGA.Prepared;
  DataM.ADOMSGA.Open;
  DataM.ADOMSGA.First;

  if Datam.ADOGZ.Active = true then
    Datam.ADOGZ.Close;
  Datam.ADOGZ.SQL.Clear;
  Datam.ADOGZ.SQL.Text:='select * from FGZ where 工资月份 = ''' + CBmonth.Text +'''';
  Datam.ADOGZ.Prepared;
  Datam.ADOGZ.Open;

  if Datam.ADOGZ.RecordCount <> 0 then
    MessageBox(0,'该月工资已经结算过不需要在结算!','人事管理系统',MB_OK+MB_ICONWARNING)
  else
    begin
      for i := 1 to DataM.ADOMSGA.RecordCount do
        begin

          if Datam.ADOGZ.Active = true then
            Datam.ADOGZ.Close;
          Datam.ADOGZ.SQL.Clear;
          Datam.ADOGZ.SQL.Text:='select * from FGZ';
          Datam.ADOGZ.Prepared;
          Datam.ADOGZ.Open;

          MoneyTotalForm.Edit1.Text := DataM.ADOMSGA.FieldValues['员工编号'];
          MoneyTotalForm.Edit2.Text := DataM.ADOMSGA.FieldValues['员工姓名'];
          MoneyTotalForm.CBMonth.Text := CBMonth.Text;
          MoneyTotalForm.Button1Click(nil);
          Datam.ADOGZ.Append;
          Datam.ADOGZ.FieldByName('员工编号').AsString := trim(MoneyTotalForm.Edit1.Text);
          Datam.ADOGZ.FieldByName('员工姓名').AsString := trim(MoneyTotalForm.Edit2.Text);
          Datam.ADOGZ.FieldByName('工资月份').AsString := trim(CBMonth.Text);
          Datam.ADOGZ.FieldByName('基本工资').AsString := trim(DataM.ADOMSGA.FieldValues['工资']);
          Datam.ADOGZ.FieldByName('实际工资').AsString := trim(MoneyTotalForm.Edit11.Text);
          Datam.ADOGZ.FieldByName('扣除工资').AsString := trim(IntToStr(StrToInt(MoneyTotalForm.Edit10.Text)-StrToInt(MoneyTotalForm.Edit11.Text)));
          Datam.ADOGZ.Post;
          DataM.ADOMSGA.Next;
        end;
      MessageBox(0,'该月工资已经结算完!','人事管理系统',MB_OK+MB_ICONWARNING)
    end;

end;

procedure TTotalaForm.Button2Click(Sender: TObject);
begin
  TotalaForm.Close;
end;

end.