Utilizando o Crystal Reports _VB6

24/8/2014 Utilizando o Crystal Reports | Visual Basic 6 (VB6)

http://www.vb6.us/tutorials/using-crystal-reports-vb6-tutorial 1/20

Nível:

Utilizando o Crystal Reports

Este relatório de cristal tutorial mostra como usar o Crystal Reports 4.6, que é a versão do CrystalReports que acompanha o Visual Studio / Visual Basic 6.0. Crystal Reports fornece uma maneirarelativamente fácil de incorporar relatórios à sua aplicação. A base de um relatório é uma consulta debanco de dados.

Crystal Report Tutorial VersãoDeve-se salientar que esta versão do Crystal Reports é bastante antiga, e que esta versão e as versõesanteriores do Crystal Reports que enviados com VB são geralmente "aguado" versões que não têmtodos os sinos e assobios do standalone produto que é vendido pela Seagate Software. Além disso,CR 4.6 não vai funcionar com o MS-Access bancos de dados superior ao Access 97 Dito isto, o quevocê aprendeu sobre como criar relatórios com CR 4.6 vai ajudar ao trabalhar com versõesposteriores. Quanto à questão do MS-Access, versões posteriores do Access (2000, 2002, etc) podemler e gravar no formato Access 97.

Instalar VB6 Crystal Reports 4.6Crystal Reports 4.6 é fornecido com o Visual Studio / Visual Basic 6.0, mas não é instaladoautomaticamente. Para instalá-lo manualmente, localize a pasta CrysRept no CD de instalação â €"para o Visual Studio 6.0, o caminho é Common \ Tools \ VB \ CrysRept no terceiro CD. Nessa pasta,clique duas vezes no arquivo Crystl32.exe. Você será perguntado se deseja instalar o CrystalReports. Responda Sim. Ele, então, dizer-lhe para onde vai instalar o CR; você pode substituir o local,se desejar. Depois disso, CR será instalado, e poucos momentos depois, você deverá receber umamensagem indicando que a instalação foi bem sucedida. A Sample DatabaseO banco de dados da amostra utilizada para este tutorial (assim como outras) é um banco de dadosformato Access 97 chamado EMPLOYEE.MDB. EMPLOYEE.MDB contém três tabelas: EmpMast , DeptMast , eJobMast . As tabelas estão

estruturadas da seguinte forma: EmpMast tabela :

Nome do campo Tipo de dados Comentários

EmpNbr AutoNumeração Chaveprimária.Identificaexclusivamente cadafuncionário no banco dedados.

EmpFirst Texto (50) Primeiro nome dofuncionário

EmpLast Texto (50) O sobrenome doempregado

DeptNbr Número (Long

Integer)

Chave estrangeira para

PK da tabelaDeptMast. Identifica

http://www.ecostsoftware.com/business-objects/crystal-reports-2008_p3491



DeptMast. Identificaqual departamento oempregado trabalha.

JobNbr Número (LongInteger)

Chave estrangeira paraPK da tabelaJobMast. Identifica otrabalho doempregado.

DataDeContratação Data / Hora Data em que oempregado foicontratado

HrlyRate Número (Single) Taxa horária do empregado

SchedHrs Número (Single) O número de horas porsemana o empregado estáagendada para o trabalho.

DeptMast tabela :

Nome do

campo

Tipo de dados Comentários

DeptNbr Número (LongInteger)

Chave primária; identificaunicamente cadadepartamento no banco dedados.

NOMEDEPTO Texto (50) O nome do departamento.

Localização Texto (50) A localização dodepartamento (poderia ser umprédio, número da suíte, piso,etc)

JobMast tabela :

Nome docampo

Tipo de dados Comentários

JobNbr AutoNumeração Chave primária; identificaunicamente cada trabalho nobanco de dados.

JobTitle Texto (50) O título do trabalho(descrição).

MinRate Número (Single) A taxa horária mínima quealguém que trabalha nestaposição normalmente épago.

AvgRate Número (Single) A taxa média horária quealguém que trabalha nestaposição normalmente épago.

