【導讀】Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,RzPanel,ComCtrls,RzListVw,Buttons;btn1:TSpeedButton;procedurebtn1Click(Sender:TObject);end;usesUnitData;procedure(Sender:TObject);i:Integer;n:TListItem;n:=;:=[i].SiteName;(IntToStr([i].SiteID));(IntToStr([i].SiteAddress));(IntToStr([i].NodeAbsoluteIndex));(IntToStr([i].));(IntToStr([i].));#36229#32423#29992#25143#19987#29992#31383#21475#65292#38386#20204#21. 7#36827#12290#36827#26469#20320#20203#30475#19981#25026#12290. ='Tahoma'Caption=#32456#31471'ID'Caption='X'Caption='Y'unitUnitMain;Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,RzPanel,RzSplit,ExtCtrls,ComCtrls,RzListVw,RzTreeVw,RzTabs,Menus,RzCommon,jpeg,RzButton,StdActns,ActnList,ActnMan,ToolWin,ActnCtrls,ActnMenus,ImgList,XPStyleActnCtrls,Grids,RzStatus,DB,ADODB;PSiteNodeData=^TSiteNodeData;end;ShapeDo,ShapeDi:array[0..15]ofTShape;ShapeKa,ShapeKm:array[0..3]ofTShape;constructorCreate;destructorDestroy;override;end;Count:integer;constructorCreate;functionGetIndex(Site:integer):integer;

　　

【正文】 while not do begin NodeSite := (NodeParent, (39。sitename39。).AsString)。 := 2。 := 2。 SiteIndex := ((39。SiteID39。).AsInteger)。 //Data := @([SiteIndex])。 [SiteIndex].NodeAbsoluteIndex := 。 := @([SiteIndex])。 Dec(CountSite)。 。 end。 end。 begin 。 (nil, 39。監(jiān)控中心 39。)。 with qry2 do begin Active := false。 。 (39。select count(SiteID) from site39。)。 Active := True。 end。 CountSite := [0].AsInteger。 s := 39。39。 with qry1 do begin Active := False。 。 (39。select StreetID, StreetName from street where StreetID1 order by StreetName39。)。 Active := true。 end。 while not do begin NodeStreet := ([0], (39。StreetName39。).AsString)。 := 1。 := 1。 SiteTreeAddChild(NodeStreet, 39。=39。 + (39。StreetID39。).AsString)。 if s=39。39。 then s := (39。StreetID39。).AsString else s := s + 39。, 39。 + (39。StreetID39。).AsString。 。 end。 with qry2 do begin Active := False。 。 (39。select count(SiteID) from site where StreetID not in (39。 + s + 39。)39。)。 Active := true。 end。 if [0].AsInteger 0 then begin //if MessageBox(Handle, 39。終端站點丟失，請檢查數(shù)據(jù)庫。 39。 + 1310 + // 39。是否自動修復？ 39。, 39。數(shù)據(jù)庫不匹配 39。, MB_YESNO + MB_ICONSTOP + // MB_DEFBUTTON2 + MB_TOPMOST) = mrYes then // MessageBox(Handle, 39。功能尚未添加，敬請期待。 39。, 39。程序員快累死了 39。, MB_OK + // MB_ICONINFORMATION + MB_DEFBUTTON2 + MB_TOPMOST)。 SiteTreeAddChild([0], 39。 not in (39。 + s +39。)39。)。 end。 [0].Expand(True)。 := [0]。 end。 procedure 。 //var // i: integer。 begin if then begin if 0 then := 0。 if then := 。 end else begin if 0 then := 0。 if then := 。 end。 if then begin if 0 then := 0。 if then := 。 end else begin if 0 then := 0。 if then := 。 end。 {for i:=0 to do begin [i]. := trunc([i]. * MapRate[]) + 。 [i]. := trunc([i]. * MapRate[]) + 。 [i]. := [i]. + 18。 [i]. := [i]. + 2。 end。} end。 procedure (Sender: TObject)。 begin MapReposition。 RefreshShapeNav。 //RefreshControlCenter。 end。 procedure 。 begin := * 240 div 。 := * 181 div 。 := * 240 div 。 := * 181 div + 。 end。 procedure (Sender: TObject)。 begin // //(, 39。這里插入了一個 39。)。 畢業(yè)論文 constructor 。 var i: integer。 //j: Integer。 begin := 0。 := 0。 Count := 。 SetLength(Items, Count)。 for I := 0 to Count 1 do begin Items[i] := 。 Items[i].SiteName := [i].SiteName。 Items[i].SiteAddress := [i].SiteAddress。 end。 //j := 0。 {for i:=1 to SiteMaxCount do begin if [i]nil then begin if Items[j]=nil then Items[j] := 。 Items[j].SiteCode := i。 Items[j].SiteName := [i].SiteName。 Items[j]. := j*20。 Items[j]. := Format(39。 %03d 39。+Items[j].SiteName, [Items[j].SiteCode])。 j := j + 1。 end。