Автоматизированная система распределения мест и оценок качества олимпиадных заданий
| Категория реферата: Рефераты по педагогике
| Теги реферата: реферат на тему биография, налоги реферат
| Добавил(а) на сайт: Sapaljov.
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private
{ Private declarations } public
{ Public declarations } end;
var
Form2: TForm2;
implementation
uses Unit1, DB, DBTables;
{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
ModalResult:=mrCancel;
end;
procedure TForm2.BitBtn2Click(Sender: TObject); var
Fio,Sch:string; n1,n2,n3,n4,n5,n6,snum:double;
begin
Fio:=Edit1.Text;
Sch:=Edit2.Text; if (Fio='') or (Sch='') then begin
Application.MessageBox('Не введено ФИО или
Школа!','Ошибка',mb_Ok+mb_IconHand);
Edit1.SetFocus;
Exit; end; try n1:=StrToFloat(Edit3.Text); n2:=StrToFloat(Edit4.Text); n3:=StrToFloat(Edit5.Text); n4:=StrToFloat(Edit6.Text); n5:=StrToFloat(Edit7.Text); n6:=StrToFloat(Edit8.Text); except
Application.MessageBox('Одно или несколько текстовых полей заполнены неверно!','Ошибка',mb_Ok+mb_IconHand);
Edit1.SetFocus;
Exit; end; snum:=n1+n2+n3+n4+n5+n6; try with Form1.Table1 do begin
Active:=True;
Append;
FieldValues['COUNTER']:=RecordCount+1;;
FieldValues['FIO']:=Fio;
Рекомендуем скачать другие рефераты по теме: реферат,, развитие россии реферат.
Категории:
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата
Главная