[Delphi] - MySQL logowanie do serwera i dynamiczne tworzenie bazy

[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

 

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ć.