procedure TfrmMainForm.FormShow(Sender: TObject);
var
dlg : TfrmLogin;
begin
dlg := TfrmLogin.Create(self);
//dlg.ShowModal;
//测试时候注销上一句
dlg.Free;
if dmClientDM.cdsUser.RecordCount <> 1 then
begin
Application.Terminate;
end;
actToolsSelect.Execute;
end;
procedure TfrmMainForm.tmMainTimer(Sender: TObject);
begin
sbTime.Panels.Items[0].Text := FormatDateTime('YYYY-MM-DD HH:NN:SS',Now());
end;
procedure TfrmMainForm.FormActivate(Sender: TObject);
begin
searchLayer := mapMainMap.Layers.Item('Canada Major Cities');
end;
procedure TfrmMainForm.mapMainMapToolUsed(ASender: TObject;
ToolNum: Smallint; X1, Y1, X2, Y2, Distance: Double; Shift,
Ctrl: WordBool; var EnableDefault: WordBool);
Var
i : Integer;
fID : String;
pt : Variant;
curFeatures : Variant;
obj : Variant;
begin
pt := CreateOleObject('MapX.Point.4');
if ToolNum = miSelectTool then
begin
pt.Set(X1,Y1);
curFeatures := SearchLayer.SearchAtPoint(pt);
for i := 1 to curFeatures.Count do
begin
obj := curFeatures.Item(i);
Str(obj.FeatureID:4:0, fID);
self.clbCompany.Items.Add(obj.Name);
dmClientDM.curCompany := obj.Name;
//self.mmQueryDetail.Click;
end;
end;
//sbMainMap.Panels.Items[0].Text := Format('X = %d',pt.X);
//sbMainMap.Panels.Items[1].Text := Format('Y = %d',pt.Y);
end;
procedure TfrmMainForm.clbCompanyDblClick(Sender: TObject);
var
i : integer;//循环变量
begin
for i:=0 to clbCompany.Items.Count - 1 do
begin
if clbCompany.Selected[i] then
begin
dmClientDM.curCompany := clbCompany.Items.Strings[i];
// self.mmQueryDetail.Click;
exit;
end;
end;
end;
procedure TfrmMainForm.sbAllSelectClick(Sender: TObject);
var
i : integer;
begin
for i:=0 to self.clbCompany.Count - 1 do
begin
self.clbCompany.Checked[i] := true;
end;
end;
procedure TfrmMainForm.sbNullSelectClick(Sender: TObject);
var
i : integer;
begin
for i:=0 to self.clbCompany.Count - 1 do
begin
self.clbCompany.Checked[i] := false;
end;
end;
procedure TfrmMainForm.sbNotSelectClick(Sender: TObject);
var
i : integer;
begin
for i:=0 to self.clbCompany.Count - 1 do
begin
self.clbCompany.Checked[i] := not self.clbCompany.Checked[i];
end;
end;
procedure TfrmMainForm.sbDeleteClick(Sender: TObject);
var
i : integer;
begin
self.clbCompany.MultiSelect := true;
for i:=0 to self.clbCompany.Count - 1 do
begin
self.clbCompany.Selected[i] := self.clbCompany.Checked[i];
end;
self.clbCompany.DeleteSelected;
self.clbCompany.MultiSelect := false;
end;
procedure TfrmMainForm.actToolsSelectExecute(Sender: TObject);
begin
mapMainMap.CurrentTool := miSelectTool;
end;
procedure TfrmMainForm.actToolsZoominExecute(Sender: TObject);
begin
mapMainMap.CurrentTool := miZoomInTool;
end;
procedure TfrmMainForm.actToolsZoomoutExecute(Sender: TObject);
begin
mapMainMap.CurrentTool := miZoomOutTool;
end;
procedure TfrmMainForm.actToolsMoveExecute(Sender: TObject);
begin
mapMainMap.CurrentTool := miPanTool;
end;
procedure TfrmMainForm.actDataDefineExecute(Sender: TObject);
var
dlg : TfrmDefineTable;
begin
dlg := TfrmDefineTable.Create(Application);
dlg.ShowModal;
dlg.Free;
end;
procedure TfrmMainForm.actDataGenExecute(Sender: TObject);
var
dlg : TfrmMakeUserTable;
begin
dlg := TfrmMakeUserTable.Create(Application);
dlg.ShowModal;
dlg.Free;
end;
procedure TfrmMainForm.actQueryDetailExecute(Sender: TObject);
var
dlg : TfrmDetailDisplay;
begin
dlg := TfrmDetailDisplay.Create(Application);
dlg.ShowModal;
dlg.Free;
end;
procedure TfrmMainForm.actQueryDefineExecute(Sender: TObject);
var
dlg : TfrmDisplaySet;
begin
dlg := TfrmDisplaySet.Create(Application);
dlg.ShowModal;
dlg.Free;
end;
procedure TfrmMainForm.actHelpAboutExecute(Sender: TObject);
var
dlg : TfrmAbout;
begin
dlg := TfrmAbout.Create(Application);
dlg.ShowModal;
dlg.Free;
end;