Re: [delphi-br] MariaDB SQL
Enquetes encerradas, os resultados estão nos links [1] e [2] (até 14/12/2009): [1] - [http://silvioprog.blogspot.com/]; [2] - [http://silvioclecio.blogspot.com/]; Estou concluindo a edição de um tutorial super didático que explica como instalar o PostgreSQL (8.4) no Linux e no Windows, usando uma nova interface gráfica para facilitar as configurações do poderoso SGBDOR. Após a instalação será criado um banco de dados para testar o PostgreSQL. Ambos os blogs podem ser acompanhados por email, feeds (FeedBurner - RSS/Atom) ou por postagens no Twitter. Abraços a todos, -- Silvio Clecio -- Blog estilo mural - silvioclecio.blogspot.com Twitter - twitter.com/silvioprog -- programmer ObjectPascal - silvioprog.blogspot.com -- O homem está sempre disposto a negar tudo aquilo que não compreende. Blaise Pascal. __ Fa�a liga��es para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
Re: [delphi-br] [OFF-TOPIC] Fireb ird, SQL Server, MySQL, MariaDB SQL . .. - Qual você usa?
Enquetes encerradas, os resultados estão nos links [1] e [2] (até 14/12/2009): [1] - [http://silvioprog.blogspot.com/]; [2] - [http://silvioclecio.blogspot.com/]; Estou concluindo a edição de um tutorial super didático que explica como instalar o PostgreSQL (8.4) no Linux e no Windows, usando uma nova interface gráfica para facilitar as configurações do poderoso SGBDOR. Após a instalação será criado um banco de dados para testar o PostgreSQL. Ambos os blogs podem ser acompanhados por email, feeds (FeedBurner - RSS/Atom) ou por postagens no Twitter. Abraços a todos, -- Silvio Clecio -- Blog estilo mural - silvioclecio.blogspot.com Twitter - twitter.com/silvioprog -- programmer ObjectPascal - silvioprog.blogspot.com -- O homem está sempre disposto a negar tudo aquilo que não compreende. Blaise Pascal. __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.yahoo.com/
[delphi-br] Verificar se DotNet está instalado
Delphi2007 ou superior: -Como fazer pra verificar se o DotNet está instalado no computador ? -e qual versão do DotNet ? Obrigado pela atenção dispensada. Albuquerque, Jr. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] material D2009
pessoal onde posso encontrar apostila de D2009 em potugues de preferencia.. Valeu...
[delphi-br] Re: material D2009
http://www.andreanolanusse.com/blogpt/ http://cc.codegear.com/author/38483 http://cc.embarcadero.com/author/795118 Luciano C. Simões --- Em delphi-br@yahoogrupos.com.br, dionatanhenrique dionata...@... escreveu pessoal onde posso encontrar apostila de D2009 em potugues de preferencia.. Valeu...
Re: [delphi-br] Importar do excel com abas
Dê uma estudada nesta rotina e adapte as suas necessidades.
procedure TMenuPlanilha.PlanDetalhe(arq : string);
var
i : byte;
lin : byte;
fim_plan : boolean;
texto : string;
aba : byte;
begin
excel_le.Workbooks.Open(arq);
for aba := 1 to excel_le.Workbooks[1].sheets.Count do
if excel_le.WorkBooks[1].Sheets[aba].Name =
cdsGrid.fieldbyname('DESCRCARTAO').asstring then
break;
if aba excel_le.Workbooks[1].sheets.Count then
begin
excel_le.quit;
exit;
end;
if UpperCase(trim(excel_le.Workbooks[1].WorkSheets[aba].cells[8,1]))
'COLABORADOR' then
begin
Screen.Cursor := crDefault;
showmessage('Planilha fora do padrão' + #13
+ arq);
excel_le.quit;
exit;
end;
if lin_grava = 1 then
begin
fim_plan := false;
col_lim := 2;
while not fim_plan do
begin
inc(col_lim);
excel_grava.Workbooks[1].WorkSheets[1].columns[col_lim].rowheight := 10;
if trim(excel_le.Workbooks[1].WorkSheets[aba].cells[8,col_lim + 1]) =
'' then
fim_plan := true;
end;
Espero ter ajudado.
--- Em sáb, 12/12/09, Rafael Jorge rafael.jo...@gmail.com escreveu:
De: Rafael Jorge rafael.jo...@gmail.com
Assunto: [delphi-br] Importar do excel com abas
Para: delphi-br delphi-br@yahoogrupos.com.br
Data: Sábado, 12 de Dezembro de 2009, 8:46
tenho uma rotina que importa do excel para meu banco de dados. ate ai tudo
bem, so que alguns clientes usam varias abas do excel (planilhas) dentro do
mesmo excel.
e eu gostaria de saber como sair de planilha em planilha pegando os dados.
tentei usando a rotina abaixo mais nao ta funcionando da erro no active
quando eu tento pegar a ultima celula ativa.
- - -- codigo fonte
- -
procedure TFormImpotarDoExcel .BitBtn5Click( Sender: TObject);
const
xlCellTypeLastCell = $000B;
var
XLApp : OLEVariant;
Sheet : OLEVariant;
RangeMatrix : Variant;
linha : Integer;
coluna : Integer;
I : Integer;
ii : integer;
iii : integer;
x : integer;
y : integer;
arquivo : string;
sql : string;
sair : boolean;
function valida(texto: string): string;
begin
result := stringreplace( texto,#39, '',[rfReplaceAll ]);
end;
begin
// Create Excel-OLE Object
XLApp := CreateOleObject( 'Excel.Applicati on');
//pegando todos os arquivos do diretorio.
g1.MinValue := 0;
g1.MaxValue := self.FileListBox1. Items.Count;
g1.Progress := 0;
for I := 0 to self.FileListBox1. Items.Count - 1 do
begin
g1.Progress := i;
application. ProcessMessages;
try
// Hide Excel
XLApp.Visible := False;
// Open the Workbook
arquivo :=
self.DirectoryListB ox1.Directory+ '\'+self. FileListBox1. Items.Strings[ i];
lbarquivo.caption := arquivo;
application. ProcessMessages;
XLApp.Workbooks. Open(arquivo) ;
// Sheet := XLApp.Workbooks[ 1].WorkSheets[ 1];
Sheet := XLApp.Workbooks[ ExtractFileName( arquivo)] .WorkSheets[ 0];
// In order to know the dimension of the WorkSheet, i.e the number of
rows
// and the number of columns, we activate the last non-empty cell of it
Sheet.Cells. SpecialCells( xlCellTypeLastCe ll, EmptyParam). Activate; ---
dá erro aqui!
// Get the value of the last row
x := XLApp.ActiveCell. Row;
// Get the value of the last column
y := XLApp.ActiveCell. Column;
// Assign the Variant associated with the WorkSheet to the Delphi
Variant
RangeMatrix := XLApp.Range[ 'A1', XLApp.Cells. Item[X, Y]].Value;
// Define the loop for filling in the TStringGrid
linha := strtoint(linhainici al.Text);
sair := false;
repeat
//criando o sql com base na tabela
sql := 'insert into '+self.combtabela. Text+' (';
if CheckBox1.Checked then sql := sql +'codigo,';
for Ii := 1 to self.grid.RowCount - 1 DO
BEGIN
if ii = 1
then sql := sql + self.grid.Cells[ 0,ii]
else sql := sql + ', '+self.grid. Cells[0,ii] ;
end;
//vendo os campos manuais
for iii := 1 to self.gridmanual. RowCount - 1
do sql := sql + ', '+self.gridmanual. Cells[0,iii] ;
//fachando os campos
sql := sql + ') values (';
if CheckBox1.Checked
then sql := sql +
autoincremento( nil,self. combtabela. Text,'codigo' ,fsqlconnection,
self.Socketconne ction)+',
';
//inserindo os dados
g2.MinValue := 0;
g2.MaxValue := self.grid.RowCount + self.gridmanual. RowCount;
g2.Progress := 0;
for ii := 1 to self.grid.RowCount - 1 do
begin
g2.Progress := ii;
application. ProcessMessages;
if (RangeMatrix[ linha, strtoint(self. grid.Cells[ 1,ii])] = '') and
(ii = 1) then
begin
sair := true;
Break;
end;
if self.grid.Cells[ 2,ii] = '0' then
begin
if ii = 1
then sql := sql + #39+ valida(RangeMatrix[ linha,
strtoint(self. grid.Cells[ 1,ii])])+ #39
else sql := sql + ', '+ #39+ valida(RangeMatrix[ linha,
strtoint(self. grid.Cells[ 1,ii])])+ #39;
end else begin
if ii = 1
then sql := sql + #39+ valida(copy( RangeMatrix[ linha,
strtoint(self. grid.Cells[ 1,ii])],1, strtoint( self.grid. Cells[2,ii] )))+#39
else sql := sql + ', '+ #39+ valida(copy( RangeMatrix[ linha,
strtoint(self. grid.Cells[ 1,ii])],1, strtoint(
[delphi-br] (unknown)
http://sites.google.com/site/dabcnxmhgz/zgv07dokyo Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com
[delphi-br] Sistema de ERP - Vendo Projeto Completo
Colegas da lista boa tarde me chamo Marco Antônio e moro em Brasília-DF. Sou Analista de Sistemas com mais de 20 anos de experiência, desenvolvi um projeto completo de ERP composto pelos módulos de Cadastros,Compras, Almoxarifado, Estoque, Faturamento e Financeiro. Este sistema é ideal para micros, pequenas e médias empresas. e indicado para profissionais que qeirão desenvolver um sistema mas não dispoem de tempo e também para aqueles que tem projetos neste área mas não tem um produto pronto para atender de forma rápida no curto prazo o cliente e acabam perdendo o negócio. Estou vendendo este projeto porquê não tenho mais interesse em atuar nesta área, é uma boa oportunidade de negócio, faço toda a transferência de conhecimentos necessária para que quem comprar possa desenvolver de forma ágil e segura os novos projetos.Além disto o projeto conta ainda com toda a documentação ( dicionário de dados e especificação das funções ). O projeto foi originalmente desenvolvido em Delphi 7.0 e a base de dados foi implementada em SQL Server 2.000 (MSDE). Aos interessados favor entrar em contato pelo email mlucas...@yahoo.com.br onde darei maiores informações e estudarei propostas, aproveitem o preço que estou pedindo não é alto ideal para aqueles profissionais que estão começando um negócio. ATENÇÃO À TODOS, ESTA É UMA PROPOSTA SÉRIA,NÃO SE TRATA DESTES SISTEMAS QUE TEM FONTES GRATUÍTAS DISPONIBILIZADAS NA INTERNET E SIM DE UM PROJETO DESENVOLVIDO POR UM PROFISSIONAL COM MAIS DE 20 ANOS DE EXPERIÊNCIA NA ÁREA E GRADUADO EM SISTEMAS DE INFORAMÇAO. Atenciosamente. Marco Antônio. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema de ERP - Vendo Projeto Completo
TEM TEF? Trabalha com quais ECFs? Está preparado pro PAF? Marcos Lucas escreveu: Colegas da lista boa tarde me chamo Marco Antônio e moro em Brasília-DF. Sou Analista de Sistemas com mais de 20 anos de experiência, desenvolvi um projeto completo de ERP composto pelos módulos de Cadastros,Compras, Almoxarifado, Estoque, Faturamento e Financeiro. Este sistema é ideal para micros, pequenas e médias empresas. e indicado para profissionais que qeirão desenvolver um sistema mas não dispoem de tempo e também para aqueles que tem projetos neste área mas não tem um produto pronto para atender de forma rápida no curto prazo o cliente e acabam perdendo o negócio. Estou vendendo este projeto porquê não tenho mais interesse em atuar nesta área, é uma boa oportunidade de negócio, faço toda a transferência de conhecimentos necessária para que quem comprar possa desenvolver de forma ágil e segura os novos projetos.Além disto o projeto conta ainda com toda a documentação ( dicionário de dados e especificação das funções ). O projeto foi originalmente desenvolvido em Delphi 7.0 e a base de dados foi implementada em SQL Server 2.000 (MSDE). Aos interessados favor entrar em contato pelo email mlucas...@yahoo.com.br onde darei maiores informações e estudarei propostas, aproveitem o preço que estou pedindo não é alto ideal para aqueles profissionais que estão começando um negócio. ATENÇÃO À TODOS, ESTA É UMA PROPOSTA SÉRIA,NÃO SE TRATA DESTES SISTEMAS QUE TEM FONTES GRATUÍTAS DISPONIBILIZADAS NA INTERNET E SIM DE UM PROJETO DESENVOLVIDO POR UM PROFISSIONAL COM MAIS DE 20 ANOS DE EXPERIÊNCIA NA ÁREA E GRADUADO EM SISTEMAS DE INFORAMÇAO. Atenciosamente. Marco Antônio. Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] instalar devexpress quantumgrid
pessoal alguem sabe a ordem de instalação do DevExpress.ExpressQuantumGrid.Suite.v6.38.for.Delphi.BCB.Full.Source-SSG voces sabem me dizer se esta versao e para delphi2009? tem um outro link onde posso baixar? valeu
[delphi-br] URGENTE: Identificador de Chamadas
Olá amigos delphianos, Estou finalizando um sistema para controle de pizzaria (delivery) e neste projeto eu gostaria de implementar um controle de identificação de chamadas. Alguém tem uma solução que gostaria de negóciar ? O detalhe importante é que eu gostaria de usar a minha placa de fax/modem. Obs.: Minha linha telefônica de teste, já possui habilitado o Identificador de Chamadas. Aguardo contato. Jorge Ericsson S. Pinheiro Ericsson Sistemas e Soluções (61) 3797-4785 / 8592-9960 / 9227-4785 http://www.jericsson.com.br jericsson...@gmail.com jericsson...@jericsson.com.br skype:jericsson Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] instalar devexpress quantumgrid
Isso é um componente de origem PIRATA. Em 14/12/2009 19:04, dionatanhenrique escreveu: pessoal alguem sabe a ordem de instalação do DevExpress.ExpressQuantumGrid.Suite.v6.38.for.Delphi.BCB.Full.Source-SSG voces sabem me dizer se esta versao e para delphi2009? tem um outro link onde posso baixar? valeu [As partes desta mensagem que não continham texto foram removidas]
