Jhonas

Se alguém tiver um local para baixar o MySQL seria uma boa http://www.mysqldownload.com.br/ http://www.superdownloads.com.br/download/24/mysql-alpha/ abraço

exemplo no manual do Firebird http://www.firebirdsql.org/refdocs/langrefupd21-select.html abraço

leia essa apostila https://www.scriptbrasil.com.br/download/apostila/800/ abraço

exemplo http://www.techonthenet.com/oracle/errors/ora00937.php traduzindo As opções para resolver esse erro Oracle são: 1- Reescreva a instrução SELECT para que a coluna ou expressão na lista SELECT seja também encontrada na cláusula GROUP BY. 2 - Remova a função GROUP BY (ou seja: MIN, MAX, SUM, COUNT) a partir da instrução SELECT. 3 - Remova a expressão na lista SELECT que não estava na cláusula GROUP BY. abraço

pelo que eu entendi, seria tipo um contador que voce que dividir de 50 em 50 e salvar na tabela .. é isso ?

veja se voce entende esse exemplo http://www.techonthenet.com/sql/count.php abraço

PLS-00103: Encontrado o símbolo "(" quando um dos seguintes símbolos era esperado: := . ) , @ % O símbolo ":=" foi substituído por "(" para continuar. acho que agora fica mais facil entender abraço

voce pode gerar um arquivo xml em qualquer linguagem ... voce é que tem que definir qual delas quer usar exemplo http://clares.wordpress.com/2008/02/10/gerando-xml-com-php/ abraço

exemplos http://docs.oracle.com/cd/B28359_01/server...02.htm#i2066378 abraço

É possivel sim ... mas voce deverá criar um campo calculado pelo delphi veja esses exemplos http://psoug.org/reference/where.html http://www.lula.pro.br/artigo.asp?codigo=209&autor=Naks http://www.planetadelphi.com.br/dica/6729/...campo-calculado http://www.devmedia.com.br/criando-campos-...ientdataset/503 abraço

exemplo http://psoug.org/reference/where.html abraço

veja http://blog.gilbertoca.com/?p=10 http://keniamilene.wordpress.com/2007/09/2...r-banco-oracle/ abraço

Perceba, que o procedimento abaixo, faz a mesma coisa que o seu procedimento (procedure TfrmPreview.Resgata) e não ocorre nenhum erro ... com a diferença que não é preciso usar o TRegistry; OBS: pelo fato de voce estar usando o TRegistry pode ser isso a causa do erro Porque voce não substitui essa parte do código para ser se funciona no seu código ( ou use todo o código que te passei ... está funcionando perfeitamente ) procedure TfrmPreview.LoadClick(Sender: TObject); begin with TOpenDialog.Create(Application) do try Filter := 'QuickReport files (*.qrp)|*.qrp'; if Execute then if FileExists(FileName) then begin QRPreview.QRPrinter.Load(Filename); QRPreview.PageNumber := 1; QRPreview.PreviewImage.PageNumber := 1; if QRPreview.QRPrinter.Title = '' then QRPreview.QRPrinter.Title := Filename; if QRPreview.QRPrinter.PageCount = 1 then Self.Caption := QRPreview.QRPrinter.Title + ' - ' + IntToStr(QRPreview.QRPrinter.PageCount) + rspagina else Self.Caption := QRPreview.QRPrinter.Title + ' - ' + IntToStr(QRPreview.QRPrinter.PageCount) + rspaginas; bPleaseInit := True; Init; end else ShowMessage(rsImposibleLoadArchivo+ FileName); finally free; end; end; abraço

o comando INNER JOIN serve para voce juntar 2 tabelas, entretanto voce deve usar a clausula WHERE para filtrar as informações que deseja http://dev.mysql.com/doc/refman/4.1/pt/select.html http://dev.mysql.com/doc/refman/4.1/pt/whe...imizations.html abraço

Agora a minha pergunta: A sistema precisa de todos estes usários? Necessariamente não...voce pode configurar apenas um host, mas veja: http://web.theaggressive.com/newbies/setup...r-on-windows-7/ abraço

