Определение группы данных по информации
wpTFbCommonType := nil;
{ Определение группы данных по информации в FDbInterface.N_pTFieldInfo }
wTFbTypeGroup := Get_TFbTypeGroup(FDbInterface.N_pTFieldInfo);
k := TypeGroupCmBox.Items.IndexOf(apTypeGroupNames[wTFbTypeGroup]);
TypeGroupCmBox.ItemIndex := k;
case wTFbTypeGroup of
FldGroup :
// Выставка в ComboBox индекса базового типа
begin
TypesComboBox.Text := 'Нет в СИСТЕМЕ ';
for i := 0 to TypesComboBox.Items.Count-1 do
begin
wpTFbCommonType := pTFbCommonType(TypesComboBox.Items.Objects[i]);
if wpTFbCommonType.FbFld.sType = FDbInterface.N_pTFieldInfo.sFieldType then
begin
TypesComboBox.ItemIndex := i;
TypesComboBox.Text := TypesComboBox.Items[i];
Break;
end
end;
if wpTFbCommonType <> nil then
FldSizeEdit.Visible := (wpTFbCommonType.FbFld.sType = ftString)
else
FldSizeEdit.Visible := False;
end;
RefGroup :
// Выставка в ComboBox индекса ссылочного типа
begin
TypesComboBox.Text := 'Ссылка на таблицу не найдена';
for i:=0 to TypesComboBox.Items.Count-1 do
begin
wpTFbCommonType := pTFbCommonType(TypesComboBox.Items.Objects[i]);
if wpTFbCommonType.FbRef.spTableInfo.sTableAttr.Values['sTableName'] =
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sMTableName'] then
begin
TypesComboBox.ItemIndex := i;
TypesComboBox.Text := TypesComboBox.Items[i];
Break;
end;
end;
end;
PicGroup :
// Выставка в ComboBox индекса списочного типа
begin
TypesComboBox.Text := 'Ссылка на список не найдена';
for i:=0 to TypesComboBox.Items.Count-1 do
begin
wpTFbCommonType := pTFbCommonType(TypesComboBox.Items.Objects[i]);
if wpTFbCommonType.FbPic.sDescr =
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sPicDescr'] then
begin
TypesComboBox.ItemIndex := i;
TypesComboBox.Text := TypesComboBox.Items[i];
Break;
end;
end;
end;
LUpGroup :
// Выставка в ComboBox индекса следящего типа
begin
TypesComboBox.Text := 'Ссылка на поле не найдена';
for i:=0 to TypesComboBox.Items.Count-1 do
begin
wpTFbCommonType := pTFbCommonType(TypesComboBox.Items.Objects[i]);
Содержание Назад Вперед