Marcos Augusto

Olá pessoal sou novo aqui, pois nunca me aprofundei diretamente no firebird. Estou com o seguinte problema que não encontrei na net como resolver: tenho uma tabela com os seguintes campos. Código: inteiro Nome: varchar(100) Idade: date Tabela simples de exemplo para explicar meu problema. O problema esta em que a idade não é obrigatória e às vezes se eu for editar a tabela e apagar a idade ela não apaga deixando a mesma idade. Eu estou usando o Delphi 2010 e o componente IBX para conectar ao banco, eu preciso saber uma forma de criar um Procedimento ou um Triggers dentro do banco, para que quando acontecer esse erro, pelo próprio delphi eu mudaria a data e colocaria (1/1/1000). A Trigger ou Procedure seria usada para examinar no ato da alteração que a data esta (1/1/1000) e automaticamente colocar data como NULL. Isso resolveria meu problema. Se tver como fazer isso. Obrigado a todos.

Jhonas obrigado pela força, vou dar uma olhada nesses tutoriais que você me passou, pode ser que eu seteja colocando o carro na frente dos burros por esta começando, então vou tentar começar do inicio. Qualquer coisa eu pesso ajuda de volta, pode ser?? Grato Marcos Augusto Resulvido

E ai Ronaldo Lanhellas. Voce já tentou o compenente JVCL, é de graça e muito bom, da uma olhada e v c é o que você procura. http://jvcl.delphi-jedi.org/

Obrigado por responder Jhonas, mas ainda estou no escuro, porque estou começando agora a tentar criar componentes e ta muito complicado, precisava de um exemplo bem simples por exemplo, quando eu coloca-se o objeno no forme ele peenche-se um combo tipo o que voce me mostrou mas não d cor e sim uma lista de strings, já tentei criar um de TStrins, TStringLis, TList mas nenhum me mostrou um obj no Object Inspetor parecido com um combobox onde eu so posso selecionar e não adicionar EX: Eu poderia usar esta propriedade para pegar o IP da minha maquina e fazer uma listagem de IP para quando eu for usar somente posso selecionar aqueles IP. Se voce n ao entender eu posso tentar ser mais claro. Grato Marcos Augusto

E ai pessoal do forum Estou começando a criar componentes no delphi e estou com as seguinte duvidas 1º como faço para criar uma lista no Object Inspetor contendo uma lista de strings tipo um combobox mas que carrega-se os item assim que eu coloca-se no form tenho um exemplo mas ele já esta definido com as strings eu não queria que fosse deste jeito. Ex: unit FTesteComponentes; interface uses SysUtils, Classes; type TMyLista = (Item1,Item2,Item3,Item4); TTesteComponentes = class(TComponent) private FMyLista : TMyLista; public published property MyLista : TMyLista read FMyLista write FMyLista; end; procedure Register; implementation uses inifiles{$Ifdef win32},registry{$endif}; procedure Register; begin RegisterComponents('myComponentes', [TTesteComponentes]); end; end. 2º como faço para criar um botão no Object Inspetor com aqueles 3 pontinhos tipo a da fonte do form Quem puder me ajudar pode ser um exemplo bem simples tipo um messagebox quando clica Grato Marcos Augusto

Obrigado Jhonas por ter me ajudado Resolvido

ola pessoal estou aqui pra saber c um erro q acontece comigo aconteceu com alguém tenho o delphi 2009 eu coloquei em um form 1 botao e 2 edits e coloquei o seguinte comando no botao procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin i := StrToInt(Edit1.Text); Edit2.Text := IntToStr(i); end; so que se eu colocar a letra xc ele converte a letra em numero "12" que é estranho, pode ser meio esquisido porque onde vou usar o xc mas eu tava fazendo um banco de dados que num campo integer tinha 12 e quando digitei "xc" pra localizar veio isso e não é so o xc xcc = 204 xccc = 3276 e por ai vai c alguém tiver alguma esplicacao para isso gostaria muito de saber ou como contornar esse bug Grato Marcos Augusto

