interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, DBXpress, DB, SqlExpr, StdCtrls, ComCtrls, FMTBcd, Grids,DBGrids, Provider, DBClient, DBLocal, DBLocalS, DBTables;typeTForm1 = class(TForm)SQLConnection: TSQLConnection;StatusBar1: TStatusBar;Label1: TLabel;DataSource1: TDataSource;DBGrid1: TDBGrid;GrouPBox1: TGroupBox;Label2: TLabel;Password: TEdit;User_Name: TEdit;HostName: TEdit;Label3: TLabel;Label4: TLabel;Button1: TButton;GroupBox2: TGroupBox;Label5: TLabel;ESQL: TEdit;Label6: TLabel;Database: TEdit;ButtonGo: TButton;SQLClientDataSet: TSQLClientDataSet;procedure Button1Click(Sender: TObject);procedure ButtonGoClick(Sender: TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);beginwith SQLConnection dobeginClose;Params.Values['HostName']:=HostName.Text;Params.Values['UserName']:=User_Name.Text;Params.Values['Password']:=Password.Text;Params.Values['Database']:=Database.Text;tryConnected:=True;Statusbar1.Panels[0].Text:='Connect OK';ButtonGo.Enabled:=True;exceptMessageDlg('Connect Error',mtError,[mbyes],0);end;end;end;procedure TForm1.ButtonGoClick(Sender: TObject);beginwith SQLClientDataSet dobeginClose;CommandText:=ESQL.Text;Open;end;end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);beginSQLConnection.Close;end;end.