Jhonas

abraço

Me mostre como fica a Sigla nesse esse exemplo de tabela Tabela1 cod--num-----codoco 1......2567.....35 2......2568.....35 3......2569.....67

EDBImg16 para o QuickReport Delphi 3, 4, 5, 6, 7 http://www.torry.net/db/visible/db_images/EDBImg16.zip »Install 0- Before install, remove previous versions of EDBImage (and QREDBImage) Choose Component | Install Packages..., select EDBimage and hit Remove. (delete or rename: edbImage.*, qrEDBimage.* ) 1-Open VCLser40.dpk (Dephi4), VCLser50.dpk (Delphi5), VCLser60.dpk (Delphi6) or VCLser70.dpk (Delphi7) Menu Project-Options in Directory/Conditionals tab set OutputDirectory to C:\Windows\System (or your system directory) Compile it. DO NOT install, it is just a runtime package. 2-Open DCLser40.dpk (Dephi4), DCLser50.dpk (Delphi5), DCLser60.dpk (Delphi6) or DCLser70.dpk (Delphi7) Compile it, then Install It. This is the Designtime package. 3- Enjoy!! abraço

Tabela1 cod--num-----codoco 1......2567.....35 2......2568.....35 3......2569.....67 Tabela2 cod--num-----codoco 1......2567.....10 2......2568.....35 3......2569.....11 Atualização da tabela 1 e relação a tabela 2 Tabela1 cod--num-----codoco 1......2567.....10 2......2568.....35 3......2569.....11 procedure TForm1.Button1Click(Sender: TObject); var i,j: integer; NomeCampo: String; begin Tabela2.First; While Not Tabela2.Eof Do Begin For i := 0 To Tabela2.FieldCount-1 Do Begin NomeCampo := Tabela2.Fields[i].FieldName; if (NomeCampo = 'Numero') and (Tabela1.FieldbyName(NomeCampo).Value = Tabela2.FieldbyName(NomeCampo).Value ) then begin Tabela1.Edit; if Tabela1.FieldbyName('Codoco').Value <> Tabela2.FieldbyName('Codoco').Value then Tabela1.FieldbyName('Codoco').Value := Tabela2.FieldbyName('Codoco').Value; Tabela1.Next; end; End; Tabela1.Post; Tabela2.Next; Application.ProcessMessages; end; end; OBS: esta abordagem serve apenas para tabelas com estruturas iguais abraço

Manutenção de Copiadoras é um serviço remunerado e portanto voce não vai achar material gratuito sobre o assunto http://www.faculdadelivre.com.br/?sec=ver_curso&id=2711 abraço

Olhe atras do monitor e me diga qual o modelo dele

o Win Xp Não Precisa do Driver porque ele já tem abraço

Basta fazer o processo inverso ... mas porque há a necessidade de fazer isso ? abraço

veja a modificação program Project2; {$APPTYPE CONSOLE} uses SysUtils; Var vetor_a, vetor_b:array [1..5] of integer; vetor_c:array [1..10] of integer; i, x, y, z:integer; Begin x := 0; y := 0; for i := 1 to 5 do begin read (vetor_a[i]); read (vetor_b[i]); end; for i := 1 to 10 do begin if i mod 2 = 0 then begin x := x + 1; vetor_c[i] := vetor_a[x]; end else begin y := y + 1; vetor_c[i] := vetor_b[y]; end; end; writeln('Valores do Vetor A'); writeln(''); for z := 1 to 10 do begin if z mod 2 = 0 then begin writeln('Vetor '+inttostr(z) + ' = ' + inttostr(vetor_c[z])); writeln(''); end; end; writeln(''); writeln('Valores do Vetor B'); writeln(''); for z := 1 to 10 do begin if z mod 2 <> 0 then begin writeln('Vetor '+inttostr(z) + ' = ' + inttostr(vetor_c[z])); writeln(''); end; end; end. abraço

