Мирончук Евгений / Lab5 / SHABLON / GRT

unit grt;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ComCtrls, ExtCtrls;

type
TForm2 = class(TForm)
GroupBox1: TGroupBox;
Label4: TLabel;
EGRPName1: TEdit;
Label2: TLabel;
EGrpNumb: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ERepName: TEdit;
Label6: TLabel;
UpDown1: TUpDown;
UpDown2: TUpDown;
GroupBox2: TGroupBox;
Label3: TLabel;
DetCol: TEdit;
StanCol: TEdit;
UpDown3: TUpDown;
UpDown4: TUpDown;
StaticText4: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
Label1: TLabel;
Panel1: TPanel;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;
StanC, DetC : integer;
Stan: array [1..9] of integer;
Stanost, stanost1: array [1..9] of real;
srtrd: array [1..14] of real;
Det,Det1: array [1..14,1..9] of real;
Detincl:integer;
Detrang: array [1..14] of integer;
plan: array [1..14] of integer;
Name,GrpN,InGNumb,RepPath: string;
RFile:Text;
GroupShow:Boolean;

implementation

uses shab1;

{$R *.DFM}

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
Close;
Exit;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
var
valid: boolean;
i,j,c:integer;

begin
Valid:=True;

if length(EGrpName1.Text)=0 then begin
valid:=False;
ShowMessage('Укажите номер группы!');
EGrpName1.SetFocus;
end;

if length(EGrpNumb.Text)=0 then begin
valid:=False;
ShowMessage('Укажите Ваш номер в группе по списку!');
EGrpNumb.SetFocus;
end;


if length(ERepName.Text)=0 then begin
valid:=False;
ShowMessage('Укажите имя файла отчета!');
ERepName.SetFocus;
end;

Val(Detcol.Text,Detc,C);
Val(Stancol.Text,StanC,C);

If Valid then begin
GrpN:=EGrpName1.Text;
InGNumb:=EGrpNumb.Text;
RepPath:=ERepName.Text;
Form2.Hide;

{------------------------------------------}
Assignfile(RFile, RepPath);
Rewrite(RFile);
Writeln(Rfile,'Отчет о работе с программой Шаблон-Контршаблон');
Writeln(Rfile,'Группа:' + GrpN + ' ' + 'Вариант ' + InGNumb);
Writeln(Rfile);


Flush(RFile);
{CloseFile(RFile);}
{---------------------------------------}

With Form1 do begin

StanGrid.ColCount:=StanC+1;
DetGrid.ColCount:=DetC+1;
DetGrid.RowCount:=StanC+1;

for i:=1 to DetC do begin
DetGrid.Cells[i,0]:='Дет. ' + IntToStr(i);
DetGrid.Cells[i,1]:=IntToStr(1);
end;
DetGrid.Cells[0,0]:='Шифры';


for i:=1 to DetC do begin
for j:=1 to StanC do begin
DetGrid.Cells[i,j]:=IntToStr(1);
end;
end;


for j:=1 to StanC do begin
StanGrid.Cells[j,0]:='Стан. ' + IntToStr(j);
StanGrid.Cells[j,1]:=IntToStr(1);
DetGrid.Cells[0,j]:='Стан. ' + IntToStr(j);
end;
StanGrid.Cells[0,0]:='Шифры';
StanGrid.Cells[0,1]:='Остат.';

StanGrid.Update;
DetGrid.Update;

Show;
end;
end;

end;







end.