Jhonas

erro E1026 File not Found: 'Controls.res' esse erro ocorre quando alguma unit do seu projeto foi renomeada ... o arquivo Controls.res é gerado durante a compilação do programa, portanto, se o programa não foi compilado, voce não vai encontrar esse arquivo abraço

a ideia é fazer algo parecido com isto http://scriptbrasil.com.br/forum/index.php...st&p=625587 alguns componentes que voce podera usar http://www.vclcomponents.com/s/0__/remote_...nection_delphi/ abraço

while registo <RecordCount do begin Perfil(ModuloDados.QryPerfilPRIVILEGIO.Text); // Função contendo o código que será escrito, armazenado na tabela next; Inc(registo, 1) end; amigo, quando falo para detalhar é detalhar mesmo .... observe: voce disse que quer usar uma função... depois que esse código está armazenado num dos campos da tabela em que é feita a consulta. se eu entendi direito, voce quer colocar um codigo ( por exemplo: FormClientes.visible:=False/True que esta num campo da tabela ) e depois tentar adicionar esse código ao código já existente ( ou seja o seu programa executavel ) se for isso não é possivel, pois se fosse, seria uma farra para os hackers o que voce pode fazer é criar dlls externas ( que contenham as funções ) que podem ser chamadas pelo seu programa abraço

amigo, voce tem que ser mais claro quanto ao que quer fazer... a que tipo de código voce esta se referindo ? delphi ? assembler ? Php ? Script ? quanto mais detalhada a sua dúvida, mais rapido terá uma resposta .. ok ? abraço

tente essa versão http://www.planetadelphi.com.br/download/4....31-delphi-2010 abraço

Em qual form esta a sua procedure ? o evento OnCreate do form principal não é a melhor opção para fazer a chamada da dll, o ideal seria no evento OnActive do form abraço

estava me referindo a esse post e tambem ao outro que o amigo Prog'amador já citou para voce usando a logica do seu tópico anterior --> (Resolvido) Gerar Pagamentos voce tem que ter uma visão global do sistema ... olhe com calma que voce resolve o problema abraço

No Menu em Project > Options ... veja se existe algum form no Auto-Create uma solução é colocar somente esse form no Auto-Create abraço

não precisa ser necessariamente um objeto, poderia ser uma simples variavel, que se estiver sendo atribuido um valor a ela, sem o form estar criado, tambem ocorreria o mesmo erro. o correto seria voce cria-lo no evento OnActive do Form principal e não no OnCreate abraço

amigo... olhe os posts anteriores, e verá que voce alterou o código, tirando parte do código que seria necessário abraço

coisa de loko, ou frescura do anti-virus? é coisa do anti-virus ... registre a dll que a mensagem não aparece mais abraço

o Jvcdbtreview é bem parecido com o Triview ( componente nativo do delphi ) as propriedades voce vê no object Inspector se voce quiser usar como controle de acesso a usuários até dá, mas eu optaria por outro abraço

veja http://www.planetadelphi.com.br/delphi/apo...os/00003126.zip abraço

voce acha nesse link http://www.google.com.br/search?hl=pt-BR&a...5l0l391l391l3-1 abraço

if (new.status <> 'C') then begin update "CLIENT" set "CLIENT"."NOME" = :"NOME" "CLIENT"."TEL" = :"TEL" where "CLIENT"."NOME" = :"NEW_NOME" and "CLIENT"."TEL" = :"NEW_TEL" Dynamic SQL Error SQL Error code = -104 Token unknown -line 1, colum 1 if. esse erro esta indicando que o IF não pode ser usado dentro da Propriedade ModifySQL ... nesse caso a abordagem para o problema é usar a propriedade SQL de uma query. leia com mais atenção a apostila ... Obs: existem outras na net ou no proprio forum abraço

Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ite=rave+report abraço