veja o código correto unit FReportPreview; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls, Spin, qrprntr,quickrpt,qrextra{,qrhtml,qr2const}, Buttons; type TfrmPreview = class(TForm) Panel1: TPanel; QRPreview: TQRPreview; Label1: TLabel; Label3: TLabel; sePage: TSpinEdit; seZoom: TSpinEdit; SaveDialogExport: TSaveDialog; sbFirstPage: TSpeedButton; sbPreviousPage: TSpeedButton; sbNextPage: TSpeedButton; sbLastPage: TSpeedButton; ZoomToWidth: TSpeedButton; ZoomTo100: TSpeedButton; ZoomToFit: TSpeedButton; PrintSetup: TSpeedButton; Print: TSpeedButton; BitBtnExit: TBitBtn; lblCopies: TLabel; SpinEditCopies: TSpinEdit; Load: TSpeedButton; Save: TSpeedButton; procedure Init; procedure sePageChange(Sender: TObject); procedure seZoomChange(Sender: TObject); procedure FormShow(Sender: TObject); procedure cmdExitClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure QRPreviewPageAvailable(Sender: TObject; PageNum: Integer); procedure FormCreate(Sender: TObject); procedure sbFirstPageClick(Sender: TObject); procedure sbPreviousPageClick(Sender: TObject); procedure sbNextPageClick(Sender: TObject); procedure sbLastPageClick(Sender: TObject); procedure ZoomToFitClick(Sender: TObject); procedure ZoomTo100Click(Sender: TObject); procedure ZoomToWidthClick(Sender: TObject); procedure PrintSetupClick(Sender: TObject); procedure PrintClick(Sender: TObject); procedure SaveClick(Sender: TObject); procedure BitBtnExitClick(Sender: TObject); procedure CancelReport; procedure LoadClick(Sender: TObject); private { Private declarations } public pQuickreport : TQuickRep; bPleaseInit : Boolean; sTitle : string; bCanPrint: boolean; { Public declarations } end; var frmPreview: TfrmPreview; implementation {$R *.DFM} ResourceString rspagina = 'página'; rspaginas = 'páginas'; rsListo = ' Listo'; rsOcupado = ' Ocupado'; rsFinalizado = ' Finalizado'; rsParaElreporte = 'Parar este reporte?'; rsImposibleLoadArchivo = 'Não é possivel carregar o arquivo selecionado: '; procedure TfrmPreview.sePageChange(Sender: TObject); begin Application.ProcessMessages; QRPreview.PageNumber:=sePage.Value; end; procedure TfrmPreview.seZoomChange(Sender: TObject); begin Application.ProcessMessages; QRPreview.Zoom:=seZoom.Value; end; procedure TfrmPreview.Init; begin if bPleaseInit then begin sePage.MaxValue := QRPreview.QRPrinter.PageCount; sePage.MinValue := 1; sePage.Value := 1; { Force the preview to come up in the zoom setting that we want} QRPreview.ZoomToFit; ZoomToFit.Down := True; seZoom.Value:=QRPreview.Zoom; bPleaseInit := False; end; end; procedure TfrmPreview.FormShow(Sender: TObject); var OffSet: integer; begin { Signal ourselves that we need to update the form } bPleaseInit := True; { If the caller reports want to disable printing, then it will set} { the following boolean to false } if not bCanPrint then begin Print.Enabled := bCanPrint; Print.Visible := bCanPrint; PrintSetup.Enabled := Print.Enabled; PrintSetup.Visible := Print.Enabled; lblCopies.Visible := Print.Enabled; SpinEditCopies.Enabled := Print.Enabled; SpinEditCopies.Visible := Print.Enabled; OffSet := Load.Left - lblCopies.Left; Load.Left := Load.Left - Offset; Save.Left := Save.Left - Offset; BitBtnExit.Left := BitBtnExit.Left - Offset; end; end; procedure TfrmPreview.cmdExitClick(Sender: TObject); begin Close; end; procedure TfrmPreview.FormClose(Sender: TObject; var Action: TCloseAction); begin { You must clear the preview's qrpinter property} QRPreview.QRPrinter := nil; { tell Delphi to free this form automaticly } Action := caFree; end; procedure TfrmPreview.QRPreviewPageAvailable(Sender: TObject; PageNum: Integer); begin Init; sePage.MaxValue := PageNum; { Display the number of rendered pages } if PageNum = 1 then Caption := QRPreview.QRPrinter.Title + ' - 1 '+ rspagina else Caption := QRPreview.QRPrinter.Title + ' - ' + IntToStr(PageNum) + rspaginas; { Here's one way to show the current status of the report } case QRPreview.QRPrinter.Status of mpReady: Caption := Caption + ' ' + rsListo; mpBusy: Caption := Caption + ' ' + rsOcupado; mpFinished: Caption := Caption + ' ' + rsFinalizado; end; end; procedure TfrmPreview.FormCreate(Sender: TObject); begin // Load the glyphs into the buttons sbFirstPage.Glyph.Handle := LoadBitmap(hinstance, 'QRFIRSTPAGEBITMAP'); sbPreviousPage.Glyph.Handle := LoadBitmap(hinstance, 'QRPREVPAGEBITMAP'); sbNextPage.Glyph.Handle := LoadBitmap(hinstance, 'QRNEXTPAGEBITMAP'); sbLastPage.Glyph.Handle := LoadBitmap(hinstance, 'QRLASTPAGEBITMAP'); ZoomToFit.Glyph.Handle := LoadBitmap(hinstance, 'QRZOOMTOFITBITMAP'); ZoomTo100.Glyph.Handle := LoadBitmap(hinstance, 'QRZOOMTO100BITMAP'); ZoomToWidth.Glyph.Handle := LoadBitmap(hinstance, 'QRZOOMTOWIDTHBITMAP'); PrintSetup.Glyph.Handle := LoadBitmap(hinstance, 'QRPRINTSETUPBITMAP'); Print.Glyph.Handle := LoadBitmap(hinstance, 'QRPRINTBITMAP'); Load.Glyph.Handle := LoadBitmap(hinstance, 'QROPENBITMAP'); Save.Glyph.Handle := LoadBitmap(hinstance, 'QRSAVEBITMAP'); { Load strings for hints } { ZoomToFit.Hint := 'Ajustar na Tela'; ZoomTo100.Hint := 'Aumentar em 100%'; ZoomToWidth.Hint := 'Aumentar em toda a Tela'; sbFirstPage.Hint :='Primera Página'; sbLastPage.Hint := 'Ultima Página'; sbPreviousPage.Hint := 'Página previa'; sbNextPage.Hint := 'Próxima página'; PrintSetup.Hint := 'Setar a Impressora'; Print.Hint := 'Imprimir arquivo'; Save.Hint := 'Salvar arquivo '; Load.Hint := 'Abrir arquivo';} { this is temporary. Not exists the resourcestring in qr2const.rc } // Exit.Caption := LoadStr( SqrCancel ); { You can put code in here to control how the form behaves} WindowState := wsMaximized; FormStyle := fsStayOnTop; { We can disable functionality at runtime } bCanPrint := True; end; procedure TfrmPreview.sbFirstPageClick(Sender: TObject); begin Application.ProcessMessages; sePage.Value := 1; QRPreview.PageNumber:=sePage.Value; end; procedure TfrmPreview.sbPreviousPageClick(Sender: TObject); begin Application.ProcessMessages; if sePage.Value > 1 then begin sePage.Value := sePage.Value - 1; QRPreview.PageNumber:=sePage.Value; end; end; procedure TfrmPreview.sbNextPageClick(Sender: TObject); begin Application.ProcessMessages; if sePage.Value < QRPreview.QRPrinter.PageCount then begin sePage.Value := sePage.Value + 1; QRPreview.PageNumber:=sePage.Value; end; end; procedure TfrmPreview.sbLastPageClick(Sender: TObject); begin Application.ProcessMessages; sePage.Value := QRPreview.QRPrinter.PageCount; QRPreview.PageNumber:=sePage.Value; end; procedure TfrmPreview.ZoomToFitClick(Sender: TObject); begin Application.ProcessMessages; QRPreview.ZoomToFit; seZoom.Value:=QRPreview.Zoom; end; procedure TfrmPreview.ZoomTo100Click(Sender: TObject); begin Application.ProcessMessages; QRPreview.Zoom:=100; seZoom.Value:=QRPreview.Zoom; end; procedure TfrmPreview.ZoomToWidthClick(Sender: TObject); begin Application.ProcessMessages; QRPreview.ZoomToWidth; seZoom.Value:=QRPreview.Zoom; end; procedure TfrmPreview.PrintSetupClick(Sender: TObject); begin { With 2.0j, QuickReport will set the report's tag property to -1 if the user cancels the printersetup. By checking for this value, we can call the print method directly from setup if the users selects OK } with pQuickReport do begin tag := -1; { Just in case you are using an older version } PrinterSetup; if tag = 0 then print; end; end; procedure TfrmPreview.PrintClick(Sender: TObject); begin Print.Enabled := False; QRPreview.qrprinter.Print; Print.Enabled := True; end; procedure TfrmPreview.SaveClick(Sender: TObject); var aExportFilter : TQRExportFilter; {$ifndef win32} FileExt : string; I : integer; {$endif} begin aExportFilter := nil; with TSaveDialog.Create(Application) do try Filter := QRExportFilterLibrary.SaveDialogFilterString; { DefaultExt := cQRPDefaultExt;} if Execute then begin {$ifdef win32} if FilterIndex = 1 then begin if Pos('.', Filename) = 0 then Filename := Filename + '.qrp'; QRPreview.QRPrinter.Save(Filename); end else begin try aExportFilter := TQRExportFilterLibraryEntry( QRExportFilterLibrary.Filters[FilterIndex - 2]).ExportFilterClass.Create(Filename); QRPreview.QRPrinter.ExportToFilter(aExportFilter); finally aExportFilter.Free end end {$else} FileExt := ExtractFileExt(Filename); if copy(FileExt, 1, 1) = '.' then delete(FileExt, 1, 1); if (FileExt = '') or (FileExt = cQRPDefaultExt) then QRPreview.QRPrinter.Save(Filename) else begin for I := 0 to QRExportFilterLibrary.Filters.Count - 1 do begin if TQRExportFilterLibraryEntry(QRExportFilterLibrary.Filters[I]).Extension = FileExt then try aExportFilter := TQRExportFilterLibraryEntry( QRExportFilterLibrary.Filters[I]).ExportFilterClass.Create(Filename); QRPreview.QRPrinter.ExportToFilter(aExportFilter); finally aExportFilter.Free; end; end; end; {$endif} end; finally Free; end; end; procedure TfrmPreview.BitBtnExitClick(Sender: TObject); begin Close; end; procedure TfrmPreview.CancelReport; begin if pQuickReport.qrprinter.status = mpBusy then if MessageDlg(rsParaElreporte, mtConfirmation, mbOKCancel,0) = mrOK then begin QRPrinter.Cancel; QRPreview.qrprinter := nil; end; end; procedure TfrmPreview.LoadClick(Sender: TObject); begin with TOpenDialog.Create(Application) do try Filter := 'QuickReport files (*.qrp)|*.qrp'; if Execute then if FileExists(FileName) then begin QRPreview.QRPrinter.Load(Filename); QRPreview.PageNumber := 1; QRPreview.PreviewImage.PageNumber := 1; if QRPreview.QRPrinter.Title = '' then QRPreview.QRPrinter.Title := Filename; if QRPreview.QRPrinter.PageCount = 1 then Self.Caption := QRPreview.QRPrinter.Title + ' - ' + IntToStr(QRPreview.QRPrinter.PageCount) + rspagina else Self.Caption := QRPreview.QRPrinter.Title + ' - ' + IntToStr(QRPreview.QRPrinter.PageCount) + rspaginas; bPleaseInit := True; Init; end else ShowMessage(rsImposibleLoadArchivo+ FileName); finally free; end; end; end. abraço

