Форумы GIS-Lab.info

Код: Выделить всё

sub strelka
'RUN MENU COMMAND M_TOOLS_SELECTOR
 If Selectioninfo(SEL_INFO_NROWS)=0 Then
    Note "Выберите объект"
    RUN MENU COMMAND M_QUERY_UNSELECT
    Exit Sub
 End if
 Dim recn2 AS INTEGER
 recn2=CommandInfo(CMD_INFO_ROWID)	   
 Dim basa1 as string
 basa1=Selectioninfo(SEL_INFO_TABLENAME)
 Dim CreateStr As String
 CreateStr="база = "+basa1+CHR$(10)
 Dim i AS INTEGER
 Dim acol As Alias
 Dim nazvan,uptype As String
 uptype=" "
 Fetch Rec recn2 From basa1
 For i =1 to TABLEINFO(basa1, TAB_INFO_NCOLS)
   nazvan=ColumnInfo(basa1,"col"+STR$(i),COL_INFO_NAME)
   acol=basa1+"."+nazvan
   DO CASE COLUMNINFO(basa1,"COL"+i, COL_INFO_TYPE)
      CASE COL_TYPE_CHAR       
         uptype=nazvan+" = "+acol
      CASE COL_TYPE_DECIMAL
         uptype=nazvan+" = "+STR$(acol)
      CASE COL_TYPE_FLOAT
         uptype=nazvan+" = "+STR$(acol)
      CASE COL_TYPE_INTEGER
         uptype=nazvan+" = "+STR$(acol)
      CASE COL_TYPE_SMALLINT
         uptype=nazvan+" = "+STR$(acol)
      CASE COL_TYPE_LOGICAL
         uptype=nazvan+" = "+STR$(acol)
      CASE COL_TYPE_DATE
         uptype=nazvan+" = "+STR$(acol)
   END CASE
   IF uptype <> "" THEN
      CreateStr=CreateStr+uptype+CHR$(10)
   END IF 
 Next
 Open Window Message
  Set Window Message Font MakeFont("Courier",0,9,BLACK,WHITE) Position (0.5,2.5) Width 7 Height 11   Front Show      '7/11/2011
 Print CHR$(12) ' очистить окно 
 Print createstr
 set map layer 0 editable on
end sub