Postagens

Mostrando postagens de 2010

Tutorial Sistema pedidos com paradox – parte 2

Imagem
Tutorial Sistema pedidos com paradox – parte 2
Neste novo tutorial a professora começou com a aplicação de um Data Module, conforme figura abaixo você pode ver como criar um novo, a e antes de tudo um aviso importante sempre quando for testar os campos não se esqueça de ativar as tabelas ,senão não funciona.
E segunda coisa para cada vez que você for arrumar nos forms as tabelas por que agora elas não estão mais lá você precisara usar file>useunit> e escolher a opção DMDados, e em todo lugar onde citava o nome de suas tabelas terá que vir com DMDados antes,por exemplo:
DMDados.TCliente.nome//esse código seria para parte do nome do cliente
E terá que fazer assim por diante em todas as tabelas.

O Data Module foi salvo como UDados, é aqui que vamos colocar nossas tabelas agora ao invés de em cada formulário temos que colocar as tabelas que vão ser utilizadas.Nas propriedades do Data Module você vai ter que configurar o name para DMDados, importante seguir essa sequencia de nomes pois v…

Mensagens em Delphi

Imagem
Mensagens em Delphi0Mensagens em Delphi
1 - MessageDLG(mensagem, tipo, [botões],contexto de ajuda);
Tipo: mtWarning
mtError

mtInformation

mtConfirmation

mtCustom

Botões: [mbYes]

[mbNo]

[mbOK]

[mbCancel]

[mbHelp]

[mbAbort]

[mbRetry]

[mbIgnore]

[mbAll]

Contexto de ajuda = 0

Valores diferentes de 0 (zero) utilizado só para help on-line;

Constantes: mrNo

mrOK

mrCancel

mrHelp

mrAbort

mrIgnore

mrRetry

mrAll



Exibe uma Caixa de Mensagem e obtem uma resposta do usuário.

Onde
Msg: Mensagem
AType : Tipo da caixa de mensagem

Value Meaning

mtWarning A message box containing a yellow exclamation point symbol.

mtError A message box containing a red stop sign.

mtInformation A message box containing a blue "i".

mtConfirmation A message box containing a green question mark.

mtCustom A message box with no bitmap. The caption of the message box is the name of the application's executable file.
AButtons : Quais botões aparecerão na caixa de mensagem
Value Meaning

mbYes A button with the text 'Yes' on its face

mbNo A butt…

Classe conexão Java com Firebird

Imagem
Classe conexão Java com Firebird
import java.sql.*;

