interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBXpress, DB, SqlExpr, StdCtrls, ComCtrls, FMTBcd, Grids, DBGrids, Provider, DBClient, DBLocal, DBLocalS, DBTables; type TForm1 = 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; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin with SQLConnection do begin Close; Params.Values[HostName]:=HostName.Text; Params.Values[UserName]:=User_Name.Text; Params.Values[Password]:=Password.Text; Params.Values[Database]:=Database.Text; try Connected:=True; Statusbar1.Panels[0].Text:=Connect OK; ButtonGo.Enabled:=True; except MessageDlg(Connect Error,mtError,[mbyes],0); end; end; end; procedure TForm1.ButtonGoClick(Sender: TObject); begin with SQLClientDataSet do begin Close; CommandText:=ESQL.Text; Open; end; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin SQLConnection.Close; end; end.
|