MaxRate Número (Single) A taxa horária máxima quealguém que trabalha nestaposição normalmente é

pago.



Projetando os Relatórios

Dois relatórios será desenvolvido a partir deste banco de dados: "As despesas anuais de salários pordepartamento" e "Despesas salário anual de Job". Para as despesas anuais de salários por relatório do Departamento, que pretende mostrar várioscampos das tabelas de banco de dados empregado agrupados e subtotal por departamento. Vocêtambém quer mostrar um total geral no final do relatório. Um esboço do projeto poderia ser algo como oseguinte:

Despesas anuais de salários por departamento

JOB Wkly hrly

EMP EMP # # NOME CARGO LOCAÇÃO data horas TAXA ANN SALÁRIO

----- -------- --- --------- --------- ----- ---- ------- ---

DEPT XXXX XXXXXXXXXXXXXXXX

XXX XXX XXXXXXXXXXXXXXX XXXXXXXXXX XX / XX / XX XX.XX XX.XX $ XXX, XXX, XX

XXX XXX XXXXXXXXXXXXXXX XXXXXXXXXX XX / XX / XX XX.XX XX.XX $ XXX, XXX, XX

DEPT XXXX XXXXXXXXXXXXXXXXXXXXXXXX TOTAIS: $ XXX, XXX, XX

.

.

.

GRAND TOTAIS: $ XXX, XXX, XX

O design das Despesas salário anual do relatório de trabalho é semelhante, exceto que você quer mostrar vários camposdas tabelas de banco de dados empregado agrupados e subtotal por trabalho. Você pode esboçar o projeto da seguinteforma:

Despesas anuais de salário por trabalho

DEPT Wkly hrly

EMP EMP # NOME # DEPTO NOME LOCAÇÃO data horas TAXA ANN SALÁRIO

----- -------- --- --------- --------- ----- ---- ------- ---

JOB XXX XXXXXXXXXXXXXXXX

XXX XXXXXXXXXXXXXXX XXXX XXXXXXXXXX XX / XX / XX XX.XX XX.XX $ XXX, XXX, XX

XXX XXXXXXXXXXXXXXX XXXX XXXXXXXXXX XX / XX / XX XX.XX XX.XX $ XXX, XXX, XX

JOB XXX XXXXXXXXXXXXXXXXXXXXXXXX TOTAIS: $ XXX, XXX, XX

.

.

.





Este tutorial vai começar mostrando o processo passo-a-passo para a elaboração do primeirorelatório, "despesas anuais de salários por departamento". Uma vez feito isto, será uma simplesquestão de copiar o relatório e modificá-lo para criar as despesas anuais de salários por relatório Job. Com os designs de relatório em mente, aberto Crystal Reports (Report Designer ) do VB Add-Ins domenu:

Aparece uma ficha de inscrição. Clique no Cancelar botão.

A partir do Crystal Reports arquivo de menu, selecione New :

O Criar novo relatório caixa de diálogo aparece. Clique no padrãobotão.



O Criar Expert Report caixa de diálogo aparece com o 1 Passo: Tabelas aba aberta. Cliqueno arquivo de dados botão:

A Escolha Database File caixa de diálogo aparece. Navegue até o diretório onde o arquivo de bancode dados reside, em seguida, clique no nome do arquivo de banco de dados para que ele aparece em"Nome do arquivo:". Clique no Adicionar botão, em seguida, clique no Feito botão.



A 2: Ligações guia em seguida, aparece, mostrando-lhe um diagrama semelhante ao de Relaçõesdiagrama de Acesso '.

Seguir em frente, clicando no 3: Campos guia.

O "3: Os campos" tab inicialmente se parece com isso:



Usando a opção "Adicionar ->" botão, selecionar os campos desejados na caixa de listagem "Bancode Dados Fields" para que apareçam na caixa de listagem "Campos do relatório". Selecione oscampos com base no projeto inicial. Para os campos que estão envolvidos em uma chave primária â €"relacionamento de chave estrangeira, selecione apenas um desses campos de ambas as tabelas (porexemplo, selecione o campo DeptNbr de ambas as tabelas do DeptMast ou a tabela de EmpMast, masnão ambos). Selecione os seguintes campos de dados:Escolha DeptNbr e NOMEDEPTO do DeptMast tabela.Escolha EmpNbr Do EmpMast tabela.

