Jhonas

http://reportman.sourceforge.net/tutorial/index.html abraço

var i , numbt : Integer; begin numbt := 0; for i := 0 to ComponentCount -1 do begin if Components[i] is TButton then numbt := numbt + 1; // numero de buttons encontrados no form end; end; abraço

use Registry; //Funcao para ler um valor Dword: function ReadDWORD(vKey, vName: String): DWORD; var iType: DWORD; iSize: DWORD; iResult: Array [0..3] of Byte; hkResult: HKEY; begin Result:=0; iType:=REG_DWORD; iSize:=4; if RegOpenKeyEx(HKEY_LOCAL_MACHINE,LPTSTR(vKey), 0, KEY_READ, hkResult)<>ERROR_SUCCESS then Exit; if RegQueryValueEx(hkResult,LPTSTR(vName),Nil,@iType,@iResult,@iSize)=ERROR_SUCCESS then begin Result:=iResult[0]+(iResult[1] SHL 8)+(iResult[2] SHL 16)+(iResult[3] SHL 24); end; end; //Funcao para escrever um valor DWord: function WriteDWORD(vKey, vName: String; iValue: DWORD): Boolean; var iType: DWORD; iSize: DWORD; hkResult: HKEY; ibValue: Array [0..3] of Byte; begin Result:=False; if RegOpenKeyEx(HKEY_LOCAL_MACHINE,LPTSTR(vKey), 0, KEY_WRITE, hkResult)<>ERROR_SUCCESS then Exit; iType:=REG_DWORD; iSize:=4; ibValue[0]:=(iValue AND $000000FF); ibValue[1]:=(iValue AND $0000FF00) SHR 8; ibValue[2]:=(iValue AND $00FF0000) SHR 16; ibValue[3]:=(iValue AND $FF000000) SHR 24; if RegSetValueEx(hkResult,LPTSTR(vName),0,iType,@ibValue[0],iSize)=ERROR_SUCCESS then Result:=True; end; abraço

Voce quer realmente isso ? Alem de duplicar o código, deixará o sistema mais lento em rede. Existem programas chamados Keyloggers que fazem isto, ficam rodando em segundo plano registrando tudo o que é feito na máquina ... tipo auditoria do micro Mas caso esteja mesmo a fim de fazer, veja este exemplo http://imasters.uol.com.br/artigo/2718/del...rquivos_textos/ abraço

Então use esta rotina var i : Integer; begin for i := 0 to ComponentCount -1 do begin if Components[i] is TButton then showmessage('Já existe um button no Form'); end; end; abraço

Desta maneira é usada para Interbase ... veja que não existe diferença, a não ser no componente usado Com o IBDatabase1 e o IBTransaction1 funciona perfeitamente DataModule1.CDS_Horarios.Post; DataModule1.CDS_Horarios.ApplyUpdates(-1); MessageDlg('Alterações efetuadas com sucesso! ', mtInformation, [mbOK], 0); //ATUALIZAR OS DADOS PARA A REDE IBTransaction1.Commit; IBTransaction1.StartTransaction; abraço

Veja este material function CreateForms( FormClass: TFormClass; FormName: TCustomForm; ModalForm : Boolean ) : Boolean; begin with FormName do try FormName := FormClass.Create(Application); If ModalForm Then ShowModal else Show; CreateForms := True; except messagedlg( 'Ocorreu um erro enquanto o sistema criava a janela ' + FormName.ClassName + '!!', MtError, [MbOk], 0 ); CreateForms := False; end; end; http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=584 http://www.devmedia.com.br/articles/viewcomp.asp?comp=2558 http://www.linhadecodigo.com.br/Dica.aspx?id=376 http://delphizinho.blogspot.com/2009/02/cr...amicamente.html OBS: Em um deles vai achar algo interessante para voce usar abraço

Veja neste endereços http://social.msdn.microsoft.com/Forums/pt...a4-a7edbd69e225 http://social.msdn.microsoft.com/Forums/pt...77-3f8ff5faa20d abraço

