Особенности технической реализации
Важной
частью технической реализации является
код программы. Рассмотрим код главного
окна ИПС, которое содержит всю информацию
о архитектурно-археологических памятниках
Центрального Федерального Округа, по
какому принципу загружается информация
из базы данных.
procedure Tkarta.tambovClick(Sender: TObject);
begin
glavn.Caption:='Архитектрно-археологические памятники Тамбовской области';
glavn.ADOTable1.Active:=false;
glavn.ADOTable1.TableName:='tambovsk';
glavn.ADOTable1.Active:=true;
gg:='BD.mdb';
glavn.Img1.Picture.LoadFromFile(glavn.ADOTable1.Fields.Fields[1].AsString);
glavn.Img2.Picture.LoadFromFile(glavn.ADOTable1.Fields.Fields[2].AsString);
glavn.Info.DataField:='Opisanie';
glavn.Podpis1.DataField:='Podpis1';
glavn.Podpis2.DataField:='Podpis2';
glavn.ADOTable1.Next;
glavn.Showmodal;
end;
procedure Tkarta.tverskClick(Sender: TObject);
begin
glavn.Caption:='Архитектрно-археологические памятники Тверской области';
glavn.ADOTable1.Active:=false;
glavn.ADOTable1.TableName:='Tverskay';
glavn.ADOTable1.Active:=true;
gg:='BD.mdb';
glavn.Img1.Picture.LoadFromFile(glavn.ADOTable1.Fields.Fields[1].AsString);
glavn.Img2.Picture.LoadFromFile(glavn.ADOTable1.Fields.Fields[2].AsString);
glavn.Info.DataField:='Opisanie';
glavn.Podpis1.DataField:='Podpis1';
glavn.Podpis2.DataField:='Podpis2';
glavn.ADOTable1.Next;
glavn.Showmodal;
end;
Таким образом загружается информация для каждой области.
Код экспорта таблицы в HTML
procedure Tglavn.HTMLClick(Sender: TObject);
var f:textfile;
i,j:integer;
s:string;
kolk,kolstr:integer;
begin
kolstr:=glavn.Adotable1.RecordCount;
kolk:=glavn.Adotable1.FieldCount;
ShowMessage(IntToStr(kolk)+' '+inttostr(kolstr));
assignfile(f,path+'1.html');
rewrite(f);
AdoTable1.First;
writeln(f,'<html>');
writeln(f,'<table border=1 bordercolor=red width=100%>');
for j:=1 to kolstr do begin
s:='<TR>';
for i:=1 to kolk do begin
if ((i=2) or (i=3)) then
s:=s+'<TD bgcolor=white><img src="'+path+AdoTable1.Fields.Fields[i-1].AsString +'"></TD>'
else
s:=s+'<TD bgcolor=white>'+AdoTable1.Fields.Fields[i-1].AsString +'</TD>
end;
s:=s+'</TR>';
writeln(f,s);
Adotable1.Next;
end;
writeln(f,'<table>');
writeln(f,'</BODY>');
CloseFile(f); end;
Экспорт таблицы в Excel.
procedure Tglavn.ExcelClick(Sender: TObject);
Var
Excel:Variant;
Roww,workbook,colum:Variant;
kolr,kolc,i,j:integer;
k:string;
begin
kolr:=Adotable1.RecordCount;
kolc:=Adotable1.FieldCount;
Excel:=CreateOleObject('Excel.Application');
workbook:=Excel.workbooks.Add;
Colum:=Excel.workbooks[1].worksheets[1].columns;
Roww:=Excel.workbooks[1].worksheets[1].Rows;
Excel.workbooks[1].workSheets[1].name:='ЦФО';
colum.Columns[1].columnWidth:=10;
colum.Columns[2].columnWidth:=10;
colum.Columns[3].columnWidth:=20;
colum.Columns[4].columnWidth:=30;
colum.Columns[5].columnWidth:=30;
colum.Columns[6].columnWidth:=150;
colum.Columns[7].columnWidth:=100;
colum:=Excel.workbooks[1].workSheets['ЦФО'].Rows;
for i:=1 to kolr do begin
colum.rows[i].font.size:=14;
end;
Excel.Visible:=true;
AdoTable1.First;
For i:= 1 to kolr do begin
For j:= 1 to kolc do begin
k:=AdoTable1.Fields.Fields[j+1].AsString;
if ((j=2) or (j=3)) then
Excel.Activeworkbook.worksheets[1].cells[i,j]:=path+k
else
Excel.Activeworkbook.worksheets[1].cells[i,j]:=k;
end;
Adotable1.Next;
end;
end;