Автоматизированная система распределения мест и оценок качества олимпиадных заданий
Категория реферата: Рефераты по педагогике
Теги реферата: реферат на тему биография, налоги реферат
Добавил(а) на сайт: Sapaljov.
Предыдущая страница реферата | 17 18 19 20 21 22 23 24 25 26 27 | Следующая страница реферата
Required := True; end; with AddFieldDef do begin
Name := 'MARK6';
DataType := ftFloat;
Required := True; end; with AddFieldDef do begin
Name := 'SUMMARK';
DataType := ftFloat;
Required := True; end; with AddFieldDef do begin
Name := 'SCHOOL';
DataType := ftString;
Size := 35; end; with AddFieldDef do begin
Name := 'PARAM1';
DataType := ftFloat;
Required:=False; end; with AddFieldDef do begin
Name := 'PARAM2';
DataType := ftFloat;
Required:=False; end; with AddFieldDef do begin
Name := 'PARAM3';
DataType := ftFloat;
Required:=False; end; with AddFieldDef do begin
Name := 'PLACE';
DataType := ftInteger;
Required:=False; end; end;
with IndexDefs do begin
Clear; with AddIndexDef do begin
Name := '';
Fields := 'COUNTER';
Options := [ixPrimary]; end; with AddIndexDef do begin
Name := 'VAL1';
Fields := 'PARAM1';
Options := [ixDescending]; end; with AddIndexDef do begin
Name := 'VAL2';
Fields := 'PARAM2';
Options := [ixDescending]; end; with AddIndexDef do begin
Name := 'VAL3';
Fields := 'PARAM3';
Options := [ixDescending]; end; end;
CreateTable;
Application.MessageBox('Локальная база данных успешно создана!','Сообщение',mb_OK+mb_IconAsterisk); end else Application.MessageBox('Локальная база данных уже существует и открыта!','Сообщение',mb_OK+mb_IconAsterisk); end; except
Application.MessageBox('Ошибка создания базы данных!','Внимание',mb_OK+mb_IconHand);
Exit; end;
Form1.Table1.Active:=True;
Form1.dsOlymp.DataSet:=Form1.Table1;
Form1.DBGrid1.DataSource:=Form1.dsOlymp;
Comm:=TStringList.Create;
Comm.Clear;
Comm.Add(Edit2.Text);
Comm.SaveToFile('Bases'+Edit1.Text+'.olp');
Comm.Free;
Form1.Label1.Caption:='Описание БД: '+Edit2.Text;
ModalResult:=mrNo; end;
Рекомендуем скачать другие рефераты по теме: реферат,, развитие россии реферат.
Предыдущая страница реферата | 17 18 19 20 21 22 23 24 25 26 27 | Следующая страница реферата