viewattrabute.txt

来自「校园GIS系统——介绍校园个部门」· 文本 代码 · 共 63 行

unit ViewAttrabute;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,MapObjects2_TLB, Grids, ComCtrls;

type
  TViewAttrFrm = class(TForm)
    StringGrid1: TStringGrid;
    StatusBar2: TStatusBar;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ViewAttrFrm: TViewAttrFrm;

implementation

uses Unitmain;

{$R *.dfm}

procedure TViewAttrFrm.FormActivate(Sender: TObject);
Var
i,j:integer;
ThisRecord:ImoRecordSet;
begin
 
    Currentlayer:=ImoMaplayer(MainFrm.MainMap.Layers.Item(0));
    ThisRecord:=CurrentLayer.Records;
    StringGrid1.ColCount:=ThisRecord.TableDesc.FieldCount-1;
    StringGrid1.rowCount:=ThisRecord.Count-1;
    for i:=0 to ThisRecord.TableDesc.FieldCount-1 do
     begin
       StringGrid1.Cells[i,0] := ThisRecord.fields.Item(ThisRecord.TableDesc.FieldName[i]).Name ;
        j:=1;
       //Showmessage(intTostr(i));
       //添加字段
      // for j:=0 to ThisRecord.Count-1 do
          //StringGrid1.Cells[j,i+1] := ThisRecord.fields.Item(ThisRecord.TableDesc.FieldName[2]).ValueAsString;
          Thisrecord.MoveFirst;
          While not ThisRecord.EOF do
            begin
             StringGrid1.Cells[i,j] := ThisRecord.fields.Item(StringGrid1.Cells[i,0]).ValueAsString;
             j:=j+1;

              ThisRecord.MoveNext;
            end;


     end;

     //StatusBar2.Panels[0].Text:='共'+ intTostr(StringGrid1.rowCount) +'条记录' ;

end;

end.