设置SQL连接

procedure TfmMainForm.Button2Click(Sender: TObject);
begin
  SQLConnection1.DriverName:='MSSQL';
  SQLConnection1.ConnectionName := 'MSSQLConnection';
  SQLConnection1.Params.Clear;
  SQLConnection1.Params.Add('DriverName=MSSQL');
  SQLConnection1.Params.Add('HostName=192.168.1.213');
  SQLConnection1.Params.Add('DataBase=test');
  SQLConnection1.Params.Add('User_Name=sa');
  SQLConnection1.Params.Add('Password=zhrladmin');
  SQLConnection1.Params.Add('Blobsize=-1');
  SQLConnection1.GetDriverFunc := 'getSQLDriverMSSQL';
  SQLConnection1.LibraryName := 'dbxmss.dll';
  SQLConnection1.VendorLib := 'sqlncli10.dll';
  SQLConnection1.LoginPrompt := false;
  SQLConnection1.Connected := false;
  try
    SQLConnection1.Connected := true;
    showmessage('联接成功');
  except
    showmessage('联接失败');
  end;

end;