procedure TForm1.LinkKomponents;
begin
with ZConnection1
do begin
Database := '
wow_game';
HostName := '
localhost';
Password := '
password';
Port := 3306;
//Oder der von euerem Provider angegebene
Protocol := '
mysql';
User := '
root';
end;
ZQuery1.Connection := ZConnection1;
DataSource1.DataSet := ZQuery1;
DBGrid1.DataSource := DataSource1;
DBEdit1.DataSource := DataSource1;
DBEdit1.DataField := '
entry';
DBEdit2.DataSource := DataSource1;
DBEdit2.DataField := '
entry';
end;
procedure TForm1.Btn_VerbClick(Sender: TObject);
begin
ZConnection1.Disconnect;
ZConnection1.Connect;
end;
procedure TForm1.Btn_TrennClick(Sender: TObject);
begin
ZConnection1.Disconnect;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ZConnection1.Disconnect;
LinkKomponents;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
ZConnection1.Disconnect;
end;
procedure TForm1.Btn_AbfrClick(Sender: TObject);
begin
ZQuery1.close;
ZQuery1.SQL:= memo1.Lines;
ZQuery1.Open;
ZQuery1.close;
end;