Voce precisa ler mais a respeito do Delphi... procure por apostilas no forum unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, StdCtrls, Mask, DBCtrls, ADODB, ExtCtrls; type TForm1 = class(TForm) ADOConnection1: TADOConnection; Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; Label3: TLabel; DBEdit3: TDBEdit; Label4: TLabel; DBEdit4: TDBEdit; Label5: TLabel; DBEdit5: TDBEdit; Label6: TLabel; DBEdit6: TDBEdit; Label7: TLabel; DBEdit7: TDBEdit; Label8: TLabel; DBEdit8: TDBEdit; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; ADOTable1: TADOTable; DataSource1: TDataSource; procedure FormCreate(Sender: TObject); procedure DoEnterAsTab(var Msg: TMsg; var Handled: Boolean); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.DoEnterAsTab(var Msg: TMsg; var Handled: Boolean); begin if Msg.Message = WM_KEYDOWN then if Msg.wParam = VK_RETURN then Keybd_event(VK_TAB, 0, 0, 0); end; procedure TForm1.FormCreate(Sender: TObject); begin Application.OnMessage := DoEnterAsTab; end; end. abraço

if not TblInt.Locate('SupArea', CboAre.Text, [loPartialKey, loCaseInsensitive]) then begin TblInt.Delete; end; se não localizar, deleta ???? use a mesma lógica para o RxMemoryData, como se fosse um DBgrid se voce pegar a seleção do combo e jogar em uma SQL, vai ter o resultado esperado abraço

c:\projects\stril e n existe essa pasta no meu pc se não existe no seu pc, voce deve criar essa pasta ... agora quanto ao conteudo da pasta ??? OBS: seja mais explicito em sua duvida e nas explicações, caso contrario não terá respostas abraço

voce esta usando uma stored procedure ( sp_cursoropen/sp_cursorprepare ) o erro refere-se: que voce deve usar uma stored procedure com uma única escolha abraço

Já que o assunto é outro, voce deveria ter aberto outro tópico mas já que gosta do assunto, veja esse link ( Traduzido ) http://translate.google.com.br/translate?h...5%26prmd%3Divns nesse link tem um exemplo de como executar uma fala animada pelo delphi abraço

"EOleException with Message: sp_cursoropen/sp_cursorprepare: The statement can only be a batch or a stored procedure with a single select, without FOR BROWSE, COMPUTE BY, or variable assignements " Erro: sp_cursoropen/sp_cursorprepare: A declaração só pode ser um lote ou um procedimento armazenado com uma única escolha, sem FOR BROWSE, COMPUTE BY, ou variável atribuida reveja a sua declaração ... e atente para a mensagem de erro abraço

procedure TForm1.Button1Click(Sender: TObject); begin //transfere todos os filtrados dm.q_pag_inq.First; While Not dm.q_pag_inq.Eof Do Begin dm.q_gerados_inq.Append; For i := 0 To dm.q_pag_inq.FieldCount - 1 Do Begin NomeCampo := dm.q_pag_inq.Fields[i].FieldName; dm.q_gerados_inq.FieldbyName(NomeCampo).Value := dm.q_pag_inq.FieldbyName(NomeCampo).Value; End; dm.q_gerados_inq.Post; dm.q_pag_inq.Next; End; // finaliza o while //acrescentei isso para deletar with dm.q_pag_inq do while RecordCount > 0 do Delete; end; end; toma cuidado com esses Ends; abraço

e tem, mas voce tem que saber extamente o que quer e como quer fazer exemplo: delete from tabela deleta todos os registros de uma tabela, mas se voce não quer deletar todos os registros, voce tem que usar a clausula where para selecionar somente aqueles que deseja apagar. http://www.edudelphipage.com.br/dicas_text...ia=3&busca= http://www.greatis.com/delphicb/tips/lib/d...-copytable.html OBS: mas como eu disse, voce deve ler mais sobre o delphi abraço

Todas essas dúvidas voce tira lendo as apostilas de delphi... delete from tabela with dm.q_pag_inq do begin Close; SQL.Clear; SQL.Add('delete from dm.q_gerados_inq where vencimento Between :dataini and :datafim'); SQL.Add('AND id_inq = ' + QuotedStr(f_cad_inquilinos.Edt_inq.Text)); SQL.Add('AND baixados = ' + QuotedStr(f_cad_inquilinos.edt_baixa.Text) + 'order by vencimento asc'); Parameters.ParamByName('dataini').Value := DateEdit1.date; Parameters.ParamByName('datafim').Value := DateEdit2.date; Open; end; abraço