Vá até o JobMast tabela e selecione o JobNbr e JobTitle .Ir para trás até o EmpMast tabela e selecione osDataDeContratação , HrlyRate e SchedHrs . Sua tela deve ficar assim:



Ainda degola com Tab 3, você pode especificar títulos de coluna, selecionando cada um dos camposRelatório, por sua vez, e dando-lhes um título, digitando o texto desejado no "título da coluna:" caixa detexto (por padrão, o título da coluna é o mesmo que o nome do campo). Especificar os títulos das colunas da seguinte forma:

Relatório de Campo Cabeçalho da ColunaDeptMast.DeptNbr Dept #DeptMast.DeptName Nome DeptEmpMast.EmpNbr Emp #JobMast.JobNbr Job #JobMast.JobTitle CargoEmpMast.HireDate Data de contrataçãoEmpMast.HrlyRate Hrly TaxaEmpMast.SchedHrs Wkly Horas

Nós ainda não terminamos com Tab 3 Precisamos de duas colunas computadas, um para o nome dofuncionário (que será uma concatenação dos campos EmpLast e EmpFirst) e um para o salário anual(que estará taxa horária do empregado, multiplicado por suas horas semanais multiplicado por 52). Clique no botão Fórmula. A caixa de diálogo "Nova Fórmula" aparece. Digite EmpName na caixa detexto e clique em OK

A caixa de diálogo "Editar fórmula" aparece. Na área de "Formula texto", digite:

TrimRight ({} EmpMast.EmpLast) + "," + TrimRight ({} EmpMast.EmpFirst)

Sua tela deve ficar assim:



Nota: Cristal Reports tem sua própria sintaxe da fórmula, o que difere da sintaxe de expressões VB eAccess. Você pode rolar a "Fields", "Funções" e "operadores" listboxes acima da área de entrada detexto a fórmula para ver o que está disponível. Além disso, em vez de digitar tudo diretamente na áreade entrada de texto, você pode clicar duas vezes em uma seleção caixa de listagem eo texto de que aseleção aparecerá na caixa de texto Fórmula. Clique no botão Verificar. Se você digitou corretamente a fórmula, a mensagem "Nenhum erroencontrado" irá aparecer. Passando isso, clique no botão Aceitar. A fórmula irá aparecer no banco de dados campos listbox (como "EmpName"). ComEmpNamerealçado, clique no botão "Add->" botão para adicioná-lo à lista de campos do relatório. No Relatóriode Campos lista, arrastar e soltar "EmpName" para que ele apareça em"EmpMast.EmpNbr". DêEmpName um título de "Nome do Funcionário" coluna.



Agora temos que criar a fórmula de salário anual. Para fazer isso, siga estes passos:Â · Certifique-se de outra coisa que nãoEmpName é selecionado no Banco de Dados de Campos

caixa de listagem.

Â · Clique no botão Fórmula.Â · Na "Nova Fórmula" caixa de diálogo, digite "AnnSal" e clique em OK.Â · No "Editar fórmula" caixa de diálogo, digite

{} * {EmpMast.HrlyRate EmpMast.SchedHrs} * 52

clique em Verificar, em seguida, em Aceitar.Â · Use o botão "Add->" para trazerAnnSal sobre o banco de dados de lista Campos para a lista de

campos do relatório.Â · No Relatório de Campos listbox, arraste e solte a fórmulaAnnSal para que ele seja o último

campo na lista.Â · DêAnnSal um título de "Ann Salário" coluna. Clique no 4: Ordenar guia. Selecione DeptMast.DeptNbr da lista "Report Fields" e clique no botão

"Add->" botão. DeptMast.DeptNbr seguida, aparece na lista de "campos de grupo". Repita esseprocesso paraEmpName. Sua tela deve ficar assim:



