Специальные электрические машины с внедрением в учебный процесс / Pril Б

Приложение Б

(справочное)

Листинг программы регистрации

unit Reg;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Menus;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Edit1: TEdit; // фамилия

Edit2: TEdit; // имя

Edit3: TEdit; // группа

Button1: TButton;

procedure FormActivate(Sender: TObject);

procedure Button1Click(Sender: TObject); // кнопка Далее

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

f:TextFile; // файл отчета

implementation

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);

begin

AssignFile(f,'log.dll'); // AssignFile(f,fn);

{$I-}

Append(f);

if IOResult = 0

then Button1.Enabled:=True

else

begin

Rewrite(f);

if IOResult = 0

then Button1.Enabled:=True

else ShowMessage('Ошибка создания файла статистистики');

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if (length(edit1.text)=0)

then

begin

ShowMessage('Введите фамилию');

CloseFile(f);

//ResetForm(Form1);

form1.close;

end

else

if (length(edit2.text)=0)

then

begin

ShowMessage('Введите имя');

CloseFile(f);

//ResetForm(Form1);

form1.close;

end

else

if (length(edit3.text)=0)

then

begin

ShowMessage('Введите группу');

CloseFile(f);

//ResetForm(Form1);

form1.close;

end

else

writeln(f,'');

writeln(f,'-------------------------------------------------');

writeln(f, edit1.text,' ', edit2.text,' ',edit3.text,' ',DateTimeToStr(Now));

writeln(f,' ');

begin

ShowMessage('Теперь вы можете начать работу');

CloseFile(f);

Form1.close;

end;

end;

procedure ResetForm(frm:TForm1);

begin

frm.Edit1.Text:='';

frm.Edit2.Text:='';

frm.Edit3.Text:='';

end;

end.