Programmet jeg gerne ville flette det sammen med har jeg hentet fra delphiabout.coms databasetutorial, men jeg har oose andre programmer jeg kunne ønske denne 'udvidelse af fkt' i. Men her er et af eks.erne:
unit about2Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, Grids, DBGrids, Db, ADODB,shellapi,ExtCtrls,SHDocVw,mask,
DBCtrls;
type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
WebBrowser1: TWebBrowser;
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
DBNavigator1: TDBNavigator;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
// procedure CopyToClipboard;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
var ConStr: widestring;
begin
ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source=db.mdb;'+
'Persist Security Info=False';
DBGrid1.DataSource := DataSource1;
DataSource1.DataSet := ADOQuery1;
ADOQuery1.Connection := ADOConnection1;
ADOConnection1.ConnectionString := ConStr;
ADOConnection1.LoginPrompt:=False;
Edit1.Text:='SELECT * FROM [tbl_Artikler]';
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: <i>'
+ Edit1.Text + '</i>' + #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 +
'<b>' +
ADOQuery1.Fields[i].DisplayName +
'</b>';
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, 'test.htm');
//ChangeFileExt(Application.ExeName,'.htm'));
Rewrite(htmlfile);
//WriteLn( htmfile,shtml);
CloseFile(htmlfile);
// --> browse to the file
//WebBrowser1.Navigate(aboutproject1.htm);
WebBrowser1.Navigate(ChangeFileExt(
Application.ExeName,'.htm'));
end;{Button1.OnClick}
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.copytoclipboard;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
//WebBrowser1.Navigate(aboutproj2.htm);
WebBrowser1.Navigate(ChangeFileExt(
Application.ExeName,'.htm'));
refresh;
end;
procedure TForm1.Button4Click(Sender: TObject);
VAR
Lines : TStringList;
begin
begin
Lines := TStringList.Create;
begin
Lines.Text :=Memo1.Lines.Text;
end;
Lines.SaveToFile('aboutProj2.htm');
Lines.Free;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOConnection1.Close;
end;
end.
Ny bruger
Nybegynder
Opret
Preview