Clique no 5: Total guia. Dentro desta aba Total, aparece uma caixa de diálogo interior com guias, comuma guia para cada campo selecionado na classificação. Na guia "DeptMast.DeptNbr", remover todosos itens, exceto "AnnSal" da lista total Fields, como mostrado abaixo. O que estamos dizendo é quequeremos imprimir um subtotal para o salário anual cada vez que há uma mudança, ou quebrar, onúmero de departamentos.

Ainda no "5: Total", clique na aba "EmpName" e remover todos ositens da lista total Fields, comomostrado abaixo. (Nós não queremos imprimir subtotais depois de cada nome do funcionário.)



Não precisa fazer nada no guia 6, então clique no 7: Estilo guia.Para o título, digite "Despesas salário

anual de Departamento".

Clique no botão de visualização de relatório. Neste momento, o "Criar Expert Report" está acabado evocê não pode voltar a ele, mas você pode fazer as alterações desejadas na interface do CrystalReports. A seguir é a tela que inicialmente é exibida depois que você clica no botão de visualização derelatório da Etapa 7 do Especialista:



Na barra de ferramentas do Crystal Reports, clique no botão Zoom, para que você possa ver o que operito fez por você (dá-lhe um começo, mas ele precisa de algum trabalho):

Clique na aba Design:



Execute as seguintes etapas para corrigir o relatório: Â · Ir para o Arquivo menu, selecione Configuração da impressora e alterar

a orientação para Paisagem .

Â · No cabeçalho Página área, clique no título ("Despesas salário anual de Departamento") para

selecioná-lo.Redimensionar o título para que eles tomem a largura de todo o relatório. Vá para abarra de formatação e clique no botão central para centralizar o título.

Â · A partir da inserção de menu, selecione Campo de texto .Na caixa de diálogo que aparece,

digite Data de execução: e clique no Accept botão. Nesse ponto, o ponteiro do mouse tambémterá caixa que representa o campo de texto que você acabou de inserir. Arraste esta caixa para alinha onde a data é.Use o mouse para organizar os itens para que eles se parecem com isto:

Â · Ainda na área de cabeçalho da página, retire os títulos das colunas para Dept # e Dept

Nome . (Faça isso selecionando cada item com o mouse e pressionando a tecla Delete.)

Â · Na primeira área denominada # 1: DeptNbr â € "A (aqueleacima Detalhes ), selecione o item

lá e excluí-lo.

Â · No Detalhes área, selecione as DeptNbr e NOMEDEPTOcampos, e arrastá-los com o mousepara o primeiro # 1: DeptNbr -A área.

Â · Uma vez na nova área, selecione esses dois campos e clique no botão Negrito. Inserir um

campo de texto na área (usando a mesma técnica que você fez com "data de execução:") com otexto "Departamento". Faça este campo de texto em negrito também. Organize os campos para queeles se parecem com o seguinte (você pode redimensionar um campo selecionando-o e arrastandoas alças, assim como o redimensionamento de um controle em um formulário VB):

Â · Observe que o formato padrão para o número do departamento contém uma vírgula. Nós nãoqueremos isso.Clique com o botão direito o número do departamento, e selecione Alterar formatoâ € | a partir do menu de contexto. O diálogo Formato de número aparece, como mostradoabaixo.Desmarque a caixa de seleção "Separador de Milhares" e clique em OK. (Nota: Vocêtambém pode adicionar ou remover a formatação vírgula selecionando o campo e clicando no botão



também pode adicionar ou remover a formatação vírgula selecionando o campo e clicando no botãovírgula na barra de ferramentas de formatação.)

Â · Remover as vírgulas dos formatos para o número do empregado eo número da

tarefa. Redimensionar os campos da linha de detalhe e redimensionar seus títulos de colunascorrespondentes para que os títulos das colunas podem ser lidos na íntegra e os dados do campo éalinhado por baixo deles. Use a tela abaixo como guia:

Â · Na segunda área denominada # 1: DeptNbr â € "A (aqueleabaixo detalhes ), você verá um

