Montebugnoli Programação

Muitos de nossos sócios migraram do sistema Operacional Windows XP para o Windows Vista, e recebemos vários telefonemas com dúvidas a respeito da instalação do Firebird, tais como: O Windows Vista é compatível com o Firebird? A resposta é SIM, mas devemos fazer pequenos ajustes para que ele funcione adequadamente. Obs: Estas dicas servirão para o Firebird 1.54 e o 2.0, sendo os mais utilizados pelos nossos associados. Dica 1. Ao rodar o arquivo de instalação do Firebird, instale-o normalmente. Fique atento na seguinte etapa ”Selecione tarefas adicionais”, deixe a opção “Instalar a aplicação no painel de controle” como desmarcada, pois no Windows Vista existe uma incompatibilidade (um bug do Windows em relação ao Firebird) deixando o painel de controle travado, veja abaixo a Figura 01. Caso tenha instalado o Firebird sem desmarcar esta opção basta desinstalá-lo e instalá-lo novamente seguindo as dicas acima. Figura 01. Selecionar tarefas adicionais. Dica 2. Normalme...

Introdução             Neste artigo estarei apresentando uma ferramenta para modelagem de Banco de Dados chamada ‘Toad Data Modeler’, muito útil e o melhor de tudo gratuita. Iremos trabalhar apenas com o necessário para que nossas tabelas sejam criadas. De primeiro momento abordarei a sua instalação e adiante algumas características e funcionalidades seguida de um exemplo prático.(Destaco a existência de uma ótima documentação para maiores informações). Baixando e Instalando o Toad Data Modeler Para baixá-la acesse o seguinte link http://www.casestudio.com/enu/database_design_freeware.aspx e clique sobre “Toad Data Modeler – Download Freeware”. A sua instalação é muito simples. Dê um duplo clique sobre seu executável, aparecerá à seguinte imagem: (figura 01) Figura 01. Instalação do Toad Data Modeler. Clique em next e em seguida leia atentamente seu termo de licença e escolha ‘I Accept the agreement’ para aceitar os termos de li...

            Neste artigo estarei demonstrando como acessar o Firebird junto com seu Driver gratuito específico produzido pela UIB(Unified Interbase).Na realidade com o passar do tempo cada vez mais o Firebird se diferencia do Interbase. E por que não utilizar um próprio driver para o Firebird? Nesta matéria estarei explicando como utilizar este driver e montar um projeto em Delphi 7.             Estaremos disponibilizando a DLL dbexpUIBfire15.dll no final deste artigo para o Download.             Copie a DLL dbexpUIBfire15.dll para a pasta C:\Arquivos de programas\Borland\Delphi7\Bin do Delphi. Após copiar a DLL abra o arquivo dbxdrivers.ini encontrado na pasta "C:\Arquivos de programas\Arquivos comuns\Borland Shared\DBExpress" e iremos realizar algumas alterações neste arquivo. Confira abaixo: Observação Importante: Para realizar...

A codegear vem se preocupando muito com o fato da instalação de componentes de terceiros. Nesta Dica estarei mostrando que é possível instalar a Biblioteca RxLib do Delphi 2006 no Delphi 2007. Vejam como é simples. - Primeiramente abra o site http://sourceforge.net/projects/rxlib , clique em Download Rx Library for Delphi e em seguida baixe o RxLib 2.7.6 for Delphi 6-2006 . - Em seguida abra o Delphi 2007, vá em tools/options. Em Delphi Options , library win32 escolha Library path e adicione a pasta units. - Clique em Open na pasta [seudiretório]/Package/Delphi 2006/Rxlib.bdsgroup. Observe que será recriado todos os arquivos .res . - Logo após acesse Project/Build all Projects, e à esquerda instale os seguintes dcls. dclrx100, dclrxdb100 e dclrxbd100.

Coloque em seu formulário dois botões(um para criar e outro para Destruir os Tedits) e um panel. //Criando os Tedits procedure TForm1.BitBtn1Click(Sender: TObject); var MeuEdit : Array[1..10] of TEdit;       i, j: integer; Begin  J:=40; for i:=1 to 10 do begin  MeuLabel[i] := Tlabel.Create(Self);  MeuLabel[i].Parent := panel1;  MeuLabel[i].Top := 50 + j;  MeuLabel[i].Left := 50;  Meulabel[i].Caption := 'teste '+Inttostr(i);  J:= J+ 20; end;  Os Tedits serão criados dentro do Tpanel. //Destruindo os Tedits procedure TForm1.BitBtn2Click(Sender: TObject); var i: integer; Begin for i := ComponentCount - 1 downto 0 do  begin   if (Components[i] is TEdit)then     begin      (Components[i] as TEdit).Free;     end;  end; end;

Abra o Delphi coloque em seu formulário um Button, um Edit e um componente  da palheta Indy Clients chamado Idhttp. No evento Onclick do Button insira o seguinte código: procedure TForm1.Button1Click(Sender: TObject); var   S: String; begin  try   // Solicita ao site.   S := IdHttp1.Get('http://checkip.dyndns.org/');   S := Copy(S,77,13);   // Mostra o IP em um Edit.   Edit1.Text := S;  Except   ShowMessage('A internet está fora do ar!');   end; end; end;

Nesta dica iremos montar um StringGrid com rotinas para alinhar os valores à Direita, à Esquerda e Centralizado. private    { Private declarations }   TempString: array[0..80] of char;   Labor: double;   Materiais: double;   Shipping: double;   COGS: double;   Price: double;   Sales: double;   Revenue: double;   Income: double;   GrowthRate: double;   procedure InitGrid;   procedure Calculate; public    { Public declarations } end; var   Form1: TForm1; implementation uses printers; {$R *.DFM} type   THack = class(TStringGrid)   end; const   Totals: set of 0..10 = [3, 8, 10];   FmtCentered = DT_SingleLine or DT_VCenter or DT_NoClip or DT_Center;   FmtLeft = DT_SingleLine or DT_VCenter or DT_NoClip or DT_Left;   FmtRight = DT_SingleLine or DT_VC...