selectfiled.~pas

校园GIS系统——介绍校园个部门

unit SelectFiled;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, MapObjects2_TLB;

type
  TSelectFrm = class(TForm)
    CbbFields: TComboBox;
    Label1: TLabel;
    BtConcel: TButton;
    BtSure: TButton;
    procedure FormActivate(Sender: TObject);
    procedure BtConcelClick(Sender: TObject);
    procedure BtSureClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SelectFrm: TSelectFrm;

implementation

uses Main;

{$R *.DFM}

procedure TSelectFrm.FormActivate(Sender: TObject);
var
i:integer;
ThisRecord:ImoRecordSet;
begin

  CurrentLayer:=ImoMaplayer(MainFrm.MainMap.Layers.Item(0));
  ThisRecord:=Currentlayer.Records;
  for i:=0 to ThisRecord.TableDesc.FieldCount-1 do
    CbbFields.items.Add(ThisRecord.TableDesc.FieldName[i]);
  CbbFields.ItemIndex:=0;
end;

procedure TSelectFrm.BtConcelClick(Sender: TObject);
begin
  MainFrm.SbFlashGet.Down:=false;
  SelectFrm.Close;
   
end;

procedure TSelectFrm.BtSureClick(Sender: TObject);
begin
  MainFrm.DoMaptip();
  MainFrm.MainMap.MousePointer:=MoCross;
  MainFrm.SbFlashGet.Down:=true;
  MainFrm.StatusBar1.Panels[0].Text:='当前状态:  '+ '快速获取';
  SelectFrm.Close;
end;

end.