public class AcessoBD{
/*************************************************************
ATRIBUTOS
*************************************************************/
//Banco de Dados
private String NomeDSN;
private String ConexaoDSN;
private Connection objConexao;
private Statement objComando;
/*************************************************************
CONSTRUTOR
*************************************************************/
public AcessoBD(){
// Inicializando os atributos
NomeDSN        = "bd_teste";
ConexaoDSN    = "jdbc:odbc:" + NomeDSN;
}

/*************************************************************
PROPRIEDADES
*************************************************************/
private String getConexaoDSN(){
return ConexaoDSN;
}

/*************************************************************
MÉTODOS
*************************************************************/
private Connection AbreConexaoBD(){
Connection objCon;
// Abrindo a conexão com o banc…

Onde está cada componente do delphi

Imagem
Onde está cada componente do delphi
Aba Standard:
* Frames - Standard
* MainMenu - Standard
* PopupMenu - Standard
* Label - Standard
* Edit - Standard
* Memo - Standard
* Button - Standard
* CheckBox - Standard
* RadioButton - Standard
* ListBox - Standard
* ComboBox - Standard
* ScrollBar - Standard
* GroupBox - Standard
* RadioGroup - Standard
* Panel - Standard
* ActionList - Standard
Aba Additional:
* BitBtn - Additional
* SpeedButton - Additional
* MaskEdit - Additional
* StringGrid - Additional
* DrawGrid - Additional
* Image - Additional
* Shape - Additional
* Bevel - Additional
* ScrollBox - Additional
* CheckListBox - Additional
* Splitter - Additional
* StaticText - Additional
* ControlBar - Additional
* ApplicationEvents - Additional
* ValueListEditor - Additional
* LabeledEdit - Additional
* ColorBox - Additional
* Chart - Additional
* ActionManager - Additional
* ActionMainMenuBar - Additional
* ActionTollBar - Additional
* XPColorMap - Additional
* StandardColorMap - Additional
* TwilightColorMap - Additional
* …

Condicional para datas em um MaskEdit

Imagem
Condicional para datas em um MaskEdit
Para usa-lo de dois cliques sobre o componente ,assim você irá para o evento OnChange e cole lá.

procedure TForm1.MaskEdit1Exit(Sender: TObject);
begin
try
StrToDate(MaskEdit1.Text);
except
on EConvertError do
ShowMessage ('Data Inválida!');
end;
end;
Autor: Thyago Henrique Pacher
Nosso pessoal é especializado em produção de sistemas para nuvem de acordo com o que for necessário para sua empresa e altamente configurável. Entre em contato conosco e podera ter seu sistema até hoje mesmo com máximo de garantia de dados salvos na nuvem e podendo recupera-los a hora que quiser. Temos em nosso portfólio o desenvolvimento de bons e grandes sistemas cujo são voltados para condominios ficando em GestCCon Sistema Concierge, JedisaMunck site para muncks, Site para advogados Ronald Arruda, empresas de consignação de créditos, sites institucionais, sites para cursos online com integração a plataformas famosas tais como moodle.
Utilizamos no nosso dia a dia as melho…

Lendo e gravando arquivos no delphi

Imagem
Lendo e gravando arquivos no delphi0Lendo e gravando arquivos no delphi
Existem vários métodos em Delphi para gravar arquivos texto a partir de informações gravadas em bases de dados ou para ler arquivos texto e armazená-los em bases de dados. Esta dica apresenta um destes métodos: o uso de TextFiles. TextFile é um tipo de dado pré-definido no Delphi e corresponde ao tipo Text do Turbo Pascal e do Object Pascal. Inicialmente para acessar um arquivo de texto, você precisa definir uma variável tipo TextFile, no local que você achar mais apropriado, da seguinte forma:
var arq: TextFile;
Vamos precisar também de um variável tipo string para armazenar cada linha lida do arquivo:
var linha: String;
Antes de se iniciar a leitura do arquivo, precisamos associar a variavel TextFile com um arquivo fisicamente armazenado no disco:
AssignFile ( arq, 'C:AUTOEXEC.BAT' );
Reset ( arq );
A rotina AssignFile faz a associação enquanto Reset abre efetivamente o arquivo para leitura.AssignFile correspond…

Linguagens de programação,qual utilizar?

Imagem
Linguagens de programação,qual utilizar?

Ao começar com o mundo da programação a primeira coisa que você pensa é em qual linguagem vou utilizar ? Nessa ora a melhor dica é escolher a qual melhor você se adapte .

Autor: Thyago Henrique Pacher
Nosso pessoal é especializado em produção de sistemas para nuvem de acordo com o que for necessário para sua empresa e altamente configurável. Entre em contato conosco e podera ter seu sistema até hoje mesmo com máximo de garantia de dados salvos na nuvem e podendo recupera-los a hora que quiser. Temos em nosso portfólio o desenvolvimento de bons e grandes sistemas cujo são voltados para condominios ficando em GestCCon Sistema Concierge, JedisaMunck site para muncks, Site para advogados Ronald Arruda, empresas de consignação de créditos, sites institucionais, sites para cursos online com integração a plataformas famosas tais como moodle.
Utilizamos no nosso dia a dia as melhores ferramentas

Medicina Alternativa de outro jeito

Imagem
Medicina Alternativa de outro jeito0Medicina Alternativa de outro jeito
[caption id="" align="alignnone" width="320"] Medicina Alternativa de outro jeito[/caption]

Existem diferentes métodos de medicina alternativa nos dias atuais,desde plantas medicinais (aquelas que muitos dos nossos avos usam), acumputura (não é usado na medicina por isso considerado como uma técnica alternativa).
Apesar de todo tratamento ajudar desde já declaro que é sempre bom antes saber a opinião de um médico a respeito sobre o assunto para não se exceder em dossagens. Antes de os grandes fabricantes farmáceuticos criarem os remédios em cápsulas tudo era feitos atráves das plantas,no mundo em que vivemos temos uma enorme variedade de plantas medicinais e a cada dia estão sendo encontradas mais plantas.As novas plantas encontradas nos ajudam a cuidar dos mais diferentes males, doenças antes que não haviam cura a sociedade atual consegue com ajuda de indigenas descobri-las e assim ajud…