query.~pas

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

unit query;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, MapObjects2_TLB, Grids, ComCtrls, ExtCtrls, jpeg;

type
  TQueryFrm = class(TForm)
    GroupBox1: TGroupBox;
    CbbLayer: TComboBox;
    LbField: TListBox;
    Lbvalue: TListBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    EdtExpression: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BbQuery: TBitBtn;
    BbClear: TBitBtn;
    Label6: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure CbbLayerChange(Sender: TObject);
    procedure LbFieldClick(Sender: TObject);
    procedure LbFieldDblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure LbvalueDblClick(Sender: TObject);
    procedure BbClearClick(Sender: TObject);
    procedure BbQueryClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QueryFrm: TQueryFrm;
  Myrecord:imorecordSet;
implementation

uses Main, ViewAttra;

{$R *.DFM}

procedure TQueryFrm.FormActivate(Sender: TObject);
var
i:integer;

begin
  CbbLayer.clear;
  LbField.Clear;
  Lbvalue.Clear;
  for i:=0 to MainFrm.MainMap.Layers.Count-1 do
  begin
    Currentlayer:=ImoMaplayer(MainFrm.MainMap.Layers.Item(i));
    CbbLayer.Items.Add(Currentlayer.Name);
    //添加图层
  end;
  CbbLayer.Itemindex:=0;
  CbbLayer.OnChange(sender);
end;

procedure TQueryFrm.CbbLayerChange(Sender: TObject);
var
MyTableDesc:imoTableDesc;
i:          integer;
begin
  MyTableDesc:=CoTableDesc.Create;
  Currentlayer:=ImoMaplayer(MainFrm.MainMap.Layers.Item(CbbLayer.Text));
  MyTableDesc:=Currentlayer.Records.TableDesc;
  LbField.Clear;
  for i:=0 to MyTableDesc.FieldCount-1 do
  begin
    LbField.Items.Add(MyTableDesc.FieldName[i]);
       //添加字段
  end;
  LbField.ItemIndex:=0;
  LbField.OnClick(sender);
end;

procedure TQueryFrm.LbFieldClick(Sender: TObject);
var
MyStrings:ImoStrings;
i:integer;
begin
  MyStrings:=CoStrings.Create;
  LbValue.Clear;
  Myrecord:=CurrentLayer.Records;
  Myrecord.MoveFirst;
  While not MyRecord.EOF do
  begin
     //过滤重复值
    MyStrings.Add(Myrecord.Fields.Item(LbField.Items.Strings[LbField.ItemIndex]).ValueAsString);
    Myrecord.MoveNext;

  end;
  for i:=0 to MyStrings.Count - 1 do
   //添加值
   LbValue.Items.Add(MyStrings.Item(i));
end;

procedure TQueryFrm.LbFieldDblClick(Sender: TObject);
begin
  EdtExpression.Text:=EdtExpression.Text+' '+Lbfield.Items.Strings[LbField.itemindex];
end;

procedure TQueryFrm.SpeedButton1Click(Sender: TObject);
begin
  if sender is TSpeedButton then
  //控制快键
     EdtExpression.Text:=EdtExpression.Text+' '+(sender as TSpeedButton).Caption;

end;

procedure TQueryFrm.LbvalueDblClick(Sender: TObject);
var
ThisTableDesc:ImoTableDesc;
begin
  ThisTableDesc:=coTableDesc.Create;
  ThisTableDesc:=CurrentLayer.Records.TableDesc;
  Case ThisTableDesc.FieldType[LbField.ItemIndex] of
     MoString:
              EdtExpression.Text:=EdtExpression.Text+' '+chr(39)+
                                    LbValue.Items.Strings[LbValue.itemindex]+chr(39);
  else
   //表达式的显示
    EdtExpression.Text:=EdtExpression.Text+''+LbValue.Items.Strings[LbValue.itemindex];
  end;

end;

procedure TQueryFrm.BbClearClick(Sender: TObject);
begin
  EdtExpression.Text:='';
end;

procedure TQueryFrm.BbQueryClick(Sender: TObject);
var
Mypolygon:  ImoPolygon;
Myfield:    IMoField;
begin
   if EdtExpression.Text<>'' then
     begin
      MainFrm.FindRecord:= CurrentLayer.SearchExpression(EdtExpression.Text);

        if not MainFrm.FindRecord.EOF then
         begin
           Myfield:= MainFrm.FindRecord.Fields.Item('shape');
           Mypolygon := IMoPolygon(IDispatch(Myfield.value));
           mainfrm.mainmap.CenterAt(Mypolygon.Centroid.x,Mypolygon.centroid.y);
           MainFrm.MainMap.Refresh;
         
         {MainFrm.FindRecord.Export('F\:pp.shp',CurrentLayer.CoordinateSystem);}
         //输出结果
          if MainFrm.Mnzl.Checked then mainFrm.ShowZl();//调出资料
          mainFrm.AttrShow();
          MainFrm.FindRecord:=nil;
         end
         else
            begin
              showmessage('没有符合记录，请重试');
              exit;
            end;

       
      end

   else

   Application.MessageBox('请输入表达式','提示',Mb_Ok);
end;

end.