Corposemalma

onde você pegou ele?

hum... não seria mais facil usar um compactador de terceiros atraves de linhas de código?

A tabela não esta aberta... verifique as opcoes Active, e Connect (uma das duas....) sete para TRUE

Se voce não tem a nota fiscal de compra não tem validade... E se for OEM e não estiver no computador em que foi comprado tambem não tem....

Ainda não entendi porque voce esta usando o evento DBCheckBox1Click.... Voce não quer selecionar e editar os nomes depois? não seria mais facil ter um botao? O evento click vai disparar todo momento que você clicar no componente.....

na verdade acho que deve estar faltando os componentes para acesso à tabela...

voce tem que definir a tabela para de fornecedores.... não sei o nome dela por não conhecer o curso... TabelaTemporária.table := nomedatabela da uma verificada se voce não esqueceu isso

Veja se esse codigo funciona: Depois do Open: IBquery1.First; while not Ibquery1.eof = true do begin ComboBox1.Items.Add(IBQuery1.FieldByName('Descricao_Da_Natureza').AsString); IBQuery1.Next; end;

Ve se consegue pegar a lógica: begin tabela.first //Pula pro primeiro registro while not tabela.eof do // enquanto não for o fim da tabela begin if editusuario.text = tabela.fieldbyname('usuario') then begin if editsenha.text = tabela.fieldbyname('senha') then begin chama o sistema aqui FormUsuario.close; abort; // pra não aparecer a chamada de erro no final end else begin showmessage('Senha inválida!') abort; // pra não aparecer a chamada de erro no final end; end; tabela.next; end; showmessage('Usuario não existe!') //se chegar no fim e não existir o usuario end; Resumindo: ele pula para o primeiro item da tabela Login/senha checa se o usuario é igual ao digitado, se não for, pula para o próximo item até chegar no fim da tabela se for, checa a senha se a senha for igual passa para o sistema se for diferente dá uma mensagem avisando

Que versao do Delphi voce tem?

Como assim? Conectar em um banco de dados?

Tabela.First //primeiro Tabela.Prior //anterior Tabela.Next //proximo Tabela.Last //ultimo Tabela.Edit //editar Tabela.append /novo registro Tabela.post //salvar Tabela.cancel //cancelar Acho eu que da pra usar esses... Se não voce vai ter que procurar e aprender um pouko de SQL

Só substituir o ParamByName por Params....

Assim: provavelmente o arquivo que guarda as info dos arquivos se corrompeu com o desligamento... Por algum motivo ele foi restaurado ao antigo...

Bem.. se no botao funcionou, aquele erro provavelmente ta acontecendo porque algum componente que você ta usando ainda não está criado.... tu ta pegando um propriedade de algo que não existe ainda

Cria um botao no form, e coloca o código lá pra ver....

Para fazer backup dos drivers já existentes na maquina procure por WinDriver_Expert Agora baixar da internet sozinho nunca vi!

FormPrincipal.Caption := tabela.fieldByname('CampoNome').AsString Você pode setar dessa maneira, só precisa ter um campo que contenha somente o nome da Empresa

A minha sempre travou antes de queimar... Eu ia aumentando aos pokos, e checando a temperatura do dissipador...

não aparece nada, esse liga/desliga é questao de segundos

ou se quiser manter o valor já existente no Edit1: Valor do 1 na frente: Edit1.text := Edit1.text + Edit2.text; Valor do 2 na frente: Edit1.text := Edit2.text + Edit1.text; Voce pode ainda adicionar espaços entre eles: Edit1.text := Edit1.text + ' ' + Edit2.text;

Bem... Nenhuma delas vai ter uma performance excelente então tente pegar as com a melhor compatibilidade: VGA AGP 64 MB ATI RADEON 9200SE TV R$ 168,00 37,5 Tenta descobrir se a memoria dela é 128Bits, se for pode comprar, senao melhor pensar em guardar um pouco mais de grana ou VGA AGP 64 MB GF4 MX440 SEDDR PINE TV R$ 179,20 40 Mesma coisa, de preferencia ao 128Bits

Se voce usar o botao power, vai perder o RESET.... pra resetar dai somente com CTRL+ALT+DEL que nem em todo lugar vai funcionar... Quandu tu precisar reiniciar, vai ter que desligar e ligar novamente

IdMessage.Body.Text := editMG.Text + editSP.Text ; Se quiser um espaço entre os dois: IdMessage.Body.Text := editMG.Text + ' ' + editSP.Text; ou nova linha: IdMessage.Body.Text := editMG.Text + #13 + editSP.Text ;