Voce não atentou para um detalhe .... Será que agora voce conseguiu entender o porque de hora imprimir a imagem e hora não ? Tenha certeza que o problema está no tamanho da figura e no Bit de cor abraço

Copiando os registros selecionados num dbgrid para o clipboard Procedure CopyDBGridToClipboard(DBGrid: TDBGrid; WithHeader: Boolean; SelectedOnly: Boolean); var Linhas: TStringList; i, posicao, iSelec: integer; s: string; begin Linhas := TStringList.Create; Clipboard.Open; Screen.Cursor := crHourGlass; try // Copia o Cabeçalho do DBGrid if WithHeader then begin s := ''; for i := 0 to DBGrid.Columns.Count - 1 do begin if i > 0 then s := s + #9; // Tabulação s := s + DBGrid.Columns.Items[i].Field.DisplayLabel; end; Linhas.Add(s); end; DBGrid.DataSource.DataSet.DisableControls; // Copia os dados dos REGISTROS SELECIONADOS no DBGrid if (SelectedOnly) and (DBGrid.SelectedRows.Count > 0) then begin for iSelec := 0 to DBGrid.SelectedRows.Count-1 do begin DBGrid.DataSource.DataSet.GotoBookmark(pointer( DBGrid.SelectedRows.Items[iSelec])); s := ''; for i := 0 to DBGrid.Columns.Count - 1 do begin if i > 0 then s := s + #9; // Tabulação s := s + DBGrid.Columns.Items[i].Field.Text; end; Linhas.Add(s); end; DBGrid.DataSource.DataSet.GotoBookmark(pointer( DBGrid.SelectedRows.Items[0])); end // Copia os dados de TODOS OS REGISTROS do DBGrid else begin Posicao := DBGrid.DataSource.DataSet.RecNo; DBGrid.DataSource.DataSet.First; while not DBGrid.DataSource.DataSet.Eof do begin s := ''; for i := 0 to DBGrid.Columns.Count - 1 do begin if i > 0 then s := s + #9; // Tabulação s := s + DBGrid.Columns.Items[i].Field.Text; end; Linhas.Add(s); DBGrid.DataSource.DataSet.Next; end; DBGrid.DataSource.DataSet.RecNo := Posicao; end; DBGrid.DataSource.DataSet.EnableControls; Clipboard.SetTextBuf(Pointer(Linhas.Text)); finally Linhas.Free; Clipboard.Close; Screen.Cursor := crDefault; end; end; Veja tambem http://scriptbrasil.com.br/forum/index.php...st&p=433423 ou este http://stackoverflow.com/questions/397413/...id-to-clipboard abraço

Eu entendi, mas voce é que não entendeu que dá pra fazer isso com esse código ... vou dar um tempo para voce pensar se não conseguir eu posto o resultado .. ok ? abraço

Veja esse post http://scriptbrasil.com.br/forum/index.php...5907&hl=nfe ou faça uma pesquisa no forum pela palavra NFE abraço

nicolasbraz ... olhando apenas a imagem não dá para ajudar .... ninguém pode advinhar o seu código abraço

Fiz um teste aqui e funciona .... não sei como voce esta fazendo isso abraço

