Статьи Королевства Дельфи


L2_pas - часть 6


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'];




Начало  Назад  Вперед



Книжный магазин