----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

unit Unit1;

interface

implementation

end.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

unit Conexao;

interface

uses Classes, Dialogs, SqlExpr, DBXCommon;

type
  TConexao = class
    private
      conn: TSQLConnection; // uma referência a um TSQLConnection

    public
      // construtor da classe
      constructor Create;

      // uma função que retorna a conexão com o banco de dados
      function getConexao: TSQLConnection;
  end;

implementation

constructor TConexao.Create;
begin
  // vamos criar a conexão com o banco de dados
  conn := TSQLConnection.Create(nil);

  // vamos definir os parâmetros da conexão...note que
  // aqui estou usando uma conexão com o MS SQL Server usando
  // Windows Authentication
  begin
    conn.ConnectionName := 'MSSQLConnection';
    conn.DriverName := 'MSSQL';
    conn.LibraryName := 'dbxmss.dll';
    conn.VendorLib := 'oledb';
    conn.GetDriverFunc := 'getSQLDriverMSSQL';
    conn.LoginPrompt := False;

    // parâmetros adicionais da conexão
    conn.Params.Add('SchemaOverride=sa.dbo');
    conn.Params.Add('HostName=NOTEBOOK');
    conn.Params.Add('DataBase=estudos');
    conn.Params.Add('OS Authentication=True');

    // vamos abrir a conexão
    try
      begin
        conn.Open;
      end;
    except
      on e : TDBXError do // uses DBXCommon
         begin
           ShowMessage('Não foi possível efetuar a conexão. Erro: ' +
              e.Message);
           conn := nil;
         end;
    end;
  end;
end;

function TConexao.getConexao;
begin
  // retorna a conexão criada
  Result := conn;
end;

end.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button1Click(Sender: TObject);
var
  conexao: TConexao; // uma referência à classe Conexao
  conn: TSQLConnection; // uses SqlExpr, DBXMsSQL, DBXCommon
begin
  conexao := TConexao.Create; // vamos criar o objeto Conexao

  // vamos agora obter a conexão
  conn := conexao.getConexao;

  // vamos verificar se a conexão foi efetuada com sucesso
  if conn <> nil then
    ShowMessage('Conexão retornada com sucesso.');
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm2.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  // vamos criar o bitmap
  bmp := TBitmap.Create;

  // vamos carregar a imagem e guardá-la no bitmap
  bmp.LoadFromFile('foto.bmp');

  // vamos desenhar o bitmap no formulário
  // começando nas coordenadas x = 0; y = 0 a partir
  // do canto superior esquerdo da área cliente do formulário
  Form2.Canvas.Draw(0, 0, bmp);

  // vamos liberar o bitmap
  bmp.Free;
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm2.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
  retang: TRect; // um objeto TRect
begin
  // vamos criar o bitmap
  bmp := TBitmap.Create;

  // vamos carregar a imagem e guardá-la no bitmap
  bmp.LoadFromFile('foto.bmp');

  // vamos redimensionar o bitmap na memória de
  // acordo com o retângulo abaixo
  retang.Top := 0;
  retang.Left := 0;
  retang.Right := 200;
  retang.Bottom := 150;

  // vamos desenhar o bitmap usando o método
  // StretchDraw da classe TCanvas
  Form2.Canvas.StretchDraw(retang, bmp);

  // vamos liberar o bitmap
  bmp.Free;
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button4Click(Sender: TObject);
begin
  // vamos percorrer todos os registros do TClientDataSet
  // de trás para frente
  ClientDataSet1.Last; // vamos para o último registro
  // e agora disparamos um laço While
  while not ClientDataSet1.Bof do
    begin
      // vamos mostrar em um TMemo os valores do primeiro
      // campo de cada registro
      Memo1.Lines.Add(ClientDataSet1.FieldByName('id').AsString);
      // vamos mover para o registro anterior
      ClientDataSet1.Prior;
    end;
end;

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button3Click(Sender: TObject);
var
  qRegistros: Integer;
begin
  // obtém a quantidade de registros no TClientDataSet
  qRegistros := ClientDataSet1.RecordCount;

  // mostra o resultado
  ShowMessage('O ClientDataSet possui ' + IntToStr(qRegistros)
    + ' registros.');
end;