Jhonas

Use uma variavel de controle no formulario principal ... caso o formulario principal tenha sido preenchido, voce atribui o valor 1 a variavel ... caso contrario voce atribui 0. procedure TForm1.Button1Click(Sender: TObject); begin if cadastro = 1 then form2.showmodal else MessageDlg('Cadastro não Preenchido, mtInformation, [mbOk], 0); end; end; abraço

Valeu amigo .. os colegas agradecem abraço

Veja este post http://www.forumweb.com.br/foruns/index.ph...st&p=237500 abraço

Tente dessa maneira: var Form1: TForm1; cont : integer = 1; implementation {$R *.DFM} procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin IF (KEY = #37) OR (KEY = #39) THEN EXIT; IF (KEY = #127) or (key = #8) THEN CONT:=CONT - 1 ELSE IF (KEY = #32) THEN CONT:=0; IF CONT = 9 THEN begin { Pressiona Barra de espaço } keybd_event(VK_SPACE, 0, 0, 0); { Libera (solta) Barra de Espaço} keybd_event(VK_SPACE, $45, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); CONT:=-1; //SHOWMESSAGE('Limite de 9 caracteres sem espaço.' + #13 + //'Para continuar dê um espaço ou diminua o número de caracteres'); end; end; procedure TForm1.Edit1Change(Sender: TObject); begin cont := cont + 1; end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Label1.Caption := Format('O código da tecla pressionada é: %d', [Key]); end; OBS: Voce vai digitando .. ao atingir o numero de caracteres (9) a barra de espaço será clicada automaticamente. abraço

Se voce estiver gravando inclusive a mascara esse campo deveria ter 19 caracteres e não 16 ... ou voce pode transformar o campo para numerico e usar a mascara para mostrá-lo da maneira desejada. procure por algum componente Query ou IBQuery e veja a propriedade SQL abraço

Tente assim: procedure TfrmCaixa.grdItemDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin If odd(qrItemVenda.RecNo) then begin grdItem.Canvas.Font.Color:= clBlack; grdItem.Canvas.Brush.Color:= cl3DLight; end else begin grdItem.Canvas.Font.Color:= clBlack; grdItem.Canvas.Brush.Color:= clWhite; end; if (gdSelected in state) then grdItem.Canvas.Font.Color:= clred else grdItem.Canvas.Font.Color:= clBlack; grdItem.Canvas.FillRect(Rect); grdItem.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; abraço

Veja estes posts http://scriptbrasil.com.br/forum/index.php...st&p=460959 http://scriptbrasil.com.br/forum/index.php...rimir+etiquetas http://scriptbrasil.com.br/forum/index.php...rimir+etiquetas abraço

Uma das maneiras seria: Quando a SP retorna algum valor, voce deve executá-la através de um componente Query Quanto a SP não retorna valor, simplesmente passe os parâmetros necessários e execute-a. ou simplesmente execute um select na SP. exemplo: select * from SP_NOME (cod_cliente) coloque esta instrução no componente e abra-o como se fosse uma select numa tabela qualquer. no FB as SPs com resultado (SPs selecionáveis) são entendidas como uma tabela. mdodataset.close; mdodataset.commandtext := 'select * from SP_NOME (:cliente)'; mdodataset.parambyname('cliente').asinteger := cod_cliente; mdodataset.open; edit1.text := mdodataset.fields[0].asstring; Neste caso use 'mdoQuery' e depois que tiver selecionado o item, efetue a transação. outras informações: http://74.125.45.104/search?q=cache:jJlstK...;cd=6&gl=br tutorial sobre o MDO: http://www.mdolib.com/doc/pt/mdo-ptbr.html abraço

Da uma pesquisas nestes posts: http://scriptbrasil.com.br/forum/index.php...rimir+etiquetas abraço

Voce praticamente respondeu a sua dúvida OBS: No componente IBTransaction na propriedade Params deixe: read_committed rec_version na propriedae DefaultAction deixe: TACommit na propriedade TraceFlas do componente IBDatabase deixe: [tfQPrepare,tfQExecute,tfConnect,tfTransact,tfService] isto deverá melhorar a performance Dica de Mauro Pichiliani abraço

Seja mais completo nas informações.... tipo de banco de dados, versão do delphi, rede interna ou externa ...etc quanto mais informações voce der, dar uma resposta fica mais facil. abraço

Alguns exemplos: http://scriptbrasil.com.br/forum/index.php...st&p=449622 http://www.activedelphi.com.br/forum/viewt...9d37dc04c5afd92 http://www.ramosdainformatica.com.br/dic_r...s01.php?CDA=415 http://delphitodelphi.blogspot.com/2007/05...para-excel.html http://inforum.insite.com.br/delphi-expert/7287518.html https://www.scriptbrasil.com.br/forum/lofiv...php/t90117.html http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=708 abraço

Faça desta maneira: procedure TForm1.ListBox1Click(Sender: TObject); begin Label1.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex]; end; ou procedure TForm1.ListBox1DblClick(Sender: TObject); begin Label1.Caption := ListBox1.Items.Strings[ListBox1.ItemIndex]; end; abraço

tente usar a mascara dessa forma: 0000000\-0000\/0000-0;1;_ abraço

tem sim, mas não será algo muito fácil de se fazer Artigos: http://www.ramosdainformatica.com.br/art_r...es01.php?CDA=37 http://www.inf.ufsc.br/~prass/artigos/artigo03.html http://forum.scriptfacil.com/php-ajax-via-...index.html?amp; abraço

Apesar de o aplicativo ter sido desenvolvido utilizando-se o Outlook 2003, deverá funcionar com qualquer versão do Outlook a partir do Outlook 97, pois o modelo de Objetos manteve a sua interface de acesso através das versões. abraço

VB.Net Tutorial http://www.java2s.com/Tutorial/VB/0080__St...060__Select.htm http://www.macoratti.net/vbn_stor.htm http://forum.wmonline.com.br/lofiversion/i...hp/t170971.html http://www.arquivodecodigos.net/arquivo/vi...?qual_dica=1353 http://forums.microsoft.com/MSDN-BR/ShowPo...9&SiteID=21 OBS: Sua dúvida é sobre Visual Basic e não delphi ... movendo para área apropriada. abraço

Veja uma das maneiras possiveis: http://www.spectrus.com.br/artigos/Acessan...0-%20emails.pdf abraço

use a pesquisa do forum pela palavra ' data anterior ' ou veja este post http://scriptbrasil.com.br/forum/index.php...l=data+anterior abraço

Se voce está procurando por Pastas não pode colocar barra no final.... exemplo : \\Cyber\D\BMPS Edit1.Text = \\estacao\C\Pasta uses FileCtrl; procedure TForm1.Button1Click(Sender: TObject); begin if not DirectoryExists(Edit1.Text) then ShowMessage('Diretório não existe. Verifique!') else ShowMessage('Diretório encontrado!'); end; abraço

Eder.. a dica que e passei é para usar no eventro OnKeyPress do DBgrid .. se quiser usar no Onexit do DBedit tem que usar desta maneira procedure TForm1.DBEdit1Exit(Sender: TObject); var i : integer; begin DBNavigator1.SetFocus; for i := 1 to 7 do begin keybd_event(VK_LEFT,0,0,0); keybd_event(VK_LEFT,$45, KEYEVENTF_KEYUP, 0); end; for i := 1 to 7 do begin keybd_event(VK_RIGHT,0,0,0); keybd_event(VK_RIGHT,$45, KEYEVENTF_KEYUP, 0); end; end; abraço

Pedi para voce colocar o codigo porque não estou com o zeos na minha maquina e olhando o seu codigo posso descobrir o problema. ok ? abraço

Acessando o banco de dados Oracle a partir do Delphi Em vista de muitos hoje possuírem sistemas rodando com banco de dados Oracle, resolvemos publicar em detalhes todos passos necessários para se conectar a um banco Oracle a partir do Delphi de modo nativo (usando BDE) e através do ODBC. Temos observado também que dúvidas sobre este assunto estão sempre presentes nas listas de discussão sobre Delphi e sobre Oracle. Utilizamos com bons resultados as versões do Delphi 2.0 até a 4.0, BDE versões 4.5 e 5.0, e o Oracle7 Workgroup Server Release 7.3.2.1. Naturalmente tais informações serão de grande ajuda para configuração em outras versões. Passos: 1 - Caso tenha instalado em sua máquina algum cliente do Oracle 16 bits, poderá ter algum tipo de conflito com drives de 32 bits. Portanto, desinstale todos os clientes Oracle e instale somente o cliente Oracle 32 bits. Normalmente isto é feito a partir do CD de instalação do Oracle executando o programa d:win95installsetup.exe 2 - Ao executar o instalador do cliente Oracle para Windows 95, você deverá de inicio informar o idioma (o mesmo que foi informado durante a instalação do próprio banco), tendo o English como padrão. 3 - Entre com o nome da empresa e o diretório onde serão armazenados os arquivos do cliente Oracle. 4 - Será solicitado o tipo da instalação. Escolha a opção "Selective Products Install". 5 - Será apresentada uma lista dos produtos ou componentes disponíveis. Apesar de poder instalar todos, serão apenas necessários para a conexão com o banco Oracle a partir do Delphi os seguintes componentes: Sql *Net Client (para criação do alias no cliente Oracle) Oracle Installer (para instalar/remover componentes) 6 - Selecione os protocolos desejados para comunicação com o banco, ou poderá deixar selecionado a sugestão do instalador e prosseguir. 7 - Após completar 100% da instalação, você visualizará os componentes instalados: Oracle Installer Oracle Named Pipes Adapter (protocolo de acordo com sua rede) Oracle SPX Adapter (protocolo de acordo com sua rede) Oracle TCP/IP Adapter (protocolo de acordo com sua rede) Required Support Files Sql *Net Client 8 - Saia do instalador. Não será necessário reiniciar a máquina por enquanto. 9 - Clique no botão iniciar -> programas -> Oracle for windows 95 -> Sql Net Easy Configuration 10 - Selecione "Add Database Alias", e clique OK 11 - Informe na sequência: Database Alias (nome na sua máquina que representará o acesso ao banco) Escolha o Protocolo (normalmente TCP/IP) TCP/IP Host Name (informe o numero IP do servidor Oracle) Database Instance (nome da instância do banco, consulte o DBA) 12 - Clique em "yes" e saia do Sql Net Easy Configuration 13 - Chame o BDE Administrator, e clique na guia Configuration -> Drivers ->Native e selecione ORACLE. Como sugestão use as seguintes configurações: VERSION 4.0 TYPE SERVER DLL32 SQLORA32.DLL VENDOR INIT ORA73.DLL DRIVER FLAG (DEIXAR VAZIO) TRACE MODE 0 BATCH COUNT 200 BLOB SIZE 32 BLOBS TO CACHE 64 ENABLE BCD FALSE ENABLE INTEGERS FALSE ENABLE SCHEMA CACHE FALSE LANGDRIVER (DEIXAR VAZIO) LIST SYNONYMS NONE MAX ROWS –1 NET PROTOCOL TNS OBJECT MODE TRUE OPEN MODE READ/WRITE ROWSET SIZE 20 SCHEMA CACHE DIR (DEIXAR VAZIO) SCHEMA CACHE SIZE 8 SCHEMA CACHE TIME –1 SERVER NAME (COLOQUE O NOME DA INSTANCIA DO BANCO, DEFAULT: ORCL) SQLPASSTHRU MODE SHARED AUTOCOMMIT SQLQRYMODE SERVER USER NAME (NOME DE USUARIO, OPCIONAL) 14 - Clique no item de menu Object -> Apply 15 - Agora precisamos apenas criar um Alias que será enxergado no Delphi. Para isso, clique na guia Database, clique com o botão direito do mouse sobre o item da lista ´Databases´ e selecione a opção ´New´. Escolha a opção ORACLE. Entre com o nome do Alias, que pode ser qualquer um que não exista. Agora altere do lado esquerdo na guia Definition, no item SERVER NAME, e coloque o nome do Database Alias que você criou no Sql Net Easy Configuration. 16 - Clique no item de menu Object -> Apply 17 - Reinicialize seu computador. 18 - Ok, agora basta abrir o Delphi e utilizar este Alias como qualquer outro! Dica : Delphibr abraço

Eder ... voce pode tentar desta maneira procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (Key = #13) then if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end else if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex < (fieldcount -1 ) then begin selectedindex := selectedindex + 1; end else begin selectedindex := 0; DBNavigator1.SetFocus; for i := 1 to 7 do begin keybd_event(VK_LEFT,0,0,0); keybd_event(VK_LEFT,$45, KEYEVENTF_KEYUP, 0); end; for i := 1 to 7 do begin keybd_event(VK_RIGHT,0,0,0); keybd_event(VK_RIGHT,$45, KEYEVENTF_KEYUP, 0); end; end; if Key = #9 then if not (ActiveControl is TDBGrid) then begin Key := #0; Perform(WM_NEXTDLGCTL, 0, 0); end else if (ActiveControl is TDBGrid) then with TDBGrid(ActiveControl) do if selectedindex <= (fieldcount -1 ) then begin // end else begin selectedindex := 0; DBNavigator1.SetFocus; for i := 1 to 7 do begin keybd_event(VK_LEFT,0,0,0); keybd_event(VK_LEFT,$45, KEYEVENTF_KEYUP, 0); end; for i := 1 to 7 do begin keybd_event(VK_RIGHT,0,0,0); keybd_event(VK_RIGHT,$45, KEYEVENTF_KEYUP, 0); end; end; end; OBS: quando o usuario digitar o ultimo campo dos lançamentos o proximo foco seria o Post do dbnavigator, mas só focar e não gravar, somente marcar. abraço

se for do primeiro endereço é sim ... para o segundo voce deve fazer um cadastro para poder baixar o aquivo abraço