swf_xml_binding.pas

DBDesigner 4 is a database design system that integrates database design, modelling, creation and ma

  Result := ChildNodes['GridPopupWidth'].NodeValue;
end;

procedure TXMLSWF_ViewType.Set_GridPopupWidth(Value: Integer);
begin
  ChildNodes['GridPopupWidth'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_GridPopupX: Integer;
begin
  Result := ChildNodes['GridPopupX'].NodeValue;
end;

procedure TXMLSWF_ViewType.Set_GridPopupX(Value: Integer);
begin
  ChildNodes['GridPopupX'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_GridPopupY: Integer;
begin
  Result := ChildNodes['GridPopupY'].NodeValue;
end;

procedure TXMLSWF_ViewType.Set_GridPopupY(Value: Integer);
begin
  ChildNodes['GridPopupY'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_Name: WideString;
begin
  Result := ChildNodes['Name'].Text;
end;

procedure TXMLSWF_ViewType.Set_Name(Value: WideString);
begin
  ChildNodes['Name'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_WhereClause: WideString;
begin
  Result := ChildNodes['WhereClause'].Text;
end;

procedure TXMLSWF_ViewType.Set_WhereClause(Value: WideString);
begin
  ChildNodes['WhereClause'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_SWF_Table: IXMLSWF_TableType;
begin
  Result := ChildNodes['SWF_Table'] as IXMLSWF_TableType;
end;

function TXMLSWF_ViewType.Get_RowsPerPage: Integer;
begin
  Result := ChildNodes['RowsPerPage'].NodeValue;
end;

procedure TXMLSWF_ViewType.Set_RowsPerPage(Value: Integer);
begin
  ChildNodes['RowsPerPage'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_UseCompoundColNames: Boolean;
begin
  Result := ChildNodes['UseCompoundColNames'].NodeValue;
end;

procedure TXMLSWF_ViewType.Set_UseCompoundColNames(Value: Boolean);
begin
  ChildNodes['UseCompoundColNames'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_Icon: WideString;
begin
  Result := ChildNodes['Icon'].Text;
end;

procedure TXMLSWF_ViewType.Set_Icon(Value: WideString);
begin
  ChildNodes['Icon'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_IconFilename: WideString;
begin
  Result := ChildNodes['IconFilename'].Text;
end;

procedure TXMLSWF_ViewType.Set_IconFilename(Value: WideString);
begin
  ChildNodes['IconFilename'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_JoinTables: IXMLJoinTablesType;
begin
  Result := ChildNodes['JoinTables'] as IXMLJoinTablesType;
end;

function TXMLSWF_ViewType.Get_NMTables: IXMLNMTablesType;
begin
  Result := ChildNodes['NMTables'] as IXMLNMTablesType;
end;

function TXMLSWF_ViewType.Get_GridSortedColumns: WideString;
begin
  Result := ChildNodes['GridSortedColumns'].Text;
end;

procedure TXMLSWF_ViewType.Set_GridSortedColumns(Value: WideString);
begin
  ChildNodes['GridSortedColumns'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_FormSortedColumns: WideString;
begin
  Result := ChildNodes['FormSortedColumns'].Text;
end;

procedure TXMLSWF_ViewType.Set_FormSortedColumns(Value: WideString);
begin
  ChildNodes['FormSortedColumns'].NodeValue := Value;
end;

function TXMLSWF_ViewType.Get_OrderBy: WideString;
begin
  Result := ChildNodes['OrderBy'].Text;
end;

procedure TXMLSWF_ViewType.Set_OrderBy(Value: WideString);
begin
  ChildNodes['OrderBy'].NodeValue := Value;
end;

{ TXMLSWF_TableType }

procedure TXMLSWF_TableType.AfterConstruction;
begin
  RegisterChildNode('SWF_Columns', TXMLSWF_ColumnsType);
  inherited;
end;

function TXMLSWF_TableType.Get_OrigTable: Integer;
begin
  Result := ChildNodes['OrigTable'].NodeValue;
end;

procedure TXMLSWF_TableType.Set_OrigTable(Value: Integer);
begin
  ChildNodes['OrigTable'].NodeValue := Value;
end;

function TXMLSWF_TableType.Get_Join_ColumnName: WideString;
begin
  Result := ChildNodes['Join_ColumnName'].Text;
end;

procedure TXMLSWF_TableType.Set_Join_ColumnName(Value: WideString);
begin
  ChildNodes['Join_ColumnName'].NodeValue := Value;
end;

function TXMLSWF_TableType.Get_Join_Width: Integer;
begin
  Result := ChildNodes['Join_Width'].NodeValue;
end;

procedure TXMLSWF_TableType.Set_Join_Width(Value: Integer);
begin
  ChildNodes['Join_Width'].NodeValue := Value;
end;

function TXMLSWF_TableType.Get_NM_Width: Integer;
begin
  Result := ChildNodes['NM_Width'].NodeValue;
end;

procedure TXMLSWF_TableType.Set_NM_Width(Value: Integer);
begin
  ChildNodes['NM_Width'].NodeValue := Value;
end;

function TXMLSWF_TableType.Get_SWF_Columns: IXMLSWF_ColumnsType;
begin
  Result := ChildNodes['SWF_Columns'] as IXMLSWF_ColumnsType;
end;

{ TXMLSWF_ColumnsType }

procedure TXMLSWF_ColumnsType.AfterConstruction;
begin
  RegisterChildNode('SWF_Column', TXMLSWF_ColumnType);
  ItemTag := 'SWF_Column';
  ItemInterface := IXMLSWF_ColumnType;
  inherited;
end;

function TXMLSWF_ColumnsType.Get_SWF_Column(Index: Integer): IXMLSWF_ColumnType;
begin
  Result := List[Index] as IXMLSWF_ColumnType;
end;

function TXMLSWF_ColumnsType.Add: IXMLSWF_ColumnType;
begin
  Result := AddItem(-1) as IXMLSWF_ColumnType;
end;

function TXMLSWF_ColumnsType.Insert(const Index: Integer): IXMLSWF_ColumnType;
begin
  Result := AddItem(Index) as IXMLSWF_ColumnType;
end;

{ TXMLSWF_ColumnType }

function TXMLSWF_ColumnType.Get_OrigCol: Integer;
begin
  Result := ChildNodes['OrigCol'].NodeValue;
end;

procedure TXMLSWF_ColumnType.Set_OrigCol(Value: Integer);
begin
  ChildNodes['OrigCol'].NodeValue := Value;
end;

function TXMLSWF_ColumnType.Get_GridName: WideString;
begin
  Result := ChildNodes['GridName'].Text;
end;

procedure TXMLSWF_ColumnType.Set_GridName(Value: WideString);
begin
  ChildNodes['GridName'].NodeValue := Value;
end;

function TXMLSWF_ColumnType.Get_FormName: WideString;
begin
  Result := ChildNodes['FormName'].Text;
end;

procedure TXMLSWF_ColumnType.Set_FormName(Value: WideString);
begin
  ChildNodes['FormName'].NodeValue := Value;
end;

function TXMLSWF_ColumnType.Get_SelectedForGrid: Boolean;
begin
  Result := ChildNodes['SelectedForGrid'].NodeValue;
end;

procedure TXMLSWF_ColumnType.Set_SelectedForGrid(Value: Boolean);
begin
  ChildNodes['SelectedForGrid'].NodeValue := Value;
end;

function TXMLSWF_ColumnType.Get_SelectedForForm: Boolean;
begin
  Result := ChildNodes['SelectedForForm'].NodeValue;
end;

procedure TXMLSWF_ColumnType.Set_SelectedForForm(Value: Boolean);
begin
  ChildNodes['SelectedForForm'].NodeValue := Value;
end;

function TXMLSWF_ColumnType.Get_FixedWidth: Integer;
begin
  Result := ChildNodes['FixedWidth'].NodeValue;
end;

procedure TXMLSWF_ColumnType.Set_FixedWidth(Value: Integer);
begin
  ChildNodes['FixedWidth'].NodeValue := Value;
end;

function TXMLSWF_ColumnType.Get_TruncateChars: Integer;
begin
  Result := ChildNodes['TruncateChars'].NodeValue;
end;

procedure TXMLSWF_ColumnType.Set_TruncateChars(Value: Integer);
begin
  ChildNodes['TruncateChars'].NodeValue := Value;
end;

function TXMLSWF_ColumnType.Get_IsForeignKey: Boolean;
begin
  Result := ChildNodes['IsForeignKey'].NodeValue;
end;

procedure TXMLSWF_ColumnType.Set_IsForeignKey(Value: Boolean);
begin
  ChildNodes['IsForeignKey'].NodeValue := Value;
end;

function TXMLSWF_ColumnType.Get_FkTablename: WideString;
begin
  Result := ChildNodes['FkTablename'].Text;
end;

procedure TXMLSWF_ColumnType.Set_FkTablename(Value: WideString);
begin
  ChildNodes['FkTablename'].NodeValue := Value;
end;

function TXMLSWF_ColumnType.Get_FkColname: WideString;
begin
  Result := ChildNodes['FkColname'].Text;
end;

procedure TXMLSWF_ColumnType.Set_FkColname(Value: WideString);
begin
  ChildNodes['FkColname'].NodeValue := Value;
end;

function TXMLSWF_ColumnType.Get_FormWidth: Integer;
begin
  Result := ChildNodes['FormWidth'].NodeValue;
end;

procedure TXMLSWF_ColumnType.Set_FormWidth(Value: Integer);
begin
  ChildNodes['FormWidth'].NodeValue := Value;
end;

{ TXMLJoinTablesType }

procedure TXMLJoinTablesType.AfterConstruction;
begin
  RegisterChildNode('SWF_Table', TXMLSWF_TableType);
  ItemTag := 'SWF_Table';
  ItemInterface := IXMLSWF_TableType;
  inherited;
end;

function TXMLJoinTablesType.Get_SWF_Table(Index: Integer): IXMLSWF_TableType;
begin
  Result := List[Index] as IXMLSWF_TableType;
end;

function TXMLJoinTablesType.Add: IXMLSWF_TableType;
begin
  Result := AddItem(-1) as IXMLSWF_TableType;
end;

function TXMLJoinTablesType.Insert(const Index: Integer): IXMLSWF_TableType;
begin
  Result := AddItem(Index) as IXMLSWF_TableType;
end;

{ TXMLNMTablesType }

procedure TXMLNMTablesType.AfterConstruction;
begin
  RegisterChildNode('SWF_Table', TXMLSWF_TableType);
  ItemTag := 'SWF_Table';
  ItemInterface := IXMLSWF_TableType;
  inherited;
end;

function TXMLNMTablesType.Get_SWF_Table(Index: Integer): IXMLSWF_TableType;
begin
  Result := List[Index] as IXMLSWF_TableType;
end;

function TXMLNMTablesType.Add: IXMLSWF_TableType;
begin
  Result := AddItem(-1) as IXMLSWF_TableType;
end;

function TXMLNMTablesType.Insert(const Index: Integer): IXMLSWF_TableType;
begin
  Result := AddItem(Index) as IXMLSWF_TableType;
end;

{ TXMLUnassignedViewsType }

procedure TXMLUnassignedViewsType.AfterConstruction;
begin
  RegisterChildNode('SWF_View', TXMLSWF_ViewType);
  ItemTag := 'SWF_View';
  ItemInterface := IXMLSWF_ViewType;
  inherited;
end;

function TXMLUnassignedViewsType.Get_SWF_View(Index: Integer): IXMLSWF_ViewType;
begin
  Result := List[Index] as IXMLSWF_ViewType;
end;

function TXMLUnassignedViewsType.Add: IXMLSWF_ViewType;
begin
  Result := AddItem(-1) as IXMLSWF_ViewType;
end;

function TXMLUnassignedViewsType.Insert(const Index: Integer): IXMLSWF_ViewType;
begin
  Result := AddItem(Index) as IXMLSWF_ViewType;
end;

end.