首先新建一个FORM在上面放一个Tedit (name:edit1)、
TWebBrowser (name: WebBrowser1)、
TMemo (name: Memo1)、
TButton (name: Button1)代码如下：
procedure TForm1.FormCreate(Sender: TObject);
var ConStr: widestring;
begin
ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source=C:!gajbaAboutaboutdelphi.mdb;'+
'Persist Security Info=False';
DBGrid1.DataSource := DataSource1;
DataSource1.DataSet := ADOQuery1;
ADOQuery1.Connection := ADOConnection1;
ADOConnection1.ConnectionString := ConStr;
ADOConnection1.LoginPrompt:=False;
Edit1.Text:='SELECT * FROM [tablename]';
Memo1.Text:='';
end;
procedure TForm1.Button1Click(Sender: TObject);
var
shtml : widestring;
htmlfile : TextFile;
i : integer;
AvailableFields: set of TFieldType;
begin
AvailableFields:=[ftWideString, ftDate, ftFloat];
//open query
ADOQuery1.SQL.Text:=Edit1.Text;
ADOQuery1.Open;
// --> create a html page
//html header
shtml:= '<html> <head> <title>';
shtml:= shtml + Edit1.Text;
shtml:= shtml + '</title></head>' + #13#10;
shtml:= shtml + '<body>' + #13#10;
shtml:= shtml + 'Table created from query: '
+ Edit1.Text + '' + #13#10;
//table header
shtml:= shtml + '<table border="1" width="100%">' + #13#10;
shtml:= shtml + '<tr>' + #13#10;
for i:=0 to AdoQuery1.FieldCount-1 do
begin
if ADOQuery1.Fields[i].DataType in AvailableFields then
begin
shtml:= shtml + '<td>';
shtml:= shtml +
'' +
ADOQuery1.Fields[i].DisplayName +
'';
shtml:= shtml + '</td>' + #13#10;
end;
end;{for}
shtml:= shtml + '</tr>' + #13#10;
//table body
while not adoquery1.Eof do
begin
shtml:= shtml + '<tr>' + #13#10;
for i:=0 to AdoQuery1.FieldCount-1 do
begin
if ADOQuery1.Fields[i].DataType in AvailableFields then
begin
shtml:= shtml + '<td>';
shtml:= shtml + ADOQuery1.Fields[i].AsString;
shtml:= shtml + '</td>' + #13#10;
end;
end;{for}
shtml:= shtml + '</tr>' + #13#10;
ADOQuery1.Next;
end;{while}
shtml:= shtml + '</table>' + #13#10;
shtml:= shtml + '</body></html>';
// --> assign to memo
Memo1.Text := shtml;
// --> save in a htm file
AssignFile(htmlfile,
ChangeFileExt(
Application.ExeName,'.htm'));
Rewrite(htmlfile);
WriteLn(htmlfile, shtml);
CloseFile(htmlfile);
// --> browse to the file
WebBrowser1.Navigate(ChangeFileExt(
Application.ExeName,'.htm'));
end;{Button1.OnClick}
procedure TForm1.FormCreate(Sender: TObject);var ConStr: widestring;beginConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+ 'Data Source=C:!gajbaAboutaboutdelphi.mdb;'+ 'Persist Security Info=False';DBGrid1.DataSource := DataSource1;DataSource1.DataSet := ADOQuery1;ADOQuery1.Connection := ADOConnection1;ADOConnection1.ConnectionString := ConStr;ADOConnection1.LoginPrompt:=False;Edit1.Text:='SELECT * FROM [tablename]';Memo1.Text:='';end;procedure TForm1.Button1Click(Sender: TObject);var shtml : widestring; htmlfile : TextFile; i : integer; AvailableFields: set of TFieldType;beginAvailableFields:=[ftWideString, ftDate, ftFloat];//open queryADOQuery1.SQL.Text:=Edit1.Text;ADOQuery1.Open;// --> create a html page//html header shtml:= '<html> <head> <title>'; shtml:= shtml + Edit1.Text; shtml:= shtml + '</title></head>' + #13#10; shtml:= shtml + '<body>' + #13#10; shtml:= shtml + 'Table created from query: ' + Edit1.Text + '' + #13#10;//table header shtml:= shtml + '<table border="1" width="100%">' + #13#10; shtml:= shtml + '<tr>' + #13#10; for i:=0 to AdoQuery1.FieldCount-1 do begin if ADOQuery1.Fields[i].DataType in AvailableFields then begin shtml:= shtml + '<td>'; shtml:= shtml + '' + ADOQuery1.Fields[i].DisplayName + ''; shtml:= shtml + '</td>' + #13#10; end; end;{for}
end; shtml:= shtml + '</tr>' + #13#10;//table body while not adoquery1.Eof do begin shtml:= shtml + '<tr>' + #13#10; for i:=0 to AdoQuery1.FieldCount-1 do begin if ADOQuery1.Fields[i].DataType in AvailableFields then begin shtml:= shtml + '<td>'; shtml:= shtml + ADOQuery1.Fields[i].AsString; shtml:= shtml + '</td>' + #13#10; end; end;{for} shtml:= shtml + '</tr>' + #13#10; ADOQuery1.Next; end;{while} shtml:= shtml + '</table>' + #13#10; shtml:= shtml + '</body></html>';// --> assign to memo Memo1.Text := shtml;// --> save in a htm file AssignFile(htmlfile, ChangeFileExt( Application.ExeName,'.htm')); Rewrite(htmlfile); WriteLn(htmlfile, shtml); CloseFile(htmlfile);// --> browse to the file WebBrowser1.Navigate(ChangeFileExt( Application.ExeName,'.htm')); end;{Button1.OnClick}
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
