快捷搜索:  as  2018  FtCWSyGV  С˵  test  xxx  Ψһ  w3viyKQx

和记怡情娱乐苹果下载_机器人论坛



Delphi6新增的DBExpress专门用来对于Mysql,DB2,Interba和记怡情娱乐苹果下载se,Oracle等数据库,应用时留意将libmysql.dll

拷贝到当前目录或系统目录(98:system,NT:system32)下,和记怡情娱乐苹果下载并包管您的3306端口与远程办事器是相通的。

源法度榜样:

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: TObj和记怡情娱乐苹果下载ect);

procedure ButtonGoClick(Sender: TObject);

procedure FormClo和记怡情娱乐苹果下载se(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.

您可能还会对下面的文章感兴趣: