Criar um formulario

[Igor Leonne]

Preciso descobrir como criar um formulario, e que nesse formulario ele receba os valores que estao no meu banco de dados.

Depois preciso imprimir este formulario como se ele fosse no word.

por exemplo:

Doença

Cancer (x)

Sifilis ()

Como no exemplo ele receba um x caso seja marcada a opção por um rdb por exemplo.

agradeceria uma dica para fazer isso, uma forma de criar um formulario.

Obrigado

[Jhonas]

Acho que voce precisa ler um pouco mais sobre o delphi

neste endereço voce vai encontrar varias apostilas de delphi ( do basico ao avançado )

http://www.apostilando.com/sessao.php?cod=13

abraço

[Eder Moraes]

Preciso descobrir como criar um formulario, e que nesse formulario ele receba os valores que estao no meu banco de dados.

Depois preciso imprimir este formulario como se ele fosse no word.

por exemplo:

Doença

Cancer (x)

Sifilis ()

Como no exemplo ele receba um x caso seja marcada a opção por um rdb por exemplo.

agradeceria uma dica para fazer isso, uma forma de criar um formulario.

Obrigado

Olha só! para criar o formulário e colocar nele o retorno de uma consulta, isso é fácil, e você pode estudar um pouquinho mais. Mais para imprimir os dados já se torna um pouco mais complicado para um iniciante então vou te ajudar um pouco:

para imprimir um relatório você pode usar um gerenciador de relatórios como quickreport ou fastreport ou ravereport que são os mais usados por quem trabalha com delphi. Se você não quiser usar um relatório e quizer imprimir direto do formulário, tenho uma rotina para isso.

O exemplo a seguir é um procedimento para imprimir um form. Basta informar o nome do mesmo como parâmetro: PrintForm(Form1) esse Form1 é o nome do formulário. Antes de imprimir, a cor atual do form é salva em OldColor e alterada para clWhite (frm.Color := clWhite), para evitar gasto excessivo de tinta da impressora (ou tonner).

em uses no topo da unit onde quer implementar o codigo você precisa dessas units

Windows, SysUtils, Printers, Forms, Graphics, Controls, Classes;

em public declare o seguinte

procedure PrintForm(frm: TForm); //segure o ctrl+shift e pressione a tecla C

//mais abaixo de implementation

procedure T...PrintForm(frm: TForm);

var

bmp: TBitMap;

x, y, WDPI, HDPI: Integer;

OldColor: TColor;

begin

Screen.Cursor := crHourGlass;

OldColor := frm.Color;

frm.Color := clWhite;

frm.Update;

bmp := frm.GetFormImage;

with Printer do

begin

Orientation := poLandscape; // ou poPortrait

BeginDoc;

HDPI := PageHeight div 8;

WDPI := PageWidth div 8;

x := PageWidth - Round(WDPI * 0.4); {0.4" margem direita}

y := PageHeight - Round(HDPI * 0.5); {0.5" Altura do rodapé}

Canvas.StretchDraw(Rect(0, 0, x, y), bmp);

EndDoc;

end;

bmp.Free;

frm.Color := OldColor;

Screen.Cursor := crDefault;

end;

//para chamar este procedimento em outro formulário você precisa declarar o nome da unit onde ele foi criando na uses do formulário em questão.

//chame desta maneira: PrintForm(Form1) ou PrintForm(frm_imprimir) ou PrintForm(outro_nome_de_formlario_a_ser_impresso); no evento onClick de um botão ou outro evento de outro componente.

OK.

Editado Fevereiro 20, 2009 por Eder Moraes