-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
Claro que é possivel... já fiz uma rede de 10 usuarios com o paradox.. entretanto vale lembrar que o banco de dados fica em um micro ( servidor ) e o executavel fica em cada maquina ( usuario ) apontando para o caminho do banco de dados. relacionamento de tabelas só serve para consultas, mas em rede voce deve limitar a quantidade de registros que trafegarão por ela, para deixa-la mais rapida. OBS: não use locate em rede e sim parametros em consulta SQL... o uso de indices tambem deixam a pesquisa muito mais rapida quanto ao PDOXUSRS.LCK resolvi da forma como lhe passei, apagando estes aquivos antes de acessar o banco de dados Leia a respeito de BDE com Paradox http://www.softnigro.com.br/bde.htm abraço
-
(Resolvido) Deletar linha de um dbrigd selecionando outro dbgrid
pergunta respondeu ao robinhocne de Jhonas em Delphi, Kylix
No evento OnDblClick do DBGrid voce coloca este codigo var Form1: TForm1; itemx : integer = 0; implementation {$R *.DFM} procedure TForm1.DBGrid1DblClick(Sender: TObject); begin // PROCURAR NA TABELA QUE ESTA NO DBGRID2 UM REGISTRO PARA DELETAR if CDS_Tabela.Locate('CAMPODATABELA',itemx,[loCaseInsensitive, loPartialKey]) then begin if MessageDlg('Deseja Apagar o Registro ?' , mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin CDS_Tabela.Delete; CDS_Tabela.ApplyUpdates(-1); end; // executar outros comandos se for o caso end else begin MessageDlg('O Registro solicitado' + #13 + 'não foi encontrado.' , mtInformation,[mbOk], 0); Edit1.Clear; end; end; // No evento OnCellClick do DBGrid procedure TForm1.DBGrid1CellClick(Column: TColumn); begin itemx := CDS_TabelaITEM.AsInteger; end; OBS: CDS_Tabela é o ClientDataSet da sua tabela a variavel inteira itemx receberá o valor do item ou numero ou codigo do registro que voce quer, quando voce clicar no registro desejado. No evento OnDblClick do DBGrid , quando voce der o duplo click o codigo ira procurar o registro da outra tabela atraves do locate.... se for encontrado executara a deleção do registro, caso contrario mostrara uma mensagem dizendo que o registro não foi encontrado na tabela. abraço -
o outro PDOXUSRS.LCK só pode ser excluido se não houver nenhum usuario da rede usando o programa então voce pode fazer de tres maneiras: 1 - inicie primeiro o programa que estiver no servidor sem que outros usuarios tenham acessado o banco de dados com a rotina que passei.... ou 2 - desligue o cabo de rede do servidor para que outros usuarios não tenham acesso ao banco de dados e exclua este arquivo e depois religue o cado de rede ou ainda 3 - reinicie o computador onde se encontra este arquivo e exclua-o antes de iniciar o programa OBS: este arquivo só é criado quando voce esta acessando o banco de dados e existe alguma tabela com bloqueio de registro. abraço
-
Na verdade, ao fazer este programa, voce pode fazer nele a mesma coisa que faz com o outro. Mas a principio é isso, use uma copia da tabela, para fazer o que voce esta querendo... com o tempo voce pode implementar todas as rotinas que existem no outro programa ou até mesmo melhorar essas rotinas e deixa-lo como programa definitivo no lugar do outro. abraço
-
(Resolvido) Deletar linha de um dbrigd selecionando outro dbgrid
pergunta respondeu ao robinhocne de Jhonas em Delphi, Kylix
Se voce tem duas dbgrids e consequetemente duas tabelas linkadas a estes dbgrids, basta então que ao dar um duplo clique em um registro da primeira, e procurar na segunda usando locate ou parametro, e então deletar o registro da segunda. abraço -
Crie um programa em delphi para ler as suas tabelas em access ( use componentes ADO ou outro ) e desta maneira voce poderá ao final de cada mês, verificar se algum dado de cliente foi alterado, ou se foi incluído algum cliente novo, e trazer somente esses dados, Clientes Novos e que Tiveram alterações de cadastro. abraço
-
procure um componente de encriptação de strings ( na net tem muitos ) abraço
-
Até da pra fazer, mas o controle fica muito mais complexo.... sugiro voce a continuar com a sua idéia inicial, espaço em hd hoje não é problema com relação ao numero do ID, voce pode zera-lo ao final do ano . abraço
-
Delphi 6- utilizando componentes para web.
pergunta respondeu ao Paulo Feitosa de Jhonas em Delphi, Kylix
Veja estes posts http://scriptbrasil.com.br/forum/index.php...mp;highlite=vpn http://scriptbrasil.com.br/forum/index.php...st&p=489768 abraço -
veja alguns destes posts.. procure que num deles esta a resposta para a sua duvida http://scriptbrasil.com.br/forum/index.php...st&p=449683 http://scriptbrasil.com.br/forum/index.php...te=enviar+email abraço
-
Boa tarde, tentei fazer mas deu erro no IdMessage.Recipients.EMailAddresses := edtPara.Text; expecificamente no Recipients, voce deve colocar o endereço do email exemplo: IdMessage.Recipients.EMailAddresses := 'master@bol.com.br' onde edtPara.Text; é um edit que vai receber o endereço do email abraço
-
Error : cannot run project unless a host application is defined Erro : não pode executar o projeto a menos que uma aplicação host esteja definida Este é um erro de configuração de componente com acesso a internet... verifique abraço
-
Componentes para criar um Editor de Texto
pergunta respondeu ao Polyanna Wenze de Jhonas em Delphi, Kylix
Eu te dei exemplos, a imaginação é sua ....criar é algo que todo desenvolvedor de softwares tem que praticar. abraço -
PDOXUSRS.LCK => bloqueia usuarios na rede PARADOX.LCK => bloqueia tabelas Voce deve apagar estes arquivos, toda vez que abrir o programa: exemplo: coloque este codigo no primeiro form do seu programa.... ele apagara estes arquivos automaticamente procedure TForm1.FormActivate(Sender: TObject); var F: TextFile; Bat: string; caminho : string; begin caminho = ExtractFilePath(Application.ExeName)+'\Arquivos'; Bat := ChangeFileExt(Application.ExeName,'.bat'); AssignFile(F, Bat); Rewrite(F); WriteLn(F, Format('DEL "%s"', ['C:\PDOXUSRS.NET'])); WriteLn(F, Format('DEL "%s"', ['C:\PDOXUSRS.LCK'])); WriteLn(F, Format('DEL "%s"', ['C:\PARADOX.LCK'])); WriteLn(F, Format('DEL "%s"', [caminho + '\PDOXUSRS.LCK'])); WriteLn(F, Format('DEL "%s"', [caminho + '\PDOXUSRS.NET'])); WriteLn(F, Format('DEL "%s"', [caminho + '\PARADOX.LCK'])); WriteLn(F, Format('DEL "%s"', [Bat])); CloseFile(F); WinExec(PChar(Bat), SW_HIDE); end; abraço
-
Esses erros são de violação de acesso ao escrever em um determinado endereço. Para corrigir este tipo de erro voce deve fazer uma atualização do windows vista, para poder rodar um aplicativo feito em delphi 2007. Entretanto no site da microsoft só encontrei atualização para o delphi 7 entre outros http://support.microsoft.com/kb/929427 abraço
-
Componentes para criar um Editor de Texto
pergunta respondeu ao Polyanna Wenze de Jhonas em Delphi, Kylix
Como criar um editor de texto em delphi exemplos https://www.scriptbrasil.com.br/download/codigo/5139/ http://www.oficinadanet.com.br/artigo/113/...extos_no_delphi http://www.ajudanaweb.com/index.php?showto...&#entry1183 http://www.activedelphi.com.br/print.php?sid=210 abraço -
Setei todos os componetes de dados no data set e data field correspondente ( voce colocou apenas no componente ) OBS: Para estar mostrando apenas o primeiro registro, voce deve ter se esquecido de colocar na propriedade DataSet do QuickReport o nome da sua Query abraço
-
Além do que o colega Pirambu escreveu, vai mais alguns esclarecimentos abraço
-
(Resolvido) Delphi 2007 dbxora30.dll não existe..
pergunta respondeu ao Renatosky de Jhonas em Delphi, Kylix
Me de o seu email, que eu te envio. abaço -
(Resolvido) Exportar layout Access para txt
pergunta respondeu ao João Paulo Taraciuk de Jhonas em Delphi, Kylix
o que significa este "Pos"? Pos é uma função do delphi function Pos(Substr: string; S: string): Integer; Retorna o valor de índice do primeiro caráter em um substring especificado que ocorre em uma determinada string ou seja: if Pos(', FROM', S) > 0 then delete(s,Pos(', FROM', S),1); Pos procura a substring ', FROM' dentro de uma string ( S ) e retorna o numero da coluna onde foi encontrada a substring..... se for encontrada ( > 0 ) então é deletado da string ( S ) na mesma posição onde foi encontrada a substring ', FROM' a virgula { delete(s,Pos(', FROM', S),1); } sugiro a voce procurar conhecer melhor a sintaxe dos comandos em delphi. abraço -
Colega ... te passei a versão do RXLIB para o delphi 7 INSTRUÇÕES PARA INSTALAR A RXLIB NO DELPHI ============================================= 1) ANTES DE INSTALAR Se você tem Delphi 6 Profissional ou Personal Edition, desative a condicional {$DEFINE DCS} no arquivo RX.INC antes de compilar a biblioteca. { 2) INSTALANDO NO DELPHI Delphi 7: - Obs.: Antes de instalar, feche todos os projetos através do menu "File / Close All" - Vá em File/Open da IDE do Delphi e abra o arquivo RXCTL7.DPK - Click no botão Compile da Janela Package... - Vá em File/Open da IDE do Delphi e abra o arquivo RXDB7.DPK - Click no botão Compile da Janela Package... - Vá em File/Open da IDE do Delphi e abra o arquivo RXBDE7.DPK - Click no botão Compile da Janela Package... - Feche os 3 arquivos sem salvar. - Ponha os arquivos compilados .BPL em um diretório que seja acessado pela variavel de ambiente PATH.(EX. Windows\System). - Vá em File/Open da IDE do Delphi e abra o arquivo DCLRX7.DPK - Click no botão Compile da Janela Package... - Click no botão INSTALL da Janela Package... - Vá em File/Open da IDE do Delphi e abra o arquivo DCLRXDB7.DPK - Click no botão Compile da Janela Package... - Click no botão INSTALL da Janela Package... - Vá em File/Open da IDE do Delphi e abra o arquivo DCLRXBD7.DPK - Click no botão Compile da Janela Package... - Click no botão INSTALL da Janela Package... - Feche os 3 arquivos sem salvar. 3) Vá em Tools/Environment Option/Library. Na opção Library path inclua o diretório aonde estão os .pas e .dcu da RxLib (é o diretório Units dentro da arvore da Rx). abraço
-
O RxMemoryData1 é um dos componentes do pacote do RXLIB http://delphi.icm.edu.pl/ftp/d70free/Rx275D7.zip abraço
-
Protejer um executavel de hackers e roubo!
pergunta respondeu ao -Fire- de Jhonas em Softwares Livres
Eu fiz em delphi .... não uso o VB6 , mas tente neste endereço http://forum.unidev.com.br/phpbb2/viewtopic.php?t=42741 abraço -
Veja este endereço, tem o dspack para o delphi 2005 http://coelhonarede.110mb.com/2007/10/capt...via-delphi.html abraço
-
Tenha o habito de fazer inicialmente uma pesquisa no forum para verificar se sua duvida já existe e foi solucionada procure pela palavra progressbar http://scriptbrasil.com.br/forum/index.php...st&p=450433 abraço