Реализация системного каталога. Основные хранимые характеристики: отношения, атрибуты с типами связи, индексы
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
,primary2,s:string;:boolean;(Keys, PathToKeys);(Keys);not eof (keys) do:=false;(keys,content);i:=1 to length(content) docontent[i]='.' then f:=true;f=true then:=1;n:=i;:=''; NameTable2:='';primary1:='';primary2:='';:='';(content[i]'.') and (i<=length(content)) do i:=i+1;:=copy(content,n,i-n);:=i+1; n:=i;i<=length(content) do i:=i+1;:=copy(content,n,i-n);:=i+1; n:=i;:='Таблица '+NameTable1+' ('+primary1+' - primary key'+')'
+' связана внешним ключом '+ foreign+ ' с таблицей '+NameTable2+' ('
+ primary2+' - primary key)';.Lines.Add(s);.Lines.Add('');:='';;;(keys);;PrintIndex(StringGrid1:TStringGrid);i,n,rows:integer;:string;(Index, PathToInd);(Index);:=1;not eof(index) do:=1; n:=i;(Index,Content);content[i]'|' do i:=i+1;.Cells[1,rows]:= copy(content,n,i-n);:=i+1; n:=i;i<=length(content) do i:=i+1;.Cells[2,rows]:= copy(content,n,i-n);:=i+1; n:=i;:=rows+1;;;
//Изменение таблицыAlterTable(OldName: string; NewName: string):boolean;:integer;:=false;(Tables, PathToTables);(Tables);:='';not eof(Tables) do(Tables, Temp);(OldName'|' then Temp:=Temp+Content[i](Tables, Temp);:='';;(i);;
CloseFile(Tables);
//Изменяем в списке полей
AssignFile(Field, PathToField);(Field);:='';not eof(Field) do(Field, Content);:=1;:='';i'&' then Temp:=Temp+SpisokField[i](Field, Temp);:='';;(i);;
CloseFile(Field);
//Изменяем в списке ключей
AssignFile(Keys, PathToKeys);(Keys);:='';not eof(Keys) do(Keys, Content);:=1;:='';i<=Length(Content) do
Content[i]'&' then Temp:=Temp+SpisokKeys[i](Keys, Temp);:='';;(i);;(Keys);
:=Logic;;
end.