Kikonanet

Olá Cláudio, Use essas funções GetBValue(Edit1.Color); // Azul GetGValue(Edit1.Color); // Verde GetRValue(Edit1.Color); // Vermelho Abs. Kiko

Tenta ler do Form e ir inserido um de cada vez. Ex: você lê o Primeiro e Insere, Lê o Segundo e Insere....e assim por diante.. Abs. Kiko

Bom, veja se este link te ajuda LInk Abs. Kiko

Como você está fazendo para adicionar? O usuário consegue selecionar + de um item ao mesmo tempo? Idéia: Tente fazer o usuário escolher os itens a ser colocado na nota fiscal e você adiciona estes ítens um por um no banco. Abs. Kiko

Olá, Você pode usar o Winzip para compactar o banco e direcionar o arquivo para um local qualquer. WinExec(PChar('c:\arquivos de programas\winzip\winzip32.exe' + ' -min -a -r "'+'c:\Teste.zip' + '" ' + 'c:\SeuPrograma\seubanco.gdb',sw_ShowNormal); Espero que te ajude Abs. Kiko

Olá, Desculpe, mas não consegui entender. Você quer incluir dados em duas tabelas diferente ao mesmo tempo? Posta seu código ai! Abs. Kiko

Olá, Dê uma olhada neste link: Artigo Rave Artigo Rave 2 Abs. Kiko

Baixa o Delphi 2005 Architect Trial Abs. Kiko

Ae, Muita coisa tem no próprio Help do delphi. E além do mais tem exemplos que vem junto com o Delphi. Dê uma olhada neste link Link Abs. Kiko

Olá, Você pode usar o ProgressBar (win32) ou o Gauge (Samples). O gauge já marca a porcentagem. Lógica: Pra cada "passo" do seu programa, você "anda" um passo. ex: qualquer coisa posta ae. Abs. Kiko

Tá ai, Link Abs. Kiko

você quer dizer letras maiúsculas?? se for isso vai na propriedades do DBCombobox e põe a propriedade CharCase para ecUpperCase. CharCase ecLowerCase // Letras Minusculas CharCase ecUpperCase // Letras Maiusculas CharCase ecNormalCase // Letras normal Abs. Kiko

Ae, você já deu uma olhada no componente VCLSkin? VCLSkin Abs. Kiko

se eu não me engano #39 é o código Ascii da aspas simples ' Abs. kiko

Posta ae seu código pra ficar mais fácil! Abs. Kiko

Olá, Dá uma testada nesse comando: e você pode seguir o mesmo exemplo para mostrar o email... Espero ter ajudado. Abs. Kiko

Valeu Progr'amador Abs. Kiko

Você pode colocar no evento onKeyUp do Edit e colocar sua rotina de busca. Mais ou menos assim: procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin with Query do begin close; SQL.Clear; SQL.Add('SELECT * FROM TABELA'); SQL.Add('WHERE Nome ='+ QuotedStr(Edit1.Text + '%')); end; end; Abs. Kiko

Vamos lá por ordem dos erros: 1 - falta ';' var FrmCalc: TFrmCalc; ope : STRING; valor,valor2:Integer; // aqui 2 - você só declarou Edit1 e não Edtval A maioria dos erros são porque você fez sua condição errada. ex: if edtval.Text<>'0'then edtval.Text:=edtval.Text+'4'; if edtval. Text:='0'then // aqui... o erro edtval.Text:='0' Correto: if edtval.text='0' then... 3 - Erro na saída de dados edtval.Text:= inttostr(valor=valor2); Correto: IntToStr(Valor)+'='+IntToStr(Valor2); qualquer coisa posta ai. Abs. Kiko

Acho q é isso q você quer: Coloque no evento do botão por exemplo with ADOQuery do begin Close; SQL.Clear; SQL.Add('SELECT * FROM Pessoas'); SQL.Add('WHERE Matricula=Coordenador'); Open; end; Abs. Kiko

Olá, Quais os comando q você está usando? você verificou se está tudo conectado certinho (propriedades Active, SQL...)? Aparece algum erro?? Abs. Kiko

Qual o comando que você usa para atualizar?? Abs. Kiko

Olá, você pode usar a propriedade: SetFoucus Ex: Edit1.SetFocus Espero ter ajudado Abs. Kiko

Olá, você pode usar a mesma Query que está ligado no DBGrid na busca em outro form e quando você fechar o form o Grid estará com o filtro q você fez. você pode por no evento do botão with Query do begin Close; Sql.Clear; Sql.Add('SELECT * FROM TABELA'); Sql.Add('WHERE COD_FILME ='+QuotedStr(EditCodigo.Text)); Open; end; Close; Abs. Kiko

Thaise, No próprio Interbase você pode gerar o código automático Criando um generator create generator cod_cliente; (execute) Criando um Trigger set term ^; create trigger ai_cod_cliente for minha_tabela active before insert position 0 as begin if (new.codigo is null) then new.codigo = gen_id( cod_cliente, 1 ); end ^ (execute) Abs. kikonanet