Ola a todos Pessoal estou com um pequeno problema em uma busca em sql com zeos 1ª parte tenho um form com os seguintes objetos : um edit (edLocalizar), um combobox (edSituacao) e um dbgrid no combobox já ta configurado com os seguintes dados (ativo e inativo) 2ª tenho uma tabela em mysql (UNIDADE_FORNECIMENTO) com 4 campos (codigo, descricao, simbolo, situacao) 3ª preciso fazer uma consulta em sql q busque algum dado na tabela mas tem que ser nos tres campos ao mesmo tempo (codigo, descricao, simbolo) e no combobox quando o usuario selecionar algum item (ex: ativo), retornar na busca o que foi digitado no edit e na selecao do combobox ex: kl ativo - retornar somente o kl ativo eu fiz assim DM.ZQUnidade.Active := false; DM.ZQUnidade.SQL.Clear; DM.ZQUnidade.SQL.Add('SELECT * FROM UNIDADE_FORNECIMENTO'); DM.ZQUnidade.SQL.Add('WHERE CODIGO LIKE "%' + edLocalizar.Text + '%"'); DM.ZQUnidade.SQL.Add('OR DESCRICAO LIKE "%' + edLocalizar.Text + '%"'); DM.ZQUnidade.SQL.Add('OR SIMBOLO LIKE "%' + edLocalizar.Text + '%"'); DM.ZQUnidade.SQL.Add('AND SITUACAO = "' + edSituacao.Text + '"'); DM.ZQUnidade.Active := true; mas não esta retornando do jeito que eu queria esta vindo tudo misturado como c não tivesse ativado o combo box grato

Jhonas de novo obrigado por sua atencao mas isso que você me indicou fica meio dificil, já imaginou deduzir o que o usuario vai escrever se é letras com acento ou sem acento que fica impossivel acho eu, já imaginou o usuario escrever jose e eu ter que fazer um filtro pra encontra josé tambem, mas hoje pequisando na net encontrei a solucao pelo menos para mim funcionou e gostaria q você desse uma olha para ver c dar pra passa pro outros do forum IBQ.SQL.Add('select * from TB_NOME'); IBQ.SQL.Add('where Upper(COL_CIDADE collate win_ptbr) like "%' + edLocalizar.Text + '%"'); no banco de dados você tem que colocar o charset WIN1252 e o collate win_ptbr o segredo é esse collate ai, eu achei nesta pagina http://razar.wordpress.com/2007/06/22/quer...ao-no-firebird/ e agradeço mais uma vez por sua atencao, agora so mais uma duvida como eu faço pra fechar esse tópico pois já encontrei a resposta Obrigado

Ola de novo pessoal consegui resolver aquele meu problema do firebird embarcado, fico grato a ajuda d vocês e agora tenho outro problema já procurei em todo forum mas não achei nada que me tirace essa duvida então aki vai eu criei um banco d dados FB ta funcionando direitim acrecentei alguns dados e ta certo, os dados q acrecentei contem acento pra incluir tudo bem mas para pesquisar :blink:. então eu gostaria d saber c tem algum jeito d fazer uma pesquisa em uma tabela do banco que me retornace os campos com acento ou sem acento exemplo: c eu madar procurar joao viesse o joao e o joão, pelo menos no MySQL funciona mas como não da para usar o mysql embarcado então fico ruim c alguém puder me ajudar fico grato

Obrigado por responder Jhonas usando o componente IBDataBase agora parou de apresentar erro mas proceguindo com componete InteBase eu coloquei 1 IBTransacrtion 1 IBQuery e um DataSource com o seguinte codigo IBDataBase.Connected := false; IBDataBase.DatabaseName := 'Dados\BANCO_DADOS_AGENDA.GDB'; IBDataBase.Params.Clear; IBDataBase.Params.Add('user_name=SYSDBA'); IBDataBase.Params.Add('password=masterkey'); IBDataBase.Params.Add('lc_ctype=WIN1252'); IBDataBase.Connected := true; IBQuery1.Active := false; IBQuery1.SQL.Clear; IBQuery1.SQL.Add('select * from COMPROMISSO_CMP'); IBQuery1.Active := true; e da o seguinte erro arithimetc exception, numeric overflow, or string truncation Cannot transliterate character between character sets. Tentei tambem com o Zeos So coloquei o ZConnection e adicionei o seguinte codigo e já ta dando erro ZConnection .Connected := false; ZConnection .Database := 'Dados\BANCO_DADOS_AGENDA.GDB'; ZConnection .User := 'sysdba'; ZConnection .Password := 'masterkey'; ZConnection .Protocol := 'firebird-1.5'; ZConnection .Connected := true; da o seguinte erro SQL Error: unavaliable dataset. Error Code: -904. Unsuccessful execution caused by an unavaliable resource. C você não entender eu tento explicar melhor eu precisaria d preferencia trabalhar com o zeus porque trabalhcom ele a muito tempo e acho ele mais facil. brigado

