|

楼主 |
发表于 2008-7-23 16:57:11
|
显示全部楼层
uses
Business.System, Business.Model, Business.Forms,Business.Data,
PublicFuncLib,WS,GGYWXXInfo,LCGGXXInfo, Business.Model.Flow;
....
type
WebBrowser1: TWebBrowser;
......
procedure TMAINFORM.Tab7Show;
var
lURL: string;
lwebgisID: string;
begin
lwebgisID := dsbYWSLB.DataSet.FieldByName('webgisID').asString;
if lwebgisID = '' then exit;
if FlowBroker1.FlowControl.CurrentProcUnit.IsStartupUnit then
lURL := 'http://192.168.12.112/webgismap/ProjEdit.htm?ProjID="+'+lwebgisID+'+"&Kind=Road&Name="+descript+"&Descript='
else
lURL := 'http://192.168.12.112/webgismap/ProjView.htm?ProjID="+'+lwebgisID+'+"&Kind=Road';
WebBrowser1.Navigate(lURL);
end; |
|