item de texto (indicado por X 's) na extrema esquerda da linha. Excluir o item de texto. Na mesma

área, para o lado direito da linha, você verá um item numérico (indicado por "55.56"). Este é osubtotal departamento.Redimensionar este item para torná-la maior, e movê-lo para a direita paraque ele se alinhe com o campo salário anual detalhe, como mostrado abaixo:

Â · Insira um campo de texto com o texto "Subtotal para o Departamento" à esquerda do subtotal(não imediatamente à esquerda, porque estamos indo para inserir outro campo entre osdois). Clique no botão Negrito para torná-lo em negrito.

Â · No Inserir menu, selecione Campo de banco de dados â € |A caixa de diálogo "Inserir banco

de dados Field" trata-se (ver abaixo). A partir dele, selecionar DeptNbr e arraste o campo DeptNbrpara a linha de subtotal, entre o texto "Subtotal para o Departamento" eo subtotal numérico.



Â · A segunda área denominada # 1: DeptNbr â € "A deve agora olhar como este:

Â · Na área do relatório rotulado Total Geral , apagar todos os campos , exceto o primeiro um (umitem de texto com o texto "Grand Total") eo último um (um item numérico que é o total dos saláriosanuais). Redimensionar e alinhar os dois itens restantes para que o relatório é semelhante aoseguinte:

Â ·

Â · No rodapé da página área do relatório, há um campo para o número da página. Com o mouse,

mover esse campo até o lado direito da área de cabeçalho da página. Adicionar um campo de texto

que diz "Página:" e colocá-lo ao lado do número da página, como na seguinte captura de tela:

Isso é apenas sobre isso. Clique na guia Preview para verificar o produto acabado. Devido ao fato de esta foi configurada para imprimir na orientação paisagem, algumas capturas de telasão apresentados para mostrar o relatório final. Abaixo é o lado esquerdo do relatório:



Andando para a direita, vemos o seguinte:

Deslocamento para baixo, vemos o seguinte:

Neste ponto, se você quiser fazer qualquer outra ajustes, você pode clicar na guia Design e fazê-lo. Você também pode imprimir o relatório neste momento. Antes de sair do Crystal Reports, salvar orelatório no mesmo diretório do seu projeto VB, sob o nomeSALDEPT.RPT (Crystal Reportsautomaticamente acrescenta a extensão .RPT). O verdadeiro objetivo é ser capaz de imprimir o relatório do programa VB. O how-to de que estáchegando em breve, mas primeiro, há um outro relatório para criar. O segundo relatório é semelhante aeste, exceto que ele será ordenado e subtotalizadas pelo trabalho, e não dedepartamentos. Felizmente, este segundo relatório não tem que ser construída a partir do zero. Nóspodemos modificar o primeiro relatório para criar o segundo relatório. Para criar o segundo relatório, siga estes passos: 1 Copie o arquivo SALDEPT.RPT e nomeie o novo arquivoSALJOB.RPT .



1 Copie o arquivo SALDEPT.RPT e nomeie o novo arquivoSALJOB.RPT .

2 Clique duas vezes SALJOB.RPT para abri-lo em Crystal Reports. 3. ignorar a tela de cadastro clicando Cancelar . 4 Clique na aba Design. 5 A partir do Relatório de menu, selecione Título do Relatório ... OEditar Relatório de caixa de

diálogo aparece. Alterar o título de despesas com salários anuais de trabalho e cliquenoAccept botão.

6 Desde o Relatório de menu, selecione Alterar Especialista Grupo . A Seção Editar Grupo

de caixa de diálogo aparece.Deve haver apenas um item na caixa de listagem, leituraGroup #1: DeptMast.DeptNbr â € "A . Selecione o item e clique em OK . Outra seção Editar Grupode caixa de diálogo aparece. A primeira caixa de combinação deve ter "DeptMast.DeptNbr"selecionado. Clique na seta drop-down e selecione JobMast.JobNbr e clique em OK .

7 Na área de cabeçalho da página, clique com o botão direito do título, selecione Editar texto campo ,

mudar a palavra "departamento" para "Jó" e clique em Aceitar . 8 O próximo objetivo é mudar os campos de departamento no primeiro # 1: JobNbr â € "Uma área

com os campos de trabalho na Detalhes área. Para fazer isso, execute os seguintes passos:a. Mova o número do trabalho e título de trabalho campos da linha de detalhes para uma área aberta do

# 1: JobNbr â € "Uma linha.b Mova os campos número do departamento eo nome do departamento do primeiro # 1: JobNbr

â € "A linha para o espaço anteriormente ocupado pelos campos de trabalho na linha dedetalhes. Redimensionar o campo nome do departamento para que ele se encaixa.

c. No primeiro # 1: JobNbr â € "A linha, edite o texto do" Departamento: "campo de texto demodo que ele diz:" Jó: ". Mova o número do trabalho e título de trabalho campos perto da"Job:" campo de texto e fazer esses dois itens em negrito.

d. Na linha de detalhes, remover a formatação de negrito a partir do número de departamentos ede departamentos campos de nome.

e. De volta a área de cabeçalho da página, altere o texto do "Job #" e "Job Título" títulos decoluna para "Dept #" e "Dept Nome", respectivamente.

f. Faça ajustes cosméticos como necessário. 9 Na segunda # 1: JobNbr â € "A área, excluir o campo número do departamento. Substitua-o com o

campo número do trabalho.Para fazer isso, vá para o Insert menu, selecione campo Banco deDados , e selecione JobNbr . Redimensionar o campo JobNbr para que seu pequeno osuficiente para caber em que o número do departamento costumava ser. Retire as vírgulas daformatação e torná-lo em negrito. Edite o campo de texto "Subtotal para o Departamento",mudando a palavra "departamento" para "Jó". Faça ajustes cosméticos como necessário.

10 Essa é apenas sobre isso. Clique na visualização guia para ver os frutos do seu trabalho. Se

quiser, voltar e fazer os ajustes que julgarem necessários e imprimir o relatório. Quando vocêterminar, salve o relatório e sair do Crystal Reports.

Como imprimir um relatório de cristal de um programa VB Primeiro, você deve adicionar o controle Crystal Report para sua caixa de ferramentas VB. Para fazerisso, vá para o Projeto Ã Componentes e verificar Cristal Control Report 4.6 a partir da caixa de

diálogo componentes, como mostrado abaixo:



O controle Crystal Reports irá aparecer na caixa de ferramentas do VB (que está circulado na capturade tela abaixo):

O formulário utilizado na aplicação de demonstração associada a este tópico, chamado frmCRDemo ,é mostrado abaixo. O formulário contém dois conjuntos de botão de opção matrizes de controle (cadaum contém dois botões de opção indexados 0 e 1). A matriz de controle de botão de primeira opção,chamada optReport, aparece no quadro rotulado como "Select Report"; a segunda opção matriz de



chamada optReport, aparece no quadro rotulado como "Select Report"; a segunda opção matriz decontrole botão, chamado optDestination , aparece no quadro rotulado como "Select Destination". Ocontrole Crystal Report foi rebatizado rptAnnSalExp . Não há outras propriedades do controle CrystalReport foram criados em tempo de design; todas as propriedades necessárias são definidas no códigoem tempo de execução. Apenas um cristal de controle Relatório é necessário imprimir qualquer númerode relatórios de fora de um formulário. O controle Crystal Report não é visível em tempo deexecução.Finalmente, há dois botões de comando no formulário; o botão OK eo botão Exit. O botão OKexecuta o relatório com base nas opções selecionadas pelo usuário nos quadros acima; o botão Sairencerra a aplicação.

A seguir está o código, tanto para o frmCRDemo forma e um módulo padrão

chamado modCommon . O código relacionado a Crystal Reports será explicado a seguir as listagensde código. Código para frmDemo:

Option Explicit '------------------------------------------------- -----------------------Private Sub Form_Load ()'------------------------------------------------- -----------------------CenterForm MeEnd Sub

Documents

Utilizando o Crystal Reports _VB6