Ola pessoal estou precisando de uma ajudinha estou tentando fazer um banco de dados criado com FB ficar embarcado usando delphi 2009 mas não estou conseguindo da erro, já segui varios tutoriais q explicam a mesma coisa, e não funciona precisava d um exemplo q funcione, alguém tem como me mandar um exemplo d fonte q funcione, pode ser um exemplo bem simples um Form com um IBDatabase ou ZConnection e um botao q conecta o banco so isso mas so isso mesmo pra mim comecar porque já não to mais achando solucao, fiquei mais brabo ainda quando eu baixei um programa de agenda (sem fonte) que funcionava perfeitamente com um banco .gdb embarcado. maugustop2@yahoo.com Quem puder me ajudar ficarei grato

Ola pessoal andei fuçando e resolvi o problema, é so colocar o pc onde esta conectado o vivo zap para compartilhar a conexao co a internet Muito Obrigado

Ola Mestre Sam Muito obrigado pela dica, agora vou Experimentar o java pra ver c me adapto a ele. Obrigado mesmo.

Ola pessoal estou aki porque preciso de uma orientação. Sou programador em Delphi (pelo menos estava tentando), mas o Delphi me deixa a desejar em algumas coisas como por exemplo migrar de um sistema para outro. Gostaria de saber o que eu posso fazer com o Java? Se posso fazer um programa do estilo o delphi para Windows e Linux (tipo uma calculadora) que não precise de um navegador(Browser) . Com Quais banco de dados posso integrar. C tem a mesma função que no delphi de inserir objetos no form tipo um Edit. E quais os programas que tenho que baixar para começar a programar. Fico grato c alguém me responder.

E ai pessoal. Estou aki para tentar resolver um problema meu mas que poderia ajudar muita gente que quer aprender a mecher com biometria. peguei uns fontes na internet que mostram como trabalhar com isso e estou dissecando alguns trechos pra tentar entender, estou comecando agora e estou na parte de conversao de imagem, mas estou tendo um problema, quando mando executar ele não prossegue, da erro e não compila, acho que é um problema de DLL, alguém tem alguma ideia de como faço para adicionar a DLL, sendo que ela já c encontra na pasta do fonte. Segue abaixo o fonte do botao que abre e converte a imagem. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons, Util, NLExtractor, NTemplate, NImage, NTypes;// todos estes são arquivos ".pas" e o erro esta dando no NImage porque acho que esta puchando a DLL, c Kizer eu mando o fonte deste e dos outros que adicionei tambem type TForm1 = class(TForm) lblVersion: TLabel; btnOpen: TBitBtn; btnSave: TBitBtn; pnlImg: TPanel; imgPicture: TImage; btnExtract: TButton; OpenDialog: TOpenDialog; SaveDialog: TSaveDialog; procedure btnOpenClick(Sender: TObject); private extractor: TNLExtractor; imageGrayscale: Pointer; compTemplate: TNLTemplate; { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.btnOpenClick(Sender: TObject); var formatIndex : Integer; imageFormat, image : Pointer; begin // Free previous data imgPicture.Picture := nil; NImageFree(imageGrayscale); // o erro esta aki, quando eu compilo ele para // if (compTemplate <> nil) then // FreeAndNil(compTemplate); OpenDialog.FileName := ''; btnExtract.Enabled := False; btnSave.Enabled := False; if (OpenDialog.Execute = true) then begin formatIndex := OpenDialog.FilterIndex - 1; // if (formatIndex = 0) or (formatIndex = NImageGetFormatCount) then // imageFormat := nil // else // imageFormat := NImageGetFormat(formatIndex); try // Create image from file // image := NImageCreateFromFile(OpenDialog.FileName, imageFormat); // Convert to HBitmap and display // imgPicture.Picture.Bitmap.Handle := BmpSaveImageToHBitmap(image); // Convert it to grayscale // imageGrayscale := NImageCreateFromImage(npfGrayscale, 0, image); // NImageFree(image); btnExtract.Enabled := True; except on E:Exception do // MessageDialog('Error: ' + E.Message); end; end; end; end. C alguém quiser o fonte, é so me mandar o email ou me ensinar como mando um arquivo zipado pelo forum. Grato Marcos Augusto.

