Zeos VeriTabanı işlemler

ZEOS kullanarak yapılan kullanıcı tanımlama, kullanıcının hangi DB yi kullanacağını tanımlama ve SQL dosyasında hazır olan script in seçilen DB ye aktarılması.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ZConnection1.Connect;

  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('CREATE DATABASE bsbuzlu');
      ExecSQL;
    end;
  memo1.Lines.Add('Bağlantı Kuruldu. Veritabanı açıldı.');
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('USE mysql;');
      ExecSQL;
    end;
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO user (Host,User,Password)');
      SQL.Add('VALUES (''%'',''deneme'',PASSWORD(''123''))');
      ExecSQL;
    end;
  memo1.Lines.Add('Kullanıcı Eklendi');
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO db (Host,Db,User,Select_priv,Insert_priv,');
      SQL.Add('Update_priv,Delete_priv,Create_priv,Drop_priv,Lock_tables_priv)');
      SQL.Add('VALUES (''%'',''bsbuzlu'',''deneme'',''Y'',''Y'',''Y'',''Y'',''Y'',''Y'',''Y'')');
      ExecSQL;
    end;
  memo1.Lines.Add('Kullanıcının veritabanı belirlendi.');
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('FLUSH PRIVILEGES');
      ExecSQL;
    end;
  with ZQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('USE bsbuzlu;');
      ExecSQL;
    end;
  ZSQLProcessor1.LoadFromFile(ExtractFilePath(Application.ExeName) + 'createClient.sql');
  ZSQLProcessor1.Execute;
  memo1.Lines.Add('Veritabanına Tablolar Eklendi.');
end;