Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Clientes
Loja de Games Joinville
Destaque
Como devemos encarar nossa vida profissional Algumas pessoas me perguntam que tipo de trabalho elas poderiam fazer pra ganhar dinheiro, para estas pessoas sempre mostro este texto: "Não paute sua vida, nem sua carreira, pelo dinheiro. Ame seu ofício com todo o coração. Persiga fazer o melhor. Seja fascinado pelo realizar, que o dinheiro...
Como a realidade aumentada poderá mudar sua vida no... GPS mais desenvolvido, redes sociais revolucionárias e novas maneiras de fazer compras. Faça um passeio pela realidade aumentada e veja como esta tecnologia pode mudar a nossa vida nos próximos anos. Quando assistimos aos filmes de ficção com ambientação no futuro é comum vermos carros voadores,...
Delphi: Redimesionar form child em MDI Esta rotina redimensiona o formulário Child de uma aplicação MDI para preencher todo a área do form pai. procedure TForm1.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); var MainForm: TForm; Rect: TRect; //OurWidth: Integer; //OurHeight: Integer; begin if Showing then begin MainForm :=...
ASP e SQL Server: Pegar o retorno do campo ID da tabela... Bom Pessoal, vamos idealizar Uma Rotina Muito Usada, tipo Uma Vendas de Produtos, existem Onde a Tabela de Vendas da EA tabela de itens das Vendas, EO Grande Problema É Como gravar nd tabela itens de Vendas Vendas o ID da tabela, tem aqui uma Solução sem gambiarras código Tabajara Nem. Rotina ESSA...
Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Clientes
Festas e Eventos
Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Clientes
Pizzaria Ibiza Joinville
Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Clientes
Loja de Informática em Joinville
Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Clientes
Núcleo Imobiliário de Joinville
Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
Function StrZero(n:Real;t:byte):String;
var
s : String;
i : Integer;
begin
str(n:t:0,s);
for i := 1 to length(s) do
if s[i] = ‘ ‘ then
s[i] := ’0′;
StrZero := s;
End;
Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
Procedure LimpaPanelEdtP(p : TPanel);
var
i : Integer;
begin
with p do
for i := 0 to ControlCount – 1 do begin
if (Controls[i] is TEdit) then
TEdit(Controls[i]).Text := ”;
if (Controls[i] is TMaskEdit) then
TMaskEdit(Controls[i]).Text := ”;
if (Controls[i] is TRxSpinEdit) then
TRxSpinEdit(Controls[i]).Value := 0;
if (Controls[i] is TComboEdit) then
TComboEdit(Controls[i]).Text := ”;
if (Controls[i] is TRxLookupEdit) then
TRxLookupEdit(Controls[i]).Text := ”;
if (Controls[i] is TDateEdit) then
TDateEdit(Controls[i]).Text := ”;
if (Controls[i] is TRxCalcEdit) then
TRxCalcEdit(Controls[i]).Value := 0;
if (Controls[i] is TMemo) then
TMemo(Controls[i]).Lines.Clear;
if (Controls[i] is TCheckBox) then
TCheckBox(Controls[i]).Checked := False;
end;
end;
Postado em : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
procedure LoadFields(p: TGroupBox; t: TQuery);
var
i : Integer;
begin
with p do begin
for i := 0 to ControlCount – 1 do begin
{ Edit }
if (Controls[i] is TEdit) then
TEdit(Controls[i]).Text := t.FieldByName(TEdit(Controls[i]).Name).AsString;
{ MaskEdit }
if (Controls[i] is TMaskEdit) then
TMaskEdit(Controls[i]).Text := t.FieldByName(TMaskEdit(Controls[i]).Name).AsString;
{ ComboBox }
if (Controls[i] is TComboBox) then
if TComboBox(Controls[i]).Style = csDropDown then
TComboBox(Controls[i]).Text := t.FieldByName(TComboBox(Controls[i]).Name).AsString
else if TComboBox(Controls[i]).Style = csDropDownList then
TComboBox(Controls[i]).ItemIndex := t.FieldByName(TComboBox(Controls[i]).Name).AsInteger;
{ CurrencyEdit }
if (Controls[i] is TCurrencyEdit) then
if TCurrencyEdit(Controls[i]).DecimalPlaces = 0 then
TCurrencyEdit(Controls[i]).Value := t.FieldByName(TCurrencyEdit(Controls[i]).Name).AsInteger
else
TCurrencyEdit(Controls[i]).Value := t.FieldByName(TCurrencyEdit(Controls[i]).Name).AsFloat;
end;
end;
end;
0