[delphi-br] Ajuda com SQL
Pessoal Preciso fazer um SELECT que me retorne algumas novas colunas em branco. Conforme abaixo: Select Documento, NovaColuna em Branco, DtEmissao, NovaColuna em Branco, Valor, Total from TabelaN where ... Com os dados que o select retornar eu preencherei posteriormente as colunas vazias via programação. Vi alguns exemplos neste link, mas preciso para o Firebird. http://weblogs.foxite.com/andykramek/archive/2005/09/18/921.aspx SELECT SPACE(30) AS newcol FROM nametable SELECT *, SPACE(30) AS newstring FROM sample Qualquer ajuda será bem vinda, muito obrigado! Adilson [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Criar um Form
Poste seu código para poderem ver. - Original Message - From: Daniel F. C. To: delphi-br@yahoogrupos.com.br Sent: Monday, June 09, 2008 11:29 PM Subject: Re: [delphi-br] Criar um Form eu tenho um sistema de contabilidade e agora estou tentando criar um for de Usuario, na minha concepcao fiz tudo certinho, mas quando clico no menu CADASTRO/Usuario ele da esse erro: Project Contabil.exe raised exception class EIBInterBaseError with message 'Dynamic SQL Error SQL Error code = -104 Unexpected end of command - line1, column 10'. Process Stopped. Use Step or Run to continue O que fazer? o que eu estou fazendo de errado???. O problema não é na criação do formulário mas sim em alguma instrução SQL que está sendo executada quando o form é criado ou mostrado. Tem algum evento no formulário que tenta executar alguma query na base de dados ? Daniel Franco. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Função para fechar programas no Tray
Gercil Junio escreveu:
> Olá!
> existe alguma função e/ou comando para fechar um certo programa que
> está no Tray ?
> Como por exemplo:
> Msn, NAV, Winamp e etc
>
> Obrigado pela atenção!
> []s
>
>*
>
>
>
Eu fecho qualquer programa com este abaixo eu o utilizava para fechar o
Netscape que estava dando problemas. Mas coloquei um Edit e passo o nome
do executável (winword, excel, delphi32, msimn, msnmsgr, etc.) e ele
fecha. Se não tiver nada no Edit ele mata o Netscape e fecha. Pode até
ser programa travado, mata na hora. Veja se te serve e faça sua adaptações.
Delphi 6
http://tetraetila.coolfreepage.com/kill.html
unit UnitDieNs;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Tlhelp32, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Timer1: TTimer;
function KillTask(ExeFileName: string): Integer; // É esta a função.
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.KillTask(ExeFileName: string): Integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
KillTask(Edit1.Text+'.exe');
Button1.Caption:=('Dead ...');
sleep(2000);
Button1.Caption:=('tetraetila®');
Edit1.Text:=('');
Edit1.SetFocus;
Application.Terminate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
KillTask('Netscp.exe');
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Edit1.Text='' then
Application.Terminate;
end;
end.
--
--
Adilson Nunes - tetraetila®
?
õ¿õ¬
(¬)
Linux Registered User # 272492
--
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] Com Urgência
alisson_delphi escreveu: > > Eu tenho no meu formulário u TTimer e um TLabel. > eu to querendo fazer uma procedure que eu coloque 3 numeros de > telefone e ele fica piscando anternadamente mais esse laço naum > pode parar.. > Alguém já fez algo parecido ou sabe como fazer pois estou > necessitando. > > Coloque 03 TTimer com Enabled:=False, no OnCreate do Form Timer1.Enabled:=True; O primeiro se auto desabilita e coloca o segundo para funcionar que se auto desabilita e coloca o próximo e o último aciona o primeiro novamente em um loop infinito no tempo que você quiser. procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption:='(99) -'; Timer1.Enabled:=False; Timer2.Enabled:=True; end; procedure TForm1.Timer2Timer(Sender: TObject); begin Label1.Caption:='(88) -'; Timer2.Enabled:=False; Timer3.Enabled:=True; end; procedure TForm1.Timer3Timer(Sender: TObject); begin Label1.Caption:='(77) -'; Timer3.Enabled:=False; Timer1.Enabled:=True; end; procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled:=True; end; -- -- Adilson Nunes - tetraetila® ? õ¿õ¬ (¬) Linux Registered User # 272492 -- [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Fw: Arquivo - comandos.txt
Gracas escreveu: > > Olá Colegas, > > algum de vocês sabe de um bom curso de Delphi, de curta duração em > BH-MG que > possa me indicar? > > Obrigada > > Graças > Tenta http://www.squadra.com.br/ Rua Pernambuco, 353/8º andar - Funcionários Belo Horizonte - MG - Brasil Fone: 55 (31) 3262 39 30 -- ---------- Adilson Nunes - tetraetila® ? õ¿õ¬ (¬) Linux Registered User # 272492 -- -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Alguem pode me ajudar?????
info.suporte escreveu:
>
> Como faço para criar uma rotina que avise se o programa já está aberto.
> Olhei vários exemplos, testei e nenhum desles me satisfez, todos
> deixaram o programa entrar mais de uma vez.
>
> PAULO FERNANDES
> PORTO ALEGRE RS
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
Só executa uma vez, se já estiver aberto chama ele para frente de todos
os demais.
No código principal do seu programa.
var
Hwnd:THandle;
begin
Hwnd:=FindWindow('TForm1',Nil);
if Hwnd = 0 then
begin
Application.Initialize;
Application.Title := 'Form1';
Application.CreateForm(TForm1, Form1);
Application.Run;
end
else SetForegroundWindow(Hwnd);
end.
--
--
Adilson Nunes - tetraetila®
?
õ¿õ¬
(¬)
Linux Registered User # 272492
--
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
[delphi-br] Quick Report Delphi 7
Pessoal Tem muita gente que pergunta pelo Quick Report no Delphi 7 no site do IMASTERS tem um pequeno tutorial bem ilustrado de como instalá-lo. http://www.imasters.com.br/artigo.php?cn=2612&cc=166 -- ------ Adilson Nunes - tetraetila® ? õ¿õ¬ (¬) Linux Registered User # 272492 -- -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] DBNavigator
rstoever escreveu:
>
> Teria como colocar um caption nos botões de navegação, ou fazer
> botões próprios com as mesmas funções ??
>
>
>
>
>
>
Substituindo os botões do DBNavigator
A linha de comando para substituir um comando do DBNavigator é a seguinte:
DBNavigator.BtnClick(nb);
onde será:
first = vai para o primeiro registro;
prior = move o ponteiro para o registro anterior;
next = move o ponteiro para o proximo registro;
last = vai para o último registro;
insert = insere um novo registro na tabela;
delete = apaga o registro atual;
edit = edita o registro atual;
post = confirma a edição ou inserção de um novo registro;
cancel = cancela a operação (edit, insert);
refresh = re-le a tabela de registros;
=
Para você mudar as imagens do DbNavigator
//abra o seguinte arquivo no Image Editor do Delphi e modifique as
imagens como quizer.
"C:Arquivos de programas\Borland\Delphi4\Lib\dbctrls.res"
=
Alterando o glyph dos botões do DbNavigator
Declare um novo tipo na sua unit:
type
NewTypeNav = class( TDbNavigator );
Depois é só utilizar:
NewTypeNav( DbNavigator1 ).Buttons[nbInsert].Glyph := ...
=
Como colocar Captions no DBNavigator
type
TDBNewNavigator = class(TDBNavigator);
procedure TForm1.FormCreate(Sender: TObject);
var
B: TNavigateBtn;
begin
for B := Low(TNavigateBtn) to High(TNavigateBtn) do
with TDBNewNavigator(DBNavigator1).Buttons[B] do
begin
Case Index of
nbFirst : Caption := 'Inicio';
nbPrior : Caption := 'Anterior';
nbNext : Caption := 'Próximo';
nbLast : Caption := 'Último';
nbInsert : Caption := 'Novo';
nbDelete : Caption := 'Apagar';
nbEdit : Caption := 'Alterar';
nbPost : Caption := 'Gravar';
nbCancel : Caption := 'Cancelar';
nbRefresh: Caption := 'Atualizar';
End;
Layout := blGlyphTop; { uses Buttons}
Hint := Caption;
ShowHint := True;
end;
end;
end;
=
DTDelphi
procedure TfrmUsu.FormCreate(Sender: TObject);
var
B: TNavigateBtn;
begin
Dm.TbUsu.Open;
Dm.TbUsu.First;
for B := Low(TNavigateBtn) to High(TNavigateBtn) do
with TDBNewNavigator(DBNavigator1).Buttons[B] do
begin
Case Index of
nbFirst : Caption := 'Inicio';
nbPrior : Caption := 'Anterior';
nbNext : Caption := 'Próximo';
nbLast : Caption := 'Último';
nbInsert : Caption := 'Novo';
nbDelete : Caption := 'Apagar';
nbEdit : Caption := 'Alterar';
nbPost : Caption := 'Gravar';
nbCancel : Caption := 'Cancelar';
nbRefresh: Caption := 'Atualizar';
End;
Layout := blGlyphTop; { uses Buttons}
Hint := Caption;
ShowHint := True;
Font.Color:=clBlue;
end;
--
--
Adilson Nunes - tetraetila®
?
õ¿õ¬
(¬)
Linux Registered User # 272492
--
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
Re: [delphi-br] PDF
Rodrigo Reis Monnerat Louzada Villaverde escreveu: > Boa tarde > > Gostaria de saber se tem como mostrar um documento PDF no Delphi e > mostra-lo > ao usuário, sem que ele possa imprimir esse documento? > > > > ___ > > Rodrigo Reis Monnerat Louzada Villaverde > > Analista de Sistemas Importe o controle ActiveX do Adobe Acrobat Reader através do Delphi (arquivo pdf.ocx) e será instalado o componente Pdf na paleta ActiveX, coloque no seu Form e utilize-o. Quanto a restringir a impressão não sei se tem como. Você pode tentar fazer com que as barras do Acrobat não apareçam dentro do Form para o usuário tem umas propriedas lá, dê uma verificada: Pdf1.setShowToolbar(); Pdf1.setShowScrollbars() O arquivo ".ocx" fica na pasta ActiveX do Adobe Acrobat Reader 5.0 ( C:\Arquivos de programas\Adobe\Acrobat 5.0\Reader\ActiveX\pdf.ocx). Espero que lhe ajude ! -- -- Adilson Nunes - tetraetila® ? õ¿õ¬ (¬) Linux Registered User # 272492 -- -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Arquivo INI
Hélton Ribeiro Nunes escreveu:
> Pessoal
>
> to tentando trabalhar com arquivos ini mas ta dando uns problemas aki.
> Abaixo o codigo q estou utilizando:
>
> -
>ArqIni := TIniFile.Create('sys.Ini');
>Caminho1:=ArqIni.ReadString('Dados','Caminho','' );
>showmessage(Caminho1);
>
> Arquivo ini
> ---
> [Dados]
> Caminho='C:\Sistemas\Mago\Novo\DADOS.FIB'
> ---
>
> coloquei um showmessage no codigo para ver o q estava trazendo na
> leitura,
> mas mostra uma mensagem em branco.
> Alguem pode dar uma luz?
>
> []´s
>
>
Primo
Inclua a Unit IniFile
Declare a variável Caminho1 como String e uma variável do tipo TIniFile,
veja o teste abaixo:
procedure TForm1.Button1Click(Sender: TObject);
var
ArqIni:TIniFile;
Caminho1:String;
begin
ArqIni := TIniFile.Create('c:\sys.Ini'); //
vc escolhe o PATH coloquei c:\ só para simplificar.
Caminho1:=ArqIni.ReadString('Dados','Caminho','' );
ShowMessage(Caminho1);
end;
O ShowMessage mostra o caminho completo de [Dados] Caminho descrito no
arquivo sys.ini
Ok !
--
--
Adilson Nunes - tetraetila®
?
õ¿õ¬
(¬)
Linux Registered User # 272492
--
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
