Предыдущая страница реферата | 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 | Следующая страница реферата