Oportunidade para programador Delphi 7 com conhecimentos de SQL Server 2000
(criação de triggers, stored procedures e etc).
Curriculos com pretensão salarial para o e-mail: [EMAIL PROTECTED]
Obrigado!!!
[As partes desta mensagem que não continham texto foram removidas]
Empresa de grande porte situada em Brasília-DF seleciona:
Profissional com ensino médio e sólidos conhecimentos em desenvolvimento de
sistemas utilizando Delphi 7 e experiência em criação e utilização de
consultas complexas, functions e stored procedures no banco de dados SQL
Server 2000
Victor,
Eof = End-of-file
Portanto, se não é o fim do arquivo Next (vai pro próximo registro).
Abraço!
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de victor_scampini
Enviada em: quarta-feira, 24 de setembro de 2008 07:34
Para:
Olá Alisson,
Tenho um bom exemplo de como fazer isso.
Tenho um sistema onde preciso utilizar isso, então, segue um link para um
exemplo que desenvolvi.
Espero que lhe ajude no que precisa.
Baixe em: http://www.oppus.eti.br/exemplos/ImportarPlanConsumoInvasao.rar
Abraço,
Alessandro Alves
Pessoal,
Estamos contratando um profissional com o seguinte perfil:
Conhecimentos imprescindíveis:
- Desenvolvimento de aplicações em C/C++ (Sólidos conhecimentos e
experiência comprovada)
- Desenvolvimento de aplicações em Delphi
- Firebird
- Escolaridade mínima: nível médio completo
Eu uso a seguinte rotina:
procedure TfrmGerarPlanilhasEstoque.GerarExcel(Consulta: TIBQuery;
pTituloPlanilha:String);
var
coluna, linha : integer;
excel: variant;
valor: string;
begin
try
excel:=CreateOleObject('Excel.Application');
excel.Workbooks.add(1);
except
Olá Fernando,
Eu resolvo usando a seguinte função:
function RemovePonto(pStr:string):string;
var li:integer;
begin
while pos('.',pStr) 0 do
begin
li := pos('.',pStr);
delete(pStr,li,1);
end;
result := pStr
end;
Então passaria: ParamByName('TotProd').Asfloat :=
Você não conseguirá ver automaticamente, deverá fazer o processo que fez na
gravação, inversamente...usando TStream para exiber a imagem do banco de
dados.
Use o código abaixo no DataChange do seu DataSet:
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
var
8 matches
Mail list logo