danielrgoes
-
Total de itens
295 -
Registro em
-
Última visita
Posts postados por danielrgoes
-
-
Boa Tarde Pessoal
Estou precisando montar um programinha que pegue os anexos dos email que estao dentro de uma pasta do windows Mail
e salve em uma pasta do windows
alguém sabe como fazer isso
-
Boa Tarde
eu tenho uma aplicaçao que utiliza o SQLQuery, CDS, DSP e DS
esta funcionando normal utilizo o append, edit, post, delete
porem aconteceu uma seguinte situação
eu do um select em uma tabela e percorro ela inteira inserindo em uma outra tabela
modulo.cds_desc_projeto.close;
modulo.sql_desc_projeto.SQL.clear;
modulo.sql_desc_projeto.SQL.Add('SELECT * FROM DESC_PROJETO ');
modulo.sql_desc_projeto.SQL.Add(' WHERE COD_PROJETO = ' + IntToStr(modulo.cds_projetoCOD_PROJETO.Value));
modulo.cds_desc_projeto.Open();
modulo.cds_desc_projeto.First;
while not modulo.cds_desc_projeto.Eof do
begin
modulo.cds_auxprojeto.Append;
modulo.cds_auxprojetoCOD_PROJETO.Value := modulo.cds_desc_projetoCOD_PROJETO.Value;
modulo.cds_auxprojeto.Post;
modulo.cds_desc_projeto.Next;
end;
os dados gravam certinho
porem quando eu vo no DBGrid eu tenho que editar um campo em tempo de execuçao
então no evento DBGrid4CellClick eu coloco o codigo
modulo.cds_auxprojeto.Edit;
modulo.cds_auxprojetoCOD_PROJETO.Value := 1;
modulo.cds_auxprojeto.post;
mais quando passa pelo post da erro na hora de gravar
estou colocando no evento OnafterPost do CDS o codigo pra gravar
if TClientDataSet(tabela).ApplyUpdates(0) > 0 then
ShowMessage('Erro na Gravação em : '+tabela.name);
ou seja o ApplyUpdates(0) é maior que zero
mais porque acontece isso ???????????
-
Ai quando eu fecho o Frm1 fecha td
não deu certo
-
Boa tarde pessoal
Estou com um problema
eu tenho uma aplicaça que apos o login chama uma tela principal
try
FrmPrincipal := TFrmPrincipal.Create(self); // chama form main
FrmPrincipal.ShowModal;
finally
FreeAndNil(FrmPrincipal);
Application.Terminate;
end;
porem antes de ela aparecer eu tento chamr uma outra tela [
Frm1.show;
porem o frm1 não aparece na frente do principal
eu tenter fazer assim
SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top,Form1.Width, Form1.Height, 0);
mais ai quando eu chamo uma outra ela o Frm1 não sai mais da frente da aplicaçao
como eu faço pra chamar um form na frente do outro
-
Olaaaa
eu fiz isso mais quando eu vo exibi o form coloco no evento on click de um bitbutton
Frm_projeto:= TFrm_projeto.Create(Application);
Frm_projeto.Show;
try
Frm_projeto := TFrm_projeto.Create(Application);
Frm_projeto.ShowModal;
finally
FreeandNil(Frm_projeto);
end;
nenhuma das duas formas da certo
da o erro
Cannot meke a visible windows modal
-
Nossaaaaaaaaaaa
são telas prontas jahhhh td programadooo
telas com codgos grandesss
mais valeu pela ajuda
abraços
-
Boa tarde pessoal
Eu criei 2 Forms
1 como pai e outro como filho
depois eu mudei a propriedade dos dois para normal novamente
porem agora quando eu rodo o programa os dois form abrem juntos
como faço para voltar ao normal
-
Bom dia Pessoal
eu tenho um codigo para ordenar um DBGrid ligado em um DataSourse que por sua vez em ligado em um SQLQuery,CDS,DSP
quando eu clico na coluna
procedure TFrm_projeto.DBGrid4TitleClick(Column: TColumn);
var
i ,col:integer;
begin
Try
for i:=0 to Column.Grid.FieldCount - 1 do
begin
DBGrid4.Columns.Items.Title.Font.Color:=ClBlack;//Cor da Fonte
DBGrid4.COLUMNS.ITEMS.TITLE.FONT.STYLE := [];//Cot da Fonte
DBGrid4.Columns.Items.Title.Color:=clBtnFace;//Cor do Fundo do Titulo Normal
Column.Title.Color :=clSilver;//Cor do Fundo do Titulo Selecionado
COLUMN.TITLE.FONT.STYLE := [FSBOLD];
Column.Title.Font.Color:=ClBlue;
Column.Font.color:=clTeal;
Col:= DBGrid4.Columns[Column.Index].Index;
DBGrid4.Columns.Items.Font.color:=ClBlack;
(modulo.DS_projeto.DataSet as TClientDataSet).IndexFieldNames := Column.FieldName;
end;
Except
ShowMessage('Não foi possivel organizar');
End;
end;
Bom ele funciona muito bem porem agora eu estou precisando fazer o seguinte
Ordenar da mesma forma potem o meu DBdrid é ligado em um DataSource mais agora o DS é ligado em um RXMemoryData
como faço para ordenar dessa forma
-
Funcionou obrigado a todos
-
Antes de mais nada muito obrigado
funcinou abre sim
só tem um problema
esse X,Y sai as cooredenadas da tela então se eu mexo o form não aparece ande eu clico
tem soluçap pra isso
-
Bom dia pessoal
eu coloquei um Menupopup na minh aplicaçao e liguei em um BitBtn
mais eu gostaria de chamar o menu quando clica se com o botao esquerdo no botao e não com o direito do mouse
Abraços
-
Bom dia pessoal
Estou utilizando aquele memorydata do pacote RxLib para fazer uma tabela virtual
eu inseri os dados dentro dele liguei em um DataSource e por ventura liguem em um DBGrid
porem eu gostaria de sabe se tem como eu falser uma consulta nele tipo um SQl
SELECT * FROM TABELA WHERE NOME = 'MEU NOME'
ai o DBGrid me retornaria os valores encontrados?
-
Douglas agradeço muito a ajuda
consegui fazer assim
procedure TFrm_abrir_projeto.DBGrid1TitleClick(Column: TColumn);
var
i ,col:integer;
begin
Try
for i:=0 to Column.Grid.FieldCount - 1 do
begin
DBGrid1.Columns.Items.Title.Font.Color:=ClBlack;//Cor da Fonte
DBGrid1.COLUMNS.ITEMS.TITLE.FONT.STYLE := [];//Cot da Fonte
DBGrid1.Columns.Items.Title.Color:=clBtnFace;//Cor do Fundo do Titulo Normal
Column.Title.Color :=clSilver;//Cor do Fundo do Titulo Selecionado
COLUMN.TITLE.FONT.STYLE := [FSBOLD];
Column.Title.Font.Color:=ClBlue;
Column.Font.color:=clTeal;
Col:= DBGrid1.Columns[Column.Index].Index;
DBGrid1.Columns.Items.Font.color:=ClBlack;
(modulo.DS_projeto.DataSet as TClientDataSet).IndexFieldNames := Column.FieldName;
end;
Except
ShowMessage('Não foi possivel organizar');
End;
end;
-
Douglas não deu certo não da o seguinte erro
CDS:index 'ANOME_CLIENTE' not fond
-
Boa Tarde pessoal
Gostaria de saber se tem como eu fazer o DbGrig organizar os dados clicando no titulo da coluna
ou seja faze igual o Windows Explorer
Abraços
-
Impressionante mais eu fiz isso e da o mesmo erroooooooooo
imprecionante como não da pra volta atraz
-
Nossaaaaaaa Jhonas o projeto é enormeeeeee
mais isso ta acontecendo em todas as aplicaçoes que eu faço esse processo acima
não consigo reverter
-
Tem outra coisa a hora que eu abro minha aplicaçao ele inicializa os 2 forms juntos
aonde era só pra abri o principal Form1
-
Eu já fiz isso jhonas
Tem outra coisa a hora que eu abro minha aplicaçao ele inicializa os 2 forms juntos
aonde era só pra abri o principal Form1
-
Pessoal é o seguinte
Eu fiz um procesimento no meu sistema assim
Mudei a propriedade FormStyle do Form1 para fsMDIForm e do form2 para fsFDMChild
ou seja pro form1 ser pai do form2
porem eu voltei a propriedade para fsNormal porque não queria mais fazer isso
ia deixa normal denovo
mais agora quando eu vo da show no form2 da o seguinte erro
Access violation at address 005396EC projeto.exe Read of address 00000273
o que sera que é isso
-
Muito bom o link
Obrigadoooo vou tentar usar
é um poco complexo mais vamos ver
abraços
-
É assim eu utilizo o delphi 2007 com w XP e W Vista
e eu desenvolvi um sistema todo em portugues
por exemplo os meu captions do labels estao
Nome
Numero
etc..
gostaria de colocar uma opçao linguagem
que quando ele seleciona se de portigues pra estanhol por exemplo
traduzi-se os captions por exmplo
tem como faze isso
-
Boa Tarde pessoal
Eu tenho um problema aki e nem sei se isso tem soluçao mais como alguns sistemas tem
gostaria de saber se tem como mudar a linguagem do sistema
ou seja colocar uma opçao que mude de portugues para ingles
isso que existe nos sistemas é algum componente?
abraços
-
Não deu certo
aparece so os 3 primeiros numeros
523. . / -
Exportar QR para PDF nao salva o arquivo corretamente
em Delphi, Kylix
Postado
Boa Tarde
Estou usando o Delphi 2007 com o QR
e coloquei um componente QRPDFFilter
mais quando eu tento salva em PDF o arquivo salva danificado
não consigo abrir da erro fala que o arquivo esta danificado
alguém sabe o que pode ser