exemplo http://forum.imasters.com.br/topic/264920-...f-e-scanf-no-c/ abraço

utilize Character Set utf8 e Collation utf8_general_ci ou então utilize o MYSQL-Front para fazer a exportação abraço

if not DM.Tab_Numeros.Locate('C1;C2;C3;C4;C5;C6', VarArrayOf([edit1.text, edit2.text, edit3.text, edit4.text, edit5.text, edit6.text]), [loPartialKey]) then ShowMessage ('Dados não Localizados'); abraço

Como voce não tem experiencia em programação vai ficar dificil, mas se quer começar do zero vai ter que ler muito na net existe muito material sobre isso .... veja http://www.google.com.br/search?q=cadastro...p;aqi=&aql= abraço

veja o módulo "os", você pode usar os.stat, os.chmod, e os.chown para alterar os atributos de arquivos http://www.tutorialspoint.com/python/os_chmod.htm abraço

sem saber qual é a mensagem de erro, fica dificil mas veja esses exemplos http://yourbirdsing.blogspot.com.br/2008/1...-in-python.html http://ramalho.pro.br/aprendaprog/cap1.html http://www.vivaolinux.com.br/script/Conver...as-real-e-dolar abraço

Isso é erro de violação de endereço de memória.... durante a execução uma de suas rotinas, ele está tentando atribuir um valor a um endereço de memória ocupado por outro valor. verifique as rotinas de operação interna ... use o debug do delphi para achar a rotina com o problema abraço

Resolvendo MySQL ERROR 2013 (HY000) ERROR 2013 (HY000): Perda de conexão ao servidor MySQL em 'leitura pacote inicial de comunicação', erro do sistema: 0 MySQL usa TCP Wrappers e então voce deve fazer a entrada apropriada no / etc / hosts.allow: mysqld: ALL: allowOnce usado para acrescentar conexões remotas abraço

O erro refere-se a nenhum modulo chamado modulo se não me engano o python 3 pede que voce nomeie o modulo ... veja a documentação do python http://docs.python.org/library/ abraço