следящий тип данных
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sFieldName'] := FldNameEdit.Text;
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sMTableName'] :=
FpTFbCommonType.FbRef.spTableInfo.sTableAttr.Values['sTableName'];
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sMFieldName'] := '';
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sPicDescr'] := '';
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sAgregateExpr']:= '';
FDbInterface.N_pTFieldInfo.sMTTableInfo := FpTFbCommonType.FbRef.spTableInfo;
FDbInterface.N_pTFieldInfo.sMTFieldInfo := nil;
FDbInterface.N_pTFieldInfo.sPickList := nil;
FDbInterface.N_pTFieldInfo.sFieldType := FpTFbCommonType.FbFld.sType;
FDbInterface.N_pTFieldInfo.sFieldSize := FpTFbCommonType.FbFld.sSize;
FDbInterface.N_pTFieldInfo.sFieldMBytes := FpTFbCommonType.FbFld.sBytes;
end;
PicGroup :
begin // списочный тип данных
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sFieldName'] := FldNameEdit.Text;
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sMTableName'] := '';
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sMFieldName'] := '';
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sPicDescr'] :=
FpTFbCommonType.FbPic.sDescr;
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sAgregateExpr']:= '';
FDbInterface.N_pTFieldInfo.sMTTableInfo := nil;
FDbInterface.N_pTFieldInfo.sMTFieldInfo := nil;
FDbInterface.N_pTFieldInfo.sPickList := FpTFbCommonType.FbPic.sPickList;
FDbInterface.N_pTFieldInfo.sFieldType := FpTFbCommonType.FbFld.sType;
FDbInterface.N_pTFieldInfo.sFieldSize := FpTFbCommonType.FbPic.sSize;
FDbInterface.N_pTFieldInfo.sFieldMBytes := FpTFbCommonType.FbPic.sBytes;
end;
LUpGroup :
begin // следящий тип данных
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sFieldName'] := FldNameEdit.Text;
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sMTableName'] :=
FpTFbCommonType.FbLUp.spTableInfo.sTableAttr.Values['sTableName'];
FDbInterface.N_pTFieldInfo.sFieldAttr.Values['sMFieldName'] :=
FpTFbCommonType.FbLUp.spFieldInfo.sFieldAttr.Values['sFieldName'];
Содержание Назад Вперед