Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

SWState(SR20,23);

SWState(SR37,21);

ABRState(ABR1,9);

ABRState(ABR2,22);

Prot:=TStringList.Create; if WorkMode=0 then s:=(' тренировки') else s:=(' экзамена');

Prot.Append('
Протокол'+s);

Prot.Append(' ----------------
--------');

Prot.Append('Фамилия: '+User1.N1);

Prot.Append('Имя: '+User1.N2);

Prot.Append('Отчество: '+User1.N3);

Prot.Append(' ЗАДАЧА:
'+TaskList.Items[TaskNumber]);

Prot.Append(' -----------------------------------
------'); if WorkMode=0 then s:=(' прохождения тренировки: ') else s:=(' сдачи экзамена: ');

Prot.Append('Дата '+s+DateToStr(Date)); end;

procedure TForm1.Menu41Click(Sender: TObject); begin
User.ShowModal; end;

procedure TForm1.MBB1Click(Sender: TObject); begin if Analyze(MBB1)=True then MVState(MBB1,10) else MVState(MBB1,10); if F[10]=true then end;

procedure TForm1.MBB2Click(Sender: TObject); begin if Analyze(MBB2)=True then MVState(MBB2,7) else MVState(MBB2,7); end;

procedure TForm1.MBB3Click(Sender: TObject); begin if Analyze(MBB3)=True then MVState(MBB3,19) else MVState(MBB3,19); end;

procedure TForm1.MBB4Click(Sender: TObject); begin if Analyze(MBB4)=True then MVState(MBB4,17) else MVState(MBB4,17); end;

procedure TForm1.CMB1Click(Sender: TObject); begin if Analyze(CMB1)=True then MVState(CMB1,8) else MVState(CMB1,8); end;

procedure TForm1.CMB2Click(Sender: TObject); begin if Analyze(CMB2)=True then MVState(CMB2,18) else MVState(CMB2,18); end;

procedure TForm1.BB50Click(Sender: TObject); begin if Analyze(BB50)=True then MVState(BB50,2) else MVState(BB50,2); end;

procedure TForm1.PBB2Click(Sender: TObject); begin if Analyze(PBB2)=True then MVState(PBB2,4) else MVState(PBB2,4); end;

procedure TForm1.TRZ1Click(Sender: TObject); begin if Analyze(TRZ1)=True then SWState(TRZ1,6) else SWState(TRZ1,6); end;

procedure TForm1.TRZ2Click(Sender: TObject); begin if Analyze(TRZ2)=True then SWState(TRZ2,5) else SWState(TRZ2,5); end;

procedure TForm1.TRZ3Click(Sender: TObject); begin if Analyze(TRZ3)=True then SWState(TRZ3,16) else SWState(TRZ3,16); end;

Рекомендуем скачать другие рефераты по теме: дипломная работа по юриспруденции, рассказы.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки