Ir para conteúdo
Fórum Script Brasil

Antonio Maucyr Pasqualli F

Membros
  • Total de itens

    43
  • Registro em

  • Última visita

Tudo que Antonio Maucyr Pasqualli F postou

  1. Olá pessoal, alguém sabe onde encontro a dll SCSWEDA.DLL? Não consigui localizar no site da Sweda? alguém pode dar um força? Obrigado!
  2. Se interessar, bastar entrar em contato OK?! Especificações do Produto: O SAGE é o mais completo sistema para Administração e Gestão de Escolas de Primeiro e Segundo Grau (Ensino Fundamental, Médio e Profissionalizante). O sistema oferece as mais sofisticadas características e um completo controle acadêmico para escolas. Desenvolvido em um ambiente de programação gráfico para Windows, o sistema possui uma interface muito fácil de trabalhar. Veja abaixo alguns dos principais módulos do sistema: ALUNOS O cadastro da ficha do aluno permite, entre muitas outras coisas, a inserção de uma foto. Também é possível preencher a ficha de saúde do aluno, identificando as possíveis doenças crônicas, deficiências, doenças contagiosas já contraídas, tratamento médico, etc... Além dos dados do aluno, é possível também identificar a filiação do mesmo, bem como seus responsáveis acadêmicos. MATRÍCULAS O SAGE permite matricular um aluno novato e também a re-matrícula de uma aluno veterano. Com o SAGE, é possível cadastrar e nomear várias turmas, para enturmar os alunos matriculados. Também é possível fazer a mudança de turma de um determinado aluno, após o processo de enturmação. PROFESSORES Controle dos dados de contato dos professores. TURMAS É possível cadastrar e nomear várias turmas, também podendo, ser feita a mudança de turma de um determinado aluno, após o processo de enturmação. HISTÓRICO & BOLETIM O SAGE, oferece dois modelos de Histórico Acadëmico: Um para Ensino Fundamental e outro para Ensino Médio. Também é possível emitir boletim escolar com aproveitamento acadêmico. A emissão de boletim poderá ser feita individual por aluno ou por turma. A emissão poderá ser visualizada antes de ser impressa. CONTROLE PEDAGÓGICO O SAGE oferece recursos para registrar ocorrências por aluno, entrevistas e atas de resultados finais. O SAGE também oferece uma tela de prontuário que lista todas as ocorrências e entrevistas por aluno, bem como sua foto. É possível também registrar os atrasos de entrada dos alunos na escola. Os atrasos são incluídos por data. OUTROS RECURSOS IMPORTANTES * O SAGE oferece o recurso de emissão de Certificado de Conclusão, Recibos e Carteirinha Estudantil. * Entre os processos disponíveis estão: Transferência de aluno com opção de impressão da ficha de transferência, Cálculo da Média Parcial, Ata de resultado por Etapa, Resultados Finais, Transfências de Notas para Histórico Escolar, etc... * O SAGE possui ainda um controle completo de acesso por usuário/senha. * Os Relatórios podem ser visualizados na tela antes de serem impressos, podendo também serem armazenados no computador. * A emissão de boletim poderá ser feita individual por aluno ou por turma. A emissão poderá ser visualizada antes de ser impressa. * O SAGE oferece recursos para registrar ocorrências por aluno, entrevistas e atas de resultados finais. * O sistema também oferece uma tela de prontuário que lista todas as ocorrências e entrevistas por aluno, bem como sua foto. * É possível também registrar os atrasos de entrada dos alunos na escola. Os atrasos são incluídos por data. ... ENTRE OUTROS MUITOS RECURSOS !!!
  3. Jhonas, Muito obrigado mesmo, mas você não teria RDPrint 4.0, o link que você passou é o 3.0 Obrigado.
  4. Olá pessoal, estou atraz do componente RDPrint para delphi 7, alguém teria? Sei que tem no site pra baixar mas é R$ 149,00, alguém não estaria afim de uma troca?
  5. Olá pessoal, Estou com um sistema para Lanhouse em delphi 5, vou compilar com o delphi 7 da o seguinte erro: Os componentes já para delphi 7
  6. Poderia passar pra mim também? tmaucyr [arroba] gmail
  7. Ola Prezados alguém sabe onde posso baixar o InfoPower para delphi 6 Tem o serial.
  8. alguém sabe onde posso fazer o download destes componetes para delphi 7 ? xpestilo transpearxp kmb
  9. Ok farei isso sei disso rsrssr..........., mas, poderia me ajudar com mais uma duvida? e se eu tiver varios edits e um memo? implementation uses shellapi; {$R *.DFM} // 1 - ao digitar no edit o memo recebera os caracteres digitados procedure TForm1.Edit1Change(Sender: TObject); begin Memo1.Lines.Text := Edit1.text; end; // 2 - no combobox coloque os endereços ( URL ) e ao clicar num deles a pagina será aberta atraves do seu browser procedure TForm1.ComboBox1Click(Sender: TObject); begin ShellExecute(Handle, 'open', PChar(ComboBox1.Items.Strings[ComboBox1.ItemIndex]), nil, nil, SW_SHOWNORMAL); inherited; end; OBS: Sugiro que voce leia mais sobre o delphi ... procure no forum ou na Net, tem muitas apostilas que o ajudarão. abraço
  10. Prezados Estou com duas duvidas básicas sobre Delphi: 1 – Tenho um Edit e um Memo, como faço para que tudo que eu digitar no Edit seja “clonado” no Memo? Isso devera ocorrer no momento que eu estiver digitando, exemplo : eu vou digitar “ola mundo” no Edit, digitei ola mun.... e no Memo já esta com ola mun... 2 – Tenho um combo box e um Button, quando eu selecionar um nome no combo box e clicar no Button ele devera carregar uma pagina web referente ao nome selecionado Tem como fazer isso? Se alguém conseguir me ajudar OBRIGADO!
  11. Prezados, estou com seguinte duvida, estou com um sistema onde existe um botão e um GroupBox, o GroupBox esta com visible false, com faço para quando clicar no botão o GroupBox torne visible true? Obrigado!
  12. Obrigado, mais uma coisa, tenho um aplicativo que ao tentar compilar da o seguinte erro kdb2text.dcu not found Sabe oque pode ser? O sistema esta em delphi 7 e instalei todos os componentes que estão com ele.
  13. Prezado Estou aprendendo delphi e estou com uma duvida, tenho um form simples com um memo e um botão, este com um evento onclick que escreve no memo por exemplo OLA MUNDO, oque ocorre é que ele escreve somente em uma linha, preciso saber como fazer para que em cada click ele escreva OLA MUNDO em linha difirente. Obrigado
  14. Prezados, Estou tendo sérios problemas em uma aplicação (automação comercial) após a instalação dos componentes a aplicação não compila da erro em algum componente, acredito que possa ser erro na instalação algum componente, pois conforme instalo a mensagem de erro muda, alguns componentes estão com um tutorial de instalação depois de instalados (lógico dãã) não apresentam erro referente a estes componentes. Alguém conhece o sistema SisVarejo? Esta é a aplicação, vou passar a lista de componentes, se alguém souber onde baixar o “manual” de instalação ou como instalar, por favor, me ajudem. Segue lista de componentes que solicito ajuda na instalação avlockg Barcode Beep CodigoBarra Expirar (ApplicationExpired.pas) iSoft - Report SomaHoras TimeStop VersLab CodigoBarra Fortes Report Projetos (alpha)---------------------BarraBotoes (projeto) ---------------------DbFindDialog (projeto) Rx Tdbf - componente para acesso a dados freeware iSoftComponent
  15. Este arquivo faz parte de um Pacote de Exportação de banco de dados contém vários componentes por exportar dados de banco de dados a outros formatos. TKDatasetToText - dados de exportação de um dataset ativo em arquivo de texto; TKDatabaseToText - exportação e importação banco de dados inteiro para os arquivos de texto. Também são suportados campos memorando e campos BLOB; TKDatasetToHTML - exceto um dataset ativo como arquivo de HTML; TKDatasetToDBF - exceto um dataset ativo em tabela de DBase; TKDatasetToPrint - imprimir dataset; Veja este codigo: //<FLAG License> // Summary: // Export formular // // Description: // Export formular // // Internal: // // Todo: // // Bugs: // // History: // <pre> // <b>Version 01.00.00 (Released 20.04.2000)</b> // 20.04.2000 PBE Initial release // <b>Version 01.02.00 (Released )</b> // 02.09.2000 PBE Documentation for Doc-o-matic // </pre> // //## License: //## The contents of this file are subject to the Mozilla Public License //## Version 1.1 (the "License"); you may not use this file except in //## compliance with the License. You may obtain a copy of the License at //## http://www.mozilla.org/MPL/ //## //## Software distributed under the License is distributed on an "AS IS" //## basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the //## License for the specific language governing rights and limitations //## under the License. //## //## The Original Code is JEDI Database Desktop Export Plugin //## //## Initial Developer of the Original Code is Pascal Berger. //## Portions created by Beat Bucheli are Copyright 2000 by Pascal Berger //## All Rights Reserved. //## //## Contributors: - //## //## You may retrieve the latest version of this file at the JEDI Database //## Desktop home page, located at http://jedidbd.sourceforge.net //## unit DlgExport; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, kds2prn, kds2dbf, kds2html, kdb2text, RXSpin, DBTables, Placemnt; type TFrmExport = class(TForm) RGExportType: TRadioGroup; GBOptionsPrinter: TGroupBox; BtnExport: TButton; BtnClose: TButton; TextExport: TKDatasetToText; HTMLExport: TKDataSetToHTML; DBFExport: TKDataSetToDBF; PrinterExport: TKDatasetToPrinter; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; EditTitle: TEdit; MemoHeader: TMemo; EditLeftMargin: TRxSpinEdit; MemoFooter: TMemo; BtnPreview: TButton; GBOptionsHTML: TGroupBox; Label5: TLabel; Label6: TLabel; MemoHtmlHeader: TMemo; GBOptionsdBase: TGroupBox; GBOptionsText: TGroupBox; Label10: TLabel; SaveDialog: TSaveDialog; MemoHtmlFooter: TMemo; Label7: TLabel; Label8: TLabel; EditTopMargin: TRxSpinEdit; FormStorage: TFormStorage; CBDelimiter: TComboBox; BtnAbout: TButton; procedure RGExportTypeClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure BtnPreviewClick(Sender: TObject); procedure BtnExportClick(Sender: TObject); procedure BtnAboutClick(Sender: TObject); private { Private-Deklarationen } Table:TTable; procedure SetVisibleOptionBox(OptionBox:TGroupBox); public { Public-Deklarationen } IsAlias: boolean; DBName: string; TableName: string; end; var FrmExport: TFrmExport; implementation {$R *.DFM} uses uFileUtils, uGlobals; procedure TFrmExport.SetVisibleOptionBox(OptionBox:TGroupBox); begin GBOptionsText.Visible:=false; GBOptionsdBase.Visible:=false; GBOptionsHTML.Visible:=false; GBOptionsPrinter.Visible:=false; OptionBox.Visible:=true; end; procedure TFrmExport.RGExportTypeClick(Sender: TObject); begin case RGExportType.ItemIndex of 0: begin SetVisibleOptionBox(GBOptionsText); end; 1: begin SetVisibleOptionBox(GBOptionsdBase); end; 2: begin SetVisibleOptionBox(GBOptionsHTML); end; 3: begin SetVisibleOptionBox(GBOptionsPrinter); end; end; end; procedure TFrmExport.FormShow(Sender: TObject); var i:integer; begin Table:=TTable.Create(self); Table.DatabaseName:=DBName; Table.TableName:=TableName; Table.Open; TextExport.Dataset:=Table; dbfExport.DataSet:=Table; HTMLExport.DataSet:=Table; PrinterExport.Dataset:=Table; MemoHTMLHeader.Lines.Add('<h1>'); MemoHTMLHeader.Lines.Add(' <center>'); //Default values if IsAlias then begin EditTitle.Text:=':'+DBName+':'+TableName; MemoHTMLHeader.Lines.Add(' :'+DBName+':'+TableName); end else begin EditTitle.Text:=TableName; MemoHTMLHeader.Lines.Add(' '+TableName); end; MemoHTMLHeader.Lines.Add(' </center>'); MemoHTMLHeader.Lines.Add('</h1>'); for i:=33 to 255 do begin CBDelimiter.items.Add(Chr(i)+' (#'+IntToStr(i)+')'); CBDelimiter.ItemIndex:=9; end; end; procedure TFrmExport.FormDestroy(Sender: TObject); begin Table.Close; Table.Free; end; procedure TFrmExport.BtnPreviewClick(Sender: TObject); begin with PrinterExport do begin Title:=EditTitle.Text; //Footer and Header are exchanged in component!! Header:=MemoFooter.Lines; Footer:=MemoHeader.Lines; LeftMargin:=StrToInt(EditLeftMargin.Text); TopMargin:=StrToInt(EditTopMargin.Text); Preview; end; end; procedure TFrmExport.BtnExportClick(Sender: TObject); begin case RGExportType.ItemIndex of //Text export 0: begin SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.txt'; SaveDialog.DefaultExt:='txt'; SaveDialog.Filter:='All files (*.*)|*.*|Text files (*.txt)|*.txt'; SaveDialog.FilterIndex:=2; if SaveDialog.Execute then begin TextExport.Delimiter:=Chr(CBDelimiter.ItemIndex); TextExport.Transfer(SaveDialog.FileName); end; end; //dBase export 1: begin SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.dbf'; SaveDialog.DefaultExt:='dbf'; SaveDialog.Filter:='All files (*.*)|*.*|dBase files (*.dbf)|*.dbf'; SaveDialog.FilterIndex:=2; if SaveDialog.Execute then dbfExport.Transfer(SaveDialog.FileName); end; //HTML export 2: begin SaveDialog.FileName:=PathExtractFileNameNoExt(TableName)+'.html'; SaveDialog.DefaultExt:='html'; SaveDialog.Filter:='All files (*.*)|*.*|HTML files (*.html)|*.html'; SaveDialog.FilterIndex:=2; if SaveDialog.Execute then begin HTMLExport.Header:=MemoHTMLHeader.Lines; HTMLExport.Footer:=MemoHTMLFooter.Lines; HTMLExport.Transfer(SaveDialog.FileName); end; end; //Printer export 3: begin PrinterExport.Title:=EditTitle.Text; //Footer and Header are exchanged in component!! PrinterExport.Header:=MemoFooter.Lines; PrinterExport.Footer:=MemoHeader.Lines; PrinterExport.LeftMargin:=StrToInt(EditLeftMargin.Text); PrinterExport.TopMargin:=StrToInt(EditTopMargin.Text); PrinterExport.Print; end; end; end; procedure TFrmExport.BtnAboutClick(Sender: TObject); begin ShowAboutBox; end; end. Endereço para download do pacote, para as versões do delphi 2 a 5: http://gd.tuwien.ac.at/softeng/delphi/ftp/d20free/kdbexp.zip abraço Muito obrigado peloa resposta, Poderia pedir mais um favor, Saberia me dizer onde fazer o download deste componente para a versão 7
×
×
  • Criar Novo...