Delphi/CppBuilder

开发平台：

Delphi

DataLink.dpr：源码内容

							program DataLink;
uses
  Windows,Forms,
  MainFrm in 'MainFrm.pas' {FrmMain};
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TFrmMain, FrmMain);
  with FrmMain.Database do
  begin
    DataBaseName := 'DelphiTest';
    DriverName := 'MSSQL';
    Params.Values['Server Name'] := 'wbcp';  // 数据库服务器名
    Params.Values['DataBase Name'] := 'pubs'; //具体的数据库
    Params.Values['User Name'] := 'sa';  //用户名
    Params.Values['PassWord'] := '';  //密码
  end;
  try
    FrmMain.database.Connected := True;
  except
    Application.MessageBox('数据库连接失败','提示',mb_iconInformation+mb_defbutton1)
  end;
  Application.Run;
end.

						