Реферат: Автоматизация расчета начислений заработной платы в строительном управлении N 151

Edit2: TEdit;

Label5: TLabel;

Edit3: TEdit;

Label6: TLabel;

Edit4: TEdit;

Label7: TLabel;

Edit5: TEdit;

Button1: TButton;

procedure Button1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

str(n_mes,mw);

system.assign(f,'vhod\base.dat');

rewrite(f);

z:=Edit3.Text;

writeln(f,z);{val(z,fzp,conv);}{ФЗП}

z:=Edit2.Text;

writeln(f,z);{val(z,kol_d,conv);} {Кол-во дней}

z:=Edit5.Text;