Veja se consegue entender como funciona a classe pFrame ..... um exemplo em Delphi e um em C++ {****************************************************************************** * Copyright (C) 2002 Christian Bendl , TerRoshak@gmx.de * * * * This program is free software; you can redistribute it and/or modify * * it under the terms of the GNU General Public License as published by * * the Free Software Foundation; either version 2 of the License, or * * (at your option) any later version. * * * * This program is distributed in the hope that it will be useful, * * but WITHOUT ANY WARRANTY; without even the implied warranty of * * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * * GNU General Public License for more details. * * * * You should have received a copy of the GNU General Public License * * along with this program; if not, write to the Free Software * * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * * ******************************************************************************} unit pframe; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus; type TPageFrame = class(TForm) Memo1: TMemo; Panel1: TPanel; Edit1: TEdit; PopupMenu1: TPopupMenu; Copy1: TMenuItem; VirtualDosBox1: TMenuItem; Accessallowed1: TMenuItem; procedure FormResize(Sender: TObject); procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Accessallowed1Click(Sender: TObject); private myguid : TGUID; actualpath : string; { Private declarations } public procedure Setmyguid(guid : tguid); procedure GetFileList(Path: string; FileList : TStrings); { Public declarations } end; implementation uses Main; {$R *.dfm} procedure TPageFrame.GetFileList(Path: string; FileList : TStrings); var I: Integer; SearchRec: TSearchRec; label next; begin I := FindFirst(Path + '*.*', faAnyFile, SearchRec); while I = 0 do begin if (SearchRec.Attr = faDirectory) then filelist.add('\' + SearchRec.Name) else filelist.add(SearchRec.Name); next: I := FindNext(SearchRec); end; end; procedure TPageFrame.Setmyguid(guid : tguid); begin myguid := guid; end; procedure TPageFrame.FormResize(Sender: TObject); begin edit1.width := Panel1.Width -6; end; procedure TPageFrame.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key = 13) then begin form1.SendPageByGuid(myguid,edit1.text); edit1.text := ''; key := VK_OEM_CLEAR; end; end; procedure TPageFrame.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.DelPage(myguid); Action := caFree; end; procedure TPageFrame.Accessallowed1Click(Sender: TObject); begin if accessallowed1.checked then accessallowed1.checked := false else accessallowed1.checked := true; end; end. ============================================= #include "stdafx.h" #include "PEDemo.h" #include "MainFrm.h" #include "ChildFrm.h" #include "codeview.h" #include "pegrpapi.h" #ifdef _DEBUG #define new DEBUG_NEW #undef THIS_FILE static char THIS_FILE[] = __FILE__; #endif ///////////////////////////////////////////////////////////////////////////// // theApp BEGIN_MESSAGE_MAP(theApp, CWinApp) //{{AFX_MSG_MAP(theApp) ON_COMMAND(ID_APP_ABOUT, OnAppAbout) ON_COMMAND(ID_FILE_NEW, OnFileNew) ON_UPDATE_COMMAND_UI(ID_HELP_INDEX, OnUpdateHelpIndex) ON_COMMAND(ID_HELP_INDEX, OnHelpIndex) ON_COMMAND(ID_HELP, OnHelp) ON_COMMAND(ID_MANUAL, OnManual) ON_COMMAND(ID_COMMONQUESTIONS, OnCommonquestions) ON_COMMAND(ID_ENDUSERHELP, OnEnduserhelp) //}}AFX_MSG_MAP END_MESSAGE_MAP() ///////////////////////////////////////////////////////////////////////////// // theApp construction theApp::theApp() { // TODO: add construction code here, // Place all significant initialization in InitInstance } ///////////////////////////////////////////////////////////////////////////// // The one and only theApp object theApp theApp; ///////////////////////////////////////////////////////////////////////////// // theApp initialization BOOL theApp::InitInstance() { // Standard initialization // If you are not using these features and wish to reduce the size // of your final executable, you should remove from the following // the specific initialization routines you do not need. #ifdef _AFXDLL Enable3dControls(); // Call this when using MFC in a shared DLL #else Enable3dControlsStatic(); // Call this when linking to MFC statically #endif AfxInitRichEdit(); // Change the registry key under which our settings are stored. // such as the name of your company or organization. SetRegistryKey(_T("Gigasoft, Inc.")); // To create the main window, this code creates a new frame window // object and then sets it as the application's main window object. CMDIFrameWnd* pFrame = new CMainFrame; m_pMainWnd = pFrame; // create main MDI frame window if (!pFrame->LoadFrame(IDR_MAINFRAME)) return FALSE; // try to load shared MDI menus and accelerator table //TODO: add additional member variables and load calls for // additional menu types your application may need. HINSTANCE hInst = AfxGetResourceHandle(); m_hMDIMenu = ::LoadMenu(hInst, MAKEINTRESOURCE(IDR_PEDEMOTYPE)); m_hMDIAccel = ::LoadAccelerators(hInst, MAKEINTRESOURCE(IDR_PEDEMOTYPE)); // The main window has been initialized, so show and update it. pFrame->ShowWindow(SW_SHOWMAXIMIZED); pFrame->UpdateWindow(); OnAppAbout(); OnFileNew(); return TRUE; } ///////////////////////////////////////////////////////////////////////////// // theApp message handlers int theApp::ExitInstance() { //TODO: handle additional resources you may have added if (m_hMDIMenu != NULL) FreeResource(m_hMDIMenu); if (m_hMDIAccel != NULL) FreeResource(m_hMDIAccel); return CWinApp::ExitInstance(); } void theApp::OnFileNew() { CMainFrame* pFrame = STATIC_DOWNCAST(CMainFrame, m_pMainWnd); // create a new MDI child window pFrame->CreateNewChild( RUNTIME_CLASS(CChildFrame), IDR_PEDEMOTYPE, m_hMDIMenu, m_hMDIAccel); CWnd* pParent = AfxGetMainWnd(); if (pParent) {pParent->SetWindowText("ProEssentials v5");} } ///////////////////////////////////////////////////////////////////////////// // CAboutDlg dialog used for App About class CAboutDlg : public CDialog { public: CAboutDlg(); // Dialog Data //{{AFX_DATA(CAboutDlg) enum { IDD = IDD_ABOUTBOX }; //}}AFX_DATA public: int m_nTimer; CRichEditCtrl m_Edit; // ClassWizard generated virtual function overrides //{{AFX_VIRTUAL(CAboutDlg) public: virtual BOOL PreTranslateMessage(MSG* pMsg); protected: virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support //}}AFX_VIRTUAL // Implementation protected: //{{AFX_MSG(CAboutDlg) virtual void OnOK(); virtual BOOL OnInitDialog(); afx_msg void OnTimer(UINT nIDEvent); //}}AFX_MSG DECLARE_MESSAGE_MAP() }; CAboutDlg::CAboutDlg() : CDialog(CAboutDlg::IDD) { //{{AFX_DATA_INIT(CAboutDlg) //}}AFX_DATA_INIT } void CAboutDlg::DoDataExchange(CDataExchange* pDX) { CDialog::DoDataExchange(pDX); //{{AFX_DATA_MAP(CAboutDlg) //}}AFX_DATA_MAP } BEGIN_MESSAGE_MAP(CAboutDlg, CDialog) //{{AFX_MSG_MAP(CAboutDlg) ON_WM_TIMER() //}}AFX_MSG_MAP END_MESSAGE_MAP() // App command to run the dialog void theApp::OnAppAbout() { CAboutDlg aboutDlg; aboutDlg.DoModal(); } ///////////////////////////////////////////////////////////////////////////// // theApp message handlers void theApp::OnUpdateHelpIndex(CCmdUI* pCmdUI) {pCmdUI->Enable(TRUE);} void theApp::OnHelpIndex() { // TODO: Add your command handler code here CMDIFrameWnd* p = (CMDIFrameWnd*) AfxGetMainWnd(); ::WinHelp(p->m_hWnd, "peonlref.hlp", HELP_CONTENTS, 0); } void theApp::OnHelp() { CWnd* pHasFocus; CMDIFrameWnd* p = (CMDIFrameWnd*) AfxGetMainWnd(); pHasFocus = p->GetFocus(); CChildFrame* pWnd = (CChildFrame*) p->MDIGetActive(); CCodeView* pCodeView = (CCodeView*) pWnd->m_pCodeView; if (pCodeView == pHasFocus) pCodeView->GetPEHelp(); else { HWND h = ::GetFocus(); DWORD dwHelpID = PEgethelpcontext(h); if (dwHelpID) { ::WinHelp(p->m_hWnd, "pegraphs.hlp", HELP_CONTEXT, dwHelpID); } else { /* a non-ProEssentials controls has the focus */ ::WinHelp(p->m_hWnd, "pegraphs.hlp", HELP_CONTENTS, dwHelpID); } } } void theApp::OnManual() { CMDIFrameWnd* p = (CMDIFrameWnd*) AfxGetMainWnd(); ::WinHelp(p->m_hWnd, "peonlref.hlp", HELP_CONTEXT, 205); } void theApp::OnCommonquestions() { CMDIFrameWnd* p = (CMDIFrameWnd*) AfxGetMainWnd(); ::WinHelp(p->m_hWnd, "peonlref.hlp", HELP_CONTEXT, 2); } void theApp::OnEnduserhelp() { CMDIFrameWnd* p = (CMDIFrameWnd*) AfxGetMainWnd(); ::WinHelp(p->m_hWnd, "pegraphs.hlp", HELP_CONTENTS, 0); } void CAboutDlg::OnOK() { // TODO: Add extra validation here KillTimer(m_nTimer); CDialog::OnOK(); } BOOL CAboutDlg::PreTranslateMessage(MSG* pMsg) { // TODO: Add your specialized code here and/or call the base class if (pMsg->message == WM_KEYDOWN) { OnOK(); } if (pMsg->message == WM_LBUTTONDOWN) { OnOK(); } return CDialog::PreTranslateMessage(pMsg); } BOOL CAboutDlg::OnInitDialog() { CDialog::OnInitDialog(); CString dialogtext; dialogtext = "\nGigasoft is pleased to introduce ProEssentials v5\n\n"; dialogtext += "The following demo contains three panes:\n\n"; dialogtext += "1) Top-Left pane is a tree control listing examples. Each control type starts with a simple example and is followed by more complex examples that build upon the simple example. Be sure to study and the simple examples before moving to the more complex examples.\n\n"; dialogtext += "2) Top-Right pane is a Code Window showing code for the selected example. You can choose between VB.NET, C, Visual Basic, and Delphi formatted code. Click a BLUE property or function within the Code Window and Press F1 for help on that item (note that currently the VB.NET code window does not support F1, we will be adding this shortly as we also transition to HTML help). You can also use the Code Window to copy and paste code into your projects.\n\n"; dialogtext += "3) Bottom pane is an actual control after the code in Code Window is executed. You can interact with these controls as described below to produce a huge variety of output. The competition regularly provides demos with staticly sized controls and properties. If comparing products, be sure to compare how image quality is maintained dependent upon control size, shape, and user customizations.\n\n\n"; dialogtext += "User interface for ProEssentials controls:\n\n"; dialogtext += "1) Double clicking control in bottom pane will launch a customization dialog or toggle auto-rotation of 3D images.\n\n"; dialogtext += "2) Right Button clicking will launch a popup menu.\n\n3) Left Button click and drag will zoom 2D charts."; dialogtext += " Use the 'z' key or Right-Click and use popup menu to undo the zoom.\n\n"; dialogtext += "4) For 3D Scientific Graphs, drag scrollbar thumb-tags to rotate images quickly.\n\n"; dialogtext += "Other important things to know about demo and ProEssentials product:\n\n"; dialogtext += "1) Use the Help menu to get more help on developer features. Included in the help menu are Commonly Asked Questions.\n\n"; dialogtext += "2) When searching our developer help file, build the help search index with the maximum content option. This provides the most powerful tool to help find what you're looking for.\n\n"; dialogtext += "3) The ProEssentials product comes with source code for this demo in VB.NET, Visual C++, Visual Basic, Delphi, and Builder projects. This allows you to experiment with these examples in your language of choice.\n\n\n"; dialogtext += "Thank you again for reading this information. We want your ProEssentials experience to be as efficient as possible.\n\n"; dialogtext += "To contact Gigasoft:\nphone 817 431 8470\nfax 817 431 9860\nemail info@gigasoft.com.\nIf you have any questions, give us a call or send us an email.\n\n"; dialogtext += "ProEssentials(TM) is a trademark of Gigasoft, Inc.\n"; dialogtext += "Gigasoft(R) is a registered trademark of Gigasoft, Inc.\n"; CRect rect; GetClientRect(rect); WINDOWPLACEMENT wp; CWnd* pWnd = GetDlgItem(IDC_PLACEHOLDER); pWnd->GetWindowPlacement(&wp); rect = wp.rcNormalPosition; m_Edit.Create(ES_MULTILINE|WS_VISIBLE|WS_VSCROLL|WS_BORDER, rect, this, 1); m_Edit.SetReadOnly(TRUE); CHARFORMAT cf; strcpy(cf.szFaceName, "Arial"); cf.cbSize = sizeof(cf); cf.dwMask = CFM_SIZE | CFM_FACE; cf.yHeight = 170; m_Edit.SetDefaultCharFormat(cf); m_Edit.SetWindowText(dialogtext); // TODO: Add extra initialization here m_nTimer = 0; //m_nTimer = SetTimer(1, 500, NULL); return TRUE; // return TRUE unless you set the focus to a control // EXCEPTION: OCX Property Pages should return FALSE } void CAboutDlg::OnTimer(UINT nIDEvent) { // TODO: Add your message handler code here and/or call default CWnd* p = this; p->FlashWindow(TRUE); CDialog::OnTimer(nIDEvent); } abraço

Se quiser aprender como isso funciona, voce deve criar um novo projeto e colocar apenas 2 forms para testar a mudança da propriedade FormStyle do Form1 para fsMDIForm e do form2 para fsFDMChild e depois tentar reverter abraço

Programa pronto só se voce quiser pagar por ele ... veja os links Administração Escolar http://www.apostilar.com.br/apostilas.php?...3&subcat=60 Programa de gestão escolar http://www.ibiubi.com.br/produtos/sistema-...as/IUID1397641/ abraço

Veja em Projects > Options OBS: Acho melhor voce iniciar novo projeto, já que não tem experiencia com essas situações abraço

isso está correto ... pois se voce tiver 3 paginas o resultado do calculo parcial tem que aparecer em cada folha na verdade voce pode deixar o resultado em um Label e utiliza-lo no relatório sem precisar passar para um DataMemo abraço

isso é erro de violação de memoria ... ou seja conflito de instrução de comandos sugiro voce recriar os forms abraço

Procure no forum por simular pressionamento de teclas e webbrowser http://scriptbrasil.com.br/forum/index.php...ighlite=simular http://scriptbrasil.com.br/forum/index.php...lite=webbrowser abraço

Não existe formato matricial, apenas formato de tamanho de papel ( A4, A5, Carta, etc.. ) quando voce imprime o relatório do quickreport na impressora matricial, a impressão será no modo grafico, por isso a impressão fica mais lenta ... se fosse no modo caracter seria mais rápido. se quiser usar um componente para impressora matricial use o VDOPrint http://sourceforge.net/projects/vdo/files/VDOPrint/ e outra na configuração do papel do tamnho dele em uma impressao matrical nós contamos o tamanho, completo(com aquela linha de Bolinha(q a matricial usa pra puxar os papeis) do lado ) ou sem ela?? sem ela.... a medição do papel é a partir do picote da folha abraço

mude a figura para JPG e depois informe abraço

Eder... Esse exemplo vai servir para o que está querendo, é só fazer as modificações necessárias procedure TForm1.Button1Click(Sender: TObject); var i: integer; NomeCampo: String; begin Tabela1.First; While Not Tabela1.Eof Do Begin Tabela2.Append; For i := 0 To Tabela1.FieldCount - 1 Do Begin NomeCampo := Tabela1.Fields[i].FieldName; Tabela2.FieldbyName(NomeCampo).Value := Tabela1.FieldbyName(NomeCampo).Value; End; Tabela2.Post; Tabela1.Next; Application.ProcessMessages; end; abraço