тора/К. Луні, Б. Брила М .: Видавництво «Лорі», 2008. - 729 с.
Клайн, К. SQL. Довідник. 2-ге видання/К. Клайн М .: КУДИЦ-ОБРАЗ, 2006. - 832 с.
Браун, С. Visual Basic 6. Навчальний курс/С. Браун СПб .: Питер, 2007. - 576 с.
Додаток А
У додатку А представлений вихідний код розроблених функцій і процедур в середовищі Delphi
procedure TFormMap.FormCreate (Sender: TObject);:=TMetafile.Create;:=TGranImg.Create;.Date:=Today;:=TListParamTypeLine.Create(True);.ADODataSetMapSlv.Active:=True;.ADODataSetMapSlvm.Active:=True;.ADODataSetWellHdr.Active:=False;:=TStringList.Create;;;TFormMap.FormDestroy(Sender: TObject);.Free;.Free;.ADODataSetLayerHdr.Active:=False;.ADODataSetMapSlv.Active:=False;.ADODataSetMapSlvm.Active:=False;.ADODataSetWellHdr.Active:=False;.Free;.Free;;TFormMap.DrawLabelToLine(koor:TKoor; ugol: Integer; str: String; var mc: TMetafileCanvas) ;: TLogFont; str lt; gt; 0 then (lf, SizeOf (lf), 0); lf do:=+60;:=30;:=ugol;:=0 ;;. Font.Handle:=CreateFontIndirect(lf);.Font.Color:=clBlack;.TextOut(koor.x,koor.y,str);;;TFormMap.AllShpToTextFile;: Integer; i:=0 to ListParamTypeLine.Count - 1 do (i) ;; TFormMap.ShpToTextFile (i: Integer) ;: IShapefile ;: IShape ;: MapWinGis_TLB.ITable ;: ICallBack;, strY, filename, znLine, filedbf: String;, m, q, numShapes: Integer;, koorY: Double ;: TextFile ;: Integer;:=CoShapefile.Create;:=MapWinGis_TLB.CoTable.Create;:=ListParamTypeLine.GetTypeLine(i);:=ListParamTypeLine.GetFullName(i);:=ChangeFileExt(filename,laquo;.dbfraquo;);typeLine of
, 1..16: ((typeLine=16) and (bSkv=True)) or (typeLine lt; gt; 16) thennot pShapefile.Open (filename, cb) then (0, PChar ( Не вдається відкрити файл + filename), Увага , MB_OK or MB_ICONHAND) not pTable.Open (filename, cb) then (0, PChar ( Не вдається відкрити файл + filedbf), Увага , MB_OK or MB_ICONHAND):=pShapefile.NumShapes;:=ListParamTypeLine.GetFileName(i);:=DirTempFolder+filename;(f,filename);(f);(f,laquo;FFASCI 0 1 LINES 0 1e + 10 ); (f, FFATTR 0 1 ); j:=0 To numShapes - 1 do:=pShapefile.Shape [j]; (f, - gt; + IntToStr (j + 1));:=pTable.CellValue [0, j]; q:=0 to pShape.numPoints - 1 do:=pShape.Point [q] .x;:=pShape.Point [ q] .y;:=FloatToStr (koorX); m:=StrLen (PChar (StrX)) to 11 do:=StrX + raquo ;;:=FloatToStr (koorY); m:=StrLen (PChar (StrY)) to 11 do:=StrY + raquo ;; (f, StrX, StrY, znLine) ;;; (f) ;;. Close ;;;;; TFormMap.FileToHex (fname: String): String ;: TFileStream;, col_byte: Integer ;: String ;: array [1..100] of Char ;: array [1..200] of Char; not FileExists (fname) then ( Помилка відкриття файлу + fname);:=laquo;raquo;;:=TFileStream.Create(fname,fmOpenRead);:=laquo;raquo;;:=0;_byte:=100;totallt;fStream.Size dofStream.Size-col_byte-total lt; 0 then_byte:=fStream.Size-total;.Read(Buf,col_byte);(@Buf,@Buf2,col_byte);:=s+Copy(Buf2,1,col_byte*2);:=total+col_byte;;.Free;:=s;;;TFormMap.LoadWmfToScr(filename:String) ;: Double ;: TMetafile ;: TMetafileCanvas ;: TRect;:=TMetafile.Create;.LoadFromFile(filename);.Width:=abs(mf.Width);:=mf.Width/mf.Height;:=Rect(0,0,ImageWmf.Width,Round(ImageWmf.Width/k1));.Width:=ImageWmf.Width;.Height:=Round(ImageWmf.Width/k1);:=TMetafileCanvas.Create(mfOrig,0);.StretchDraw(RectM,mf);.Free;.Free;.Height:=mfOrig.Height;.Picture.Metafile:=mfOrig;;TFormMap.LoadShp(filename:String; kodmest: Integer; InnerCall: Boolean=False): String;:=ExtractFileExt (filename) ;. Caption:= Завантаження картыraquo;;_mest:=kodmest;:=taInsert;_step:=1;:=ExtractFilePath(filename);fileext=laquo;.aprraquo; then (filename) ;;;;:=DirTempFolder + LEMapName.Text + .wmf raquo ;; not InnerCall then ;;;;;;;;. DataSet.RecNo:=ListParamTypeLine.GetTypeLine (0); not InnerCall then; :=StrXml ;; TFormMap.FileSaveAs (oldName, newName: String) ;, fstream2: TFileStream;:=TFileStream.Create(oldName,fmOpenRead);:=TFileStream.Create(newName,fmCreate);.CopyFrom(fstream1,fstream1.Size);.Free;.Free;;TFormMap.ClearDataPanel;: TGuid;(iGuid);:=DirTempFolder+GUIDToString(iGuid)+laquo;laquo;;(DirTempFolder);.Date:=Today;DataModuleMap.DataSourceLayerHdr.DataSet.Active then.DataSourceLayerHdr.DataSet.First;.Visible:=False;.Visible:=False;.Enabled:=True;.Enabled:=True;.Position:=5;.Position:=5;;;TFormMap.TBLoadClick(Sender: TObject); OpenDialogApr.Execute then; (OpenDialogApr.FileName, 0, True) ;;; TFormMap.CheckOutputData: Boolean ;: Boolean;:=True; (Trim (LEMapName.Text)= ) or
(Trim (LEAvtor.Text)= ):=False;:=bCheck ;; TFormMap.TBSaveClick (Sender: TObject); not CheckOutputData then (0, Дані не коректні ! , Увага , MB_OK or MB_ICONSTOP) ;; (nameWmf); (nameWmf) ;;;; TFormMap.GenerateIdm: String ;: TGuid ;: String;, i: Integer; (idm);:=GUIDToString (idm);:=Copy (strGuid, 2,36); i:=0 to 3 do:=Pos(laquo;-raquo;,strGuid);:=Copy(strGuid,1,pos1-1)+Copy(strGuid,pos1+1,StrLen(PChar(strGuid))-pos1);;:=strGuid;;TFormMap.BSmallImgClick(Sender...
