[Delphi] - MySQL logowanie do serwera i dynamiczne tworzenie bazy, ogólnie chodzi o to żeby ominąć konsole i wszysko robić w kodzie Opcje

[Integer]

Witam

Mam pytanie a właściwie prośbę o wytłumaczenie jak albo jakiegoś linka który "mówi" jak
w kodzie Delphi o ile się da zrobić następujące operacje na Serwerze MySQL:

1. Zmienić hasło admina;
2. Założyć bazę z hasłem;

o połączenie i inne operacje nie pytam bo do tego są przykłady,
ale nad tym już trochę kombinuje i normalnie mur.
Delphi 2007 bez dodatków.
Zakładam że jak uruchamiam DBE Administratora i baza jest to znaczy ze wszystko ok ale to moje domysły.

W tej chwili mam taki kod książkowo/ internetowy:

Pozdrawiam

Delphi

unit Unit1;

interface

uses
  // UMyDBDelfin,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WideStrings, FMTBcd, Menus, SqlExpr, DB, DBClient, SimpleDS, ComCtrls,
  DBTables;


const
      // cDirMySQL = 'C:\Documents and Settings\All Users\Dane aplikacji\MySQL\MySQL Server 5.1\data';
      cDirMySQL = 'F:\Programy\WebServ\mysql\data';

type
  TForm1 = class(TForm)
    MySQL: TSQLConnection;
    SQLDataSet: TSQLDataSet;
    SQLQuery1: TSQLQuery;
    MainMenu1: TMainMenu;
    Baza1: TMenuItem;
    BazaCreate1: TMenuItem;
    BazaDestroy1: TMenuItem;
    SimpleDataSet: TSimpleDataSet;
    N1: TMenuItem;
    Disconnet: TMenuItem;
    Connect: TMenuItem;
    StatusBar1: TStatusBar;
    Session: TSession;
    procedure BazaCreate1Click(Sender: TObject);
    procedure ConnectClick(Sender: TObject);
    procedure DisconnetClick(Sender: TObject);
    procedure MySQLLogin(Database: TSQLConnection; LoginParams: TWideStrings);
    procedure MySQLAfterConnect(Sender: TObject);
    procedure MySQLAfterDisconnect(Sender: TObject);
    procedure BazaDestroy1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BazaCreate1Click(Sender: TObject);
begin
  // SQLConnection.Name:= 'MySQLConnection';
  {
  SQLConnection.GetDriverFunc:= 'getSQLDriverMYSQL';

  // SQLConnection.LibraryName:= 'dbxmys.dll';
  SQLConnection.LibraryName:= 'libmySQL.dll';
  SQLConnection.VendorLib:= 'libmySQL.dll';
  }
  // SQLDataSet.SQLConnection:= SQLConnection;

  Session.AutoSessionName:= True;
  if not DirectoryExists( cDirMySQL + '\Delfin' ) then
  begin
    CreateDir( cDirMySQL + '\Delfin'  );
    Session.AddStandardAlias( 'Delfin', cDirMySQL + '\Delfin', '');
  end;

end;

procedure TForm1.BazaDestroy1Click(Sender: TObject);
begin //

end;

procedure TForm1.ConnectClick(Sender: TObject);
begin
  MySQL.DriverName:= 'MySQL';
  MySQL.LoginPrompt:= False;         // nie pojawia sie okienko z zapytaniem o hasło
  MySQL.Connected := True;
end;

procedure TForm1.DisconnetClick(Sender: TObject);
begin
  MySQL.Connected := False;

end;

procedure TForm1.MySQLAfterConnect(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:= 'Connect';
end;

procedure TForm1.MySQLAfterDisconnect(Sender: TObject);
begin
  StatusBar1.Panels[0].Text:= 'DisConnect';
end;

procedure TForm1.MySQLLogin(Database: TSQLConnection;
  LoginParams: TWideStrings);
begin
  LoginParams.Values['User_Name']:= 'root';
  LoginParams.Values['Password']:= '';
  LoginParams.Values['HostName']:= '127.0.0.1';
  LoginParams.Values['Database']:= 'Delfin';
end;

end.
 

[aso]

Skoro to jest MySQL, to musisz wysłać zapytanie MySQL - chyba ten język znasz?

[Integer]

Jeśli chodzi o konsole MySQL to tak jest, ale nie wychodzi mi to z komponentami dbExpress, w książce pisze jak się podłączyć do już istniejącej bazy z loginem i hasłem ale jak takową utworzyć w dbExpress i książki i internet gdzieś pochowały informacje, albo ja juz nie wiem gdzie szukać.