|
Terça-feira, 30
de abril de 2002
Notícia da Edição:
Salários de TI devem cair de 8 a 11%
Os salários e bônus dos profissionais das empresas de tecnologia da informação devem cair este ano pela primeira vez em uma década, segundo levantamento feito pela revista especializada Information Week.
Os gerentes de empresas de TI ganham em média 83 mil dólares por ano e devem sofrer com uma queda de 8 por cento. Outros trabalhadores do setor ganham cerca de 61 mil dólares e devem ter perdas de 11 por cento. A publicação entrevistou mais de dez mil profissionais.
Os bônus estão caindo ainda mais que o salários. Os entrevistados de nível médio que conseguiram bônus de 17 mil dólares no ano passado vão obter cerca de 6 mil dólares em 2002. Outros empregados terão uma queda dos bônus de 11 mil dólares para 2 mil dólares.
Outra descoberta da pesquisa: os empregados das empresas de TI sofrem com mais estresse e têm o moral mais baixo.
fonte
: Info
|
|
|
1- Separando o dia e o mês de uma data informada. |
|
Adicione em um form, um TButton, um TDateTimePicker e um TLabel.
No evento Onclick do botão escreva o código abaixo:
var
Present : TDateTime;
Year, Month, Day, Hour, Min, Sec, MSec : Word;
begin
Present := DateTimePicker1.DateTime;
decodedate (Present, Year, Month, Day);
Label1.Caption := 'Dia' + Inttostr (Day) + 'Mês' + Inttostr (Month) +
'Ano' + Inttostr (Year);
end;
|
|
|
|
- |
|
2- Sobre o DbLookUpCombobox |
|
Esse componente é utilizado para selecionar um registro de uma tabela e
gravá-lo em outra tabela.
As propriedades necessárias para sua utilização são:
DataSource - Relaciona o DataSource da Tabela
que irá receber o valor do registro selecionado;
DataField - Relaciona o campo que
receberá o valor do registro selecionado ;
ListSource - Relaciona o DataSource da Tabela
que terá o registro selecionado;
ListField - Relaciona os campos que serão listados quando o usuário abrir
o componente para seleção do registro;
KeyField - Relaciona o campo que terá o seu valor enviado para gravação.
|
|
Suporte em Delphi. cadastre-se
já
Este serviço tem por
finalidade oferecer aos associados um suporte técnico na linguagem de
programação Delphi, nas versões Standard, Professional
e Client/Server.
Atualmente, contamos com uma equipe de profissionais qualificados e
prontos pra lhe atender e ajudá-lo da melhor forma possível.
Nosso atendimento é feito através de e-mail e formulário web, de
segunda à sexta das 08:00h às 18:00h.
|
|
| - |
|
3- Posicionando o cursor no final do TEdit ao receber o foco. |
|
Coloque o código abaixo no evento OnEnter do TEdit desejado.
seuEdit.selstart:= Length(seuEdit.text);
|
|
|
| - |
|
4- Duplicando Tabelas. |
|
var
Num: SmallInt;
begin
for Num := 0 to Tabela1.FieldCount - 1 do
begin
Tabela2.Insert;
Tabela2.Fields[Num].Assign(Tabela1.Fields[Num]);
Tabela2.Post;
end;
end;
|
|
Visite nosso Fórum de discussões sobre Delphi, é gratuito e não
precisa se cadastrar. Clique
Aqui |
|
| - |
|
5- Pedindo confirmação para fechar um form. |
|
procedure TForm1.FormCloseQuery(Sender: Tobject; var CanClose: Bolean);
begin
if MessageDlg ( 'Sua mensagem de confirmação?',
mtConfirmation, [mbYes, mbNo], 0) = idNo then
Canclose:=False;
end;
|
|
Não deixe de enviar sua dica de Programação Delphi para nós a
publicarmos no ActiveNews, a equipe do ActiveDelphi e todos os
assinantes ficarão agradecidos com a sua contribuição.
|
|
| - |
|
6- Verificando se o arquivo existe para exclui-lo. |
|
if FileExists('C:\caminho\arquivo.txt') then
DeleteFile('C:\caminho\arquivo.txt');
|
|
Suporte em Delphi. cadastre-se
já
Este serviço tem por
finalidade oferecer aos associados um suporte técnico na linguagem de
programação Delphi, nas versões 1, 2, 3, 4 e 5 Standard, Professional
e Client/Server.
Atualmente, contamos com uma equipe de profissionais qualificados e
prontos pra lhe atender e ajudá-lo da melhor forma possível.
Nosso atendimento é feito através de e-mail e formulário web, de
segunda à sexta das 08:00h às 18:00h.
|
|
| - |
|
7- Sorteando números com a função Random. |
|
procedure TForm1.Button1Click(Sender: TObject);
Var
Rand,i:integer;
begin
Randomize;
Edit1.Text:='';
repeat
Rand:=Random(9);
//será sorteado os números de 0 a 9
if AnsiPos(IntToStr(Rand),Edit1.Text)=0 then
//somente se o número for diferente do já escolhido
Edit1.Text :=
Edit1.Text+IntToStr(Rand);
until(Length(Edit1.Text)=4); //quantos números diferentes
você desejar obter.
end;
|
| - |
|
Pensamento:
“
Concentre-se naquilo que é realmente importante para você.
Não há nenhum sentido em disputar um jogo que você não está interessado em vencer. Faça com que sua vida e suas expectativas sejam reflexos profundamente pessoais daquilo que é realmente importante para você. Não valorize as pessoas pelo que têm, mas pelo que elas são, e você aprenderá a respeitar-se no que possui de fundamental, o que lhe dará muita paz." (Kaiser, 1996)
|
|
|
-
Ultimas atualizações : - ActiveNews anteriores para download
- Colaboradores
- Programas e Exemplos
- Apostilas
Repasse este News para seus amigo(as)...
Até a próxima semana !
EQUIPE ACTIVEDELPHI
www.activedelphi.com.br
info@activedelphi.com.br
|