frm_escapecriminal.~pas

用Delhpi和mapx开发的警务管理系统

unit frm_EscapeCriminal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Base_ListView, ExtCtrls, Base_Panel, StdCtrls,
  Base_StaticText, Buttons,adodb,cls_GridListView, cls_DataPub, frmSystemDM,MapXLib_TLB;

type
  TForm_EscapeCriminal = class(TForm)
    Base_Panel2: TBase_Panel;
    lv_Result: TBase_ListView;
    Base_Panel3: TBase_Panel;
    Button1: TButton;
    Button2: TButton;
    //procedure SpeedButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    m_Map:TMap;
    mAdoQue:TADOQuery;
  public
    { Public declarations }
    constructor create(Aowner:TComponent;aMap:Tmap;aAdoQue:TADOQuery);reintroduce;overload;
  end;

var
  Form_EscapeCriminal: TForm_EscapeCriminal;

implementation


{$R *.dfm}

constructor TForm_EscapeCriminal.create(Aowner:TComponent;aMap:Tmap;aAdoQue:TADOQuery);
begin
  inherited create(Aowner);
  m_Map:=aMap;
  mAdoQue:=aAdoQue;
end;

{procedure TForm_EscapeCriminal.SpeedButton1Click(Sender: TObject);
var
  strSql:string;
  adoQue:TADOQuery;
  cGrid:TGridListView;
  cDataPub:TDataPub;
  sArrCaption:array of string;
  iLoop:integer;
  iFirstNum:integer;
begin
  cGrid:=TGridListView.create(systemDM.Glb_BasicDataOperate);
  if rad_Identity.Checked=true then
  begin
    strSql:='select * from StayEscaNo';
    cDataPub:=TDataPub.create(systemDM.Glb_BasicDataOperate,'StayEscaNo');
    adoQue:=systemDM.Glb_BasicDataOperate.adoGetAdoQuery(strSql);
    cGrid.AddDatatoListView('StayEscaNo',adoQue,lv_Result,True);
  end
  else if rad_Name.Checked=true then
  begin
    strSql:='select * from StayEscaName';
    cDataPub:=TDataPub.create(systemDM.Glb_BasicDataOperate,'StayEscaName');
    adoQue:=systemDM.Glb_BasicDataOperate.adoGetAdoQuery(strSql);
    cGrid.AddDatatoListView('StayEscaName',adoQue,lv_Result,True);
  end;
  cDataPub.sChangeListCaption(TBase_ListView(lv_Result));
  cDataPub.sChangeListData(TBase_ListView(lv_Result));
  cGrid.Free;
  cDataPub.Free;

end;}

procedure TForm_EscapeCriminal.Button1Click(Sender: TObject);
begin
  Self.Close;
end;

procedure TForm_EscapeCriminal.Button2Click(Sender: TObject);
var
  strSql:string;
  adoTempQue:TADOQuery;
  iLoop:integer;
  ftrs:Features;
  ftrId:array of integer;
begin
  if lv_Result.SelCount=0 then
  begin
    Application.MessageBox('请选择记录！','提示',MB_OK + MB_ICONINFORMATION);
    exit;
  end;
  strSql:='select * from DOORPLATE,StayEscaNo where DOORPLATE.Street=StayEscaNo.StayAddStreet and DOORPLATE.DOORPLATE=StayAddDetail';
  adoTempQue:=systemDM.Glb_BasicDataOperate.adoGetAdoQuery(strSql);
  SetLength(ftrId,1);

  for iLoop:=0 to lv_Result.Selected.Index -1 do
  begin
    adoTempQue.Next;
  end;
  ftrId[0]:=adoTempQue.fieldbyname('FEATUREID').AsInteger;
  adoTempQue.Free;

  for iLoop:=0 to length(ftrid)-1 do
  begin
    strSql:='FEATUREID=' + inttostr(ftrid[iLoop]);
    ftrs:=m_Map.Layers['DOORPLATE_S'].Search(strSql,EmptyParam);
    if ftrs.Count<>0 then
    begin
      m_Map.CenterX:=ftrs[1].CenterX;
      m_Map.CenterY:=ftrs[1].CenterY;
      m_Map.Layers['DOORPLATE_S'].Selection.Add(ftrs);
    end;
  end;
  self.Close;
end;

procedure TForm_EscapeCriminal.FormCreate(Sender: TObject);
var
  cGrid:TGridListView;
  cDataPub:TDataPub;
begin
  if mAdoQue=nil then
    exit;
  cGrid:=TGridListView.create(systemDM.Glb_BasicDataOperate);
  cDataPub:=TDataPub.create(systemDM.Glb_BasicDataOperate,'StayEscaNo');
  cGrid.AddDatatoListView('StayEscaNo',madoQue,lv_Result,True);
  cDataPub.sChangeListCaption(TBase_ListView(lv_Result));
  cDataPub.sChangeListData(TBase_ListView(lv_Result));
  cGrid.Free;
  cDataPub.Free;
end;

end.