Список сотрудников

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Grids, StdCtrls;
 
 
type
zapis=record
tab,fio,hour,per,sal:string;
 end;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Button1: TButton;
    Memo1: TMemo;
 
    procedure FormCreate(Sender: TObject);
    procedure N6Click(Sender: TObject);
        private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
i,p,q, n: integer;
arr1: array[1..9,1..5] of string;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
n:=9;
with StringGrid1 do
begin
Cells[0,0]:='№';
Cells[1,0]:='Табельный номер';
Cells[2,0]:='Ф.И.О сотрудника';
Cells[3,0]:='Часов';
Cells[4,0]:='Ставка';
Cells[5,0]:='Зарплата';
for i:=1 to n do
  begin
  rowheights[i]:=15;
  Cells[0,i]:=IntToStr(i);
  end;
  end;
  end;
procedure TForm1.N6Click(Sender: TObject);
begin
 form2.visible:=true;
end;
 
end.
 
unit Unit2;    // вторая форма - добавление нового сотрудника в таблицу
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm2 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  i:integer;
  c:real;
implementation
 
uses Unit1;
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
begin
i:=1;
end;
 
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.StringGrid1.Cells[1,i]:=Edit1.Text;
form1.StringGrid1.Cells[2,i]:=Edit2.Text;
form1.StringGrid1.Cells[3,i]:=Edit3.Text;
form1.StringGrid1.Cells[4,i]:=Edit4.Text;    //добавление нового сотрудника в таблицу
if StrToInt(Edit3.Text)>144 then
c:=((StrToInt(Edit3.Text)-144)*2+144)*StrToInt(Edit4.Text)
else c:=(StrToInt(Edit3.Text))*(StrToInt(Edit4.Text)); //если работал>144 часов, то сверхурочные
form1.StringGrid1.Cells[5,i]:=FloatToStr(c-0.13*c);  // подоходный налог
i:=i+1;
end;
 
 
 
end.