Ola pessoal preciso de uma ajudinha Tenho um computador que esta conectado com um modem da vivo pela porta USB e com um roouter da D-Link(DI-524) e tenho tambem um notebook com conexao wireless, como faco para distribuir internet entre os dois a rede esta funcionando entre eles obrigado

Micheus Estou fazendo deste assim (exemplo simples so pra ver c vai funcionar) crio um package e depois salvo depois eu crio um componente "new vcl component" do menu Component e salvo também mas quando mando compilar da o seguinte erro "Cannot run project unless a host application is defined. Use the Run|Parameters... dialog box." ai eu clico em detales e aparece isso aki embaixo [208D416E]{dbkdebugide100.bpl} Debug.TDebugger.Run (Line 11079, "Debug.pas" + 58) + $11 [208CF162]{dbkdebugide100.bpl} Debug.TDebugger.Run (Line 8973, "Debug.pas" + 0) + $2 [20A53D8D]{coreide100.bpl} DebuggerMgr.TDebuggerMgr.Run (Line 1410, "DebuggerMgr.pas" + 4) + $F [004160E3]{bds.exe } AppMain.TAppBuilder.RunRun (Line 2981, "ui\AppMain.pas" + 0) + $7 [20040113]{rtl100.bpl } Classes.TBasicAction.Execute (Line 11081, "common\Classes.pas" + 3) + $7 [2014FF7D]{vcl100.bpl } ActnList.TContainedAction.Execute (Line 388, "ActnList.pas" + 1) + $2C [20150CE0]{vcl100.bpl } ActnList.TCustomAction.Execute (Line 1000, "ActnList.pas" + 7) + $8 [2003FFDF]{rtl100.bpl } Classes.TBasicActionLink.Execute (Line 11010, "common\Classes.pas" + 2) + $7 [2013B6F9]{vcl100.bpl } Controls.TControl.Click (Line 5227, "Controls.pas" + 7) + $7 [2019A7CC]{vcl100.bpl } ComCtrls.TToolButton.Click (Line 16993, "ComCtrls.pas" + 0) + $0 [2013BB8B]{vcl100.bpl } Controls.TControl.WMLButtonUp (Line 5365, "Controls.pas" + 6) + $3E [2013B20B]{vcl100.bpl } Controls.TControl.WndProc (Line 5146, "Controls.pas" + 83) + $6 [2013AE98]{vcl100.bpl } Controls.TControl.Perform (Line 5021, "Controls.pas" + 5) + $C [20162D25]{vcl100.bpl } Forms.TApplication.DispatchAction (Line 9019, "Forms.pas" + 9) + $A [2016078C]{vcl100.bpl } Forms.TApplication.WndProc (Line 7766, "Forms.pas" + 80) + $E [2013AE98]{vcl100.bpl } Controls.TControl.Perform (Line 5021, "Controls.pas" + 5) + $C [2013EBAA]{vcl100.bpl } Controls.GetControlAtPos (Line 7095, "Controls.pas" + 4) + $73 [2013EC72]{vcl100.bpl } Controls.TWinControl.ControlAtPos (Line 7118, "Controls.pas" + 13) + $E [2013AE98]{vcl100.bpl } Controls.TControl.Perform (Line 5021, "Controls.pas" + 5) + $C [2013EE7D]{vcl100.bpl } Controls.TWinControl.IsControlMouseMsg (Line 7182, "Controls.pas" + 15) + $1F [2013F244]{vcl100.bpl } Controls.TWinControl.WndProc (Line 7269, "Controls.pas" + 76) + $6 [2019C80F]{vcl100.bpl } ComCtrls.TToolBar.UpdateButtonState (Line 18138, "ComCtrls.pas" + 5) + $1C [2019C852]{vcl100.bpl } ComCtrls.TToolBar.UpdateButtonStates (Line 18148, "ComCtrls.pas" + 3) + $4 [2019F185]{vcl100.bpl } ComCtrls.TToolBar.WndProc (Line 19578, "ComCtrls.pas" + 80) + $6 [2013EAB4]{vcl100.bpl } Controls.TWinControl.MainWndProc (Line 7073, "Controls.pas" + 3) + $6 [20040DD4]{rtl100.bpl } Classes.StdWndProc (Line 11583, "common\Classes.pas" + 8) + $0 [2004A426]{rtl100.bpl } Contnrs.TComponentList.GetItems (Line 380, "common\Contnrs.pas" + 1) + $4 [201611EC]{vcl100.bpl } Forms.TApplication.ProcessMessage (Line 8102, "Forms.pas" + 23) + $1 [20161226]{vcl100.bpl } Forms.TApplication.HandleMessage (Line 8121, "Forms.pas" + 1) + $4 [20161537]{vcl100.bpl } Forms.TApplication.Run (Line 8219, "Forms.pas" + 20) + $3 [0042298E]{bds.exe } bds.bds (Line 196, "" + 7) + $7 tem alguma ideia do q seja