Isso não acontece com o XP SP2 ... então verifique as configurações do windows Em INICIAR > Executar > digite msconfig e procure pelo bloqueio ( deve estar automatico ) abraço

Se o hd não estiver com (Bad Clusters) trilhas ruins então é o proprio CD de instalação ou o CDROM que não esta lendo corretamente os arquivos necessarios para iniciar o windows abraço

O SYSDBA é usuário padrão e não é possivel retirar as permissões dele, entretanto voce pode excluir o SYSDBA se quiser mas não é aconselhavel abraço

Veja este endereço http://www.macoratti.net/vb_fireb.htm abraço

O erro esta nesta parte da select ... procure colocar as sentenças uma por uma e achará o erro abraço

Use o Database Desktop do Delphi ... se não existirem erros na tabela, abrirá normalmente Pelo tamanho talvez demore alguns segundos para abrir abraço

Sem problema... É só isso que devo fazer ou fiz errado em não criar backup/restore? criar um backup é sempre bom .... mas nesse caso não necessario abraço

SQL Parse Error: Parameter name expected Nome de parametro esperado. Se voce está passando valores por parametro então na sql deve ter os parametros definidos Pode ser lógica errada, virus, muitos processos abertos, etc... fica dificil dizer o porque. abraço

Complete o código para o seu uso Se as datas não cairem no sabado.... procedure TForm1.DateTimePicker1Change(Sender: TObject); begin if DayOfWeek(DateTimePicker1.Date <> 7) then begin showmessage( 'Data Inválida'); // comandos end; end; abraço

Voce vai achar o componente e exemplos no primeiro endereço http://www.tec-it.com/en/download/tbarcode...s/Download.aspx http://www.brothersoft.com/tbarcode-for-delphi-9346.html http://www.softpedia.com/progDownload/TBar...load-82123.html http://superdownloads.uol.com.br/download/...barcode-delphi/ abraço

Veja se voce definiu o ListSource, ListField e KeyField .. corretamente, não tem como mostrar apenas um registro, a não ser que em sua tabela tenha apenas um registro abraço

A versão gratuita do turbo delphi 2006 têm algumas limitações, sendo que a principal delas é a impossibilidade de instalar componentes adicionais na IDE. Entretanto acho que voce pode usar o Fast-Report http://ns.fast-report.com/pbc_download/ abraço

usando Progress SQL89 voce pode usar 'SELECT * FROM tabela' sem problemas No entanto, com SQL92, você deve especificar um nome de esquema. Por exemplo, 'SELECT * FROM esquema.tabela'. caso contrário receberá o aviso: ][OPEN EDGE]Table/View/Synonym not fond (7519) Se você não especificar um nome de esquema com SQL92, o SQL irá utilizar o seu id do login como o nome do esquema. Por exemplo, se o usuário 'test01' conecta e executa 'SELECT * FROM tabela "o SQL vai realmente enviar' SELECT * FROM test01.table '. Com SQL89 você não tem esse problema B / C não há um conceito de um esquema no SQL89. Com o SQL92 voce pode usar PUB como esquema para selecionar seus dados. Por exemplo 'SELECT * FROM PUB.table'. Outro exemplo: select * from PUB.cm_mstr or create a synonym for the table, like this: create public synonym cm_mstr for PUB.cm_mstr abraço

faça o teste e depois poste o resultado para o pessoal abraço

erro "incorrect token followed by ":"" símbolo incorreto seguido por : Esta parecendo que o erro está em uma de suas SQLs ( campo usado para receber um parametro ) abraço

O tempo que levou para mostrar os registros no DBGrid quando voce deu active = true, é o mesmo tempo que levará para mostrar os registros quando o programa estiver em execução .... não tem diferença não precisa dar close e depois open ... somente active = false e active = true abraço

O Progress 10.1.C utiliza DataServer for Oracle and Microsoft SQL Server Então voce consegue conectar o banco de dados através do ADO abraço