E ai pessoal alguém sabe como faço para criar componentes no delphi 2007, e depois fazer com que ele funcione, já fiz de tudo aki, consegui fazer mas não consegui instalas, dizem que tem que compilar mas quando faco isso da erro alguém sabe d alguma dica ou apostila, há, mas tem que ser para o delphi 2007.

Jhonas eu consegui, coloquei aquele codigo que você me mandou, mas no keydown do dbctrlgrid procedure TForm.DBCtrlGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 9 then // tecla TAB begin if not (ActiveControl is TDBCtrlGrid) then begin Key := 0; Perform(WM_NEXTDLGCTL, 0, 0); end; end; end; so isso so e funcionou obrigado pela atencao

Jhonas este é o codigo unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, StdCtrls, Mask, DBCtrls, DBCGrids, IBCustomDataSet, IBUpdateSQL, IBDatabase, IBQuery; type TForm1 = class(TForm) IBQuery1: TIBQuery; IBDatabase1: TIBDatabase; IBTransaction1: TIBTransaction; IBUpdateSQL1: TIBUpdateSQL; DBCtrlGrid1: TDBCtrlGrid; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DataSource1: TDataSource; private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} end. fiz assim pra ficar mais facil e esses são os objetos que coloquei no form 1 IBQuery1 1 IBDatabase1 todos configurados(C:\Arquivos de programas\Firebird\Firebird_2_0\examples\empbuild\EMPLOYEE.FDB) e funcionando 1 IBTransaction1 1 IBUpdateSQL1 1 DataSource1 1 DBCtrlGrid1 linkado no DataSource1 1 DBEdit1 dentro do DBCtrlGrid1 1 DBEdit2 dentro do DBCtrlGrid1 ai é so eu ir para o ultima linha do DBCtrlGrid1(DBEdit2) e press Tab que ele abre outro registro e pula pra uma nova linha, eu gostaria que isso não acontecesse simplesmente não criasse outro registro, e deixa-se editar os que já existem falo

jhonas muito obrigado pela resposta, mas não é um DBGrid e sim um DBCtrlGrid, ele tem um DBEdit e 2 DBComboBox. quando eu coloco o cursor na ultima linha (DBComboBox) e teclo Tab, ele abre um novo registro meu projeto é o seguinte, tenho uma tabela com varios campos que preciso ser atualizar todos ao mesmo tempo por um usuario, e so posso disponibilizar os campos para atualizar senao vira bagunca, então eu mando somente os campos certos para outra tabela e uso um DBCtrlGrid para exibilos e editalos. não sei c você entendeu falo

assim que esta seu diretorio C:delphi_cursoinicio ou assim C:\delphi_cursoinicio voce esta criando o diretorio com o delphi ou criou no explorer tem pouca informacao pra gente te ajudar posta o seu codigo para a gente t ajudar falo

Ola Pessoal estou com um pequeno problema e não sei como solucionar Eu fiz uma aplicacao que consiste em um form um DBCtrlGrid com alguns dbedits dentro e um dbnavigator (já esta tudo lincado com o banco e funcionado com a ferramenta do ibx) então problema é o seguinte, quando eu mando editar o ultimo campo(row) do DBCtrlGrid funciona bem mas c eu teclar o tab ele abre um campo novo como faço para não acontecer isso, porque na minha aplicacao não pode aparecer nenhum campo novo somete poderei editar fico grato se alguém souber Marcos Augusto

Muito obrigado Duduh_Capixaba fiz algumas alteracoes que serviram muito bem para mim, e valeu pela dica da caixa alta.