Exemplo Completo MariaDB

[Cassiano de Oliveira]

Esta disponí­vel para download um exemplo completo que contém:
Criar Banco de Dados em MariaDB
Criar Tabela
DataSource
DataSets
DbBrowse
MemDataSet
StatusBar
ToolBar
Incluir (Anadir)
Alterar (Cambiar)
Excluir (Borrar)
Pesquisar
Imprimir
Outros Recursos
Enviei para área de Downloads do Xailer, porém não sei porque não ficou
disponí­vel.
Em todo caso segue outro link para download.
https://skydrive.live.com/?mkt=pt-BR#ci ... 919006A&am p;id=A836FB015919006A%21153
[]´s

[jfgimenez]

Cassiano,
> Esta disponí­vel para download um exemplo completo que contém:
>
> Criar Banco de Dados em MariaDB
> Criar Tabela
> DataSource
> DataSets
> DbBrowse
> MemDataSet
> StatusBar
> ToolBar
> Incluir (Anadir)
> Alterar (Cambiar)
> Excluir (Borrar)
> Pesquisar
> Imprimir
> Outros Recursos
>
> Enviei para área de Downloads do Xailer, porém não sei porque não
> ficou disponí­vel.
> Em todo caso segue outro link para download.
> https://skydrive.live.com/?mkt=pt-BR#ci ... 919006A&am p;id=A836FB015919006A%21153
>
Ya está aprobada la subida: http://www.xailer.com/download?file=101
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[emeasoft]

Cassiano.
Parabéns!!
Mário Angelini

[Cassiano de Oliveira]

Vlw Mário o mérito tb é seu, afinal vc me ajudou bastante.
[]´s
"www[dot]eMeAsOfT[dot]com" wrote in message
news:5211e7e6$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Cassiano.
Parabéns!!
Mário Angelini
--
http://www.eMeAsOfT.com
http://emeasoft.blogspot.com/
http://twitter.com/emeasoft
http://www.facebook.com/emeasoft
https://plus.google.com/102999253031532804222
http://g.co/maps/26gey

[Cassiano de Oliveira]

Ví­deo de como instalar o Xailer, configurar ambiente e testar o projeto
exemplo.
http://www.youtube.com/watch?feature=pl ... bedded&v=M KQQcEaAvd4
[]´s
"Cassiano de Oliveira" wrote in message news:52114d1e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Esta disponí­vel para download um exemplo completo que contém:
Criar Banco de Dados em MariaDB
Criar Tabela
DataSource
DataSets
DbBrowse
MemDataSet
StatusBar
ToolBar
Incluir (Anadir)
Alterar (Cambiar)
Excluir (Borrar)
Pesquisar
Imprimir
Outros Recursos
Enviei para área de Downloads do Xailer, porém não sei porque não ficou
disponí­vel.
Em todo caso segue outro link para download.
https://skydrive.live.com/?mkt=pt-BR#ci ... 919006A&am p;id=A836FB015919006A%21153
[]´s

[wmsei]

Cassiano boa noite,
Estou trabalhando a pouco tempo com Xailer e baixei um de seus exemplos Agenda, não instalei o MariaDB, pois já tinha instalado o MySql. Quando compilo seu exemplo da as seguintes mensagens de erro:
A compilar: agenda.prg...
A compilar: frmAgenda.prg...
A compilar: agenda.rc...
A compilar: frmNovoContato.prg...
A compilar: frmPesquisar.prg...
A linkar: agenda.exe...
C:XailerHB32compmingwBinwindres: D:SistemasAgendaObjagenda.resources: Not a valid WIN32 resource file
C:XailerHB32compmingwBinld: cannot find D:/Sistemas/Agenda/Obj/agenda.o: No such file or directory
C:XailerHB32compmingwBinld: cannot find D:/Sistemas/Agenda/Obj/frmAgenda.o: No such file or directory
C:XailerHB32compmingwBinld: cannot find D:/Sistemas/Agenda/Obj/frmNovoContato.o: No such file or directory
C:XailerHB32compmingwBinld: cannot find D:/Sistemas/Agenda/Obj/frmPesquisar.o: No such file or directory
5 Files, 0 Warnings, 5 Errors
Compilar tempo: 0.50s Linkar tempo: 0.30s Tempo total: 0.82s
Fiz como recomendado por vocíª, tirando o comentario dessa linha:
AppData:AddData("oDS", TMySQLDataSource():Create()).
E ainda referente a esse exemplo, tento criar uma nova aplicação dessa forma:
Procedure Main()
Application:cTitle := "agenda"
INISYSTEM()
Application:Run()
RETURN
mas quando mando compilar é desconsiderado a linha INISYSTEM() e colocado a chamada para o primeiro form, tem alguma configuração que preciso alterar para que isso funcione da maneira que vocíª usa em seus aplicativos.
Grato pelo retorno e atenção
Wagner Monteiro dos Santos
Ambiente: WinXp, Xailer 3.02, MingW gcc 4.7.1

[Cassiano de Oliveira]

Boa noite Wagner...
Vc assistiu o ví­deo q eu fiz q mostro como rodar o projeto Agenda e tudo
mais q vc comentou?
Vc pode deixar o MariaDB do Projeto q ele tb acessa base MySQLs
Assista o ví­deo caso não tenha assistido e se mesmo assim tiver dificuldades
poste aki....
Ví­deo de como instalar o Xailer, configurar ambiente e testar o projeto
exemplo.
http://www.youtube.com/watch?feature=pl ... bedded&v=M KQQcEaAvd4
Passa teu Skype q se der te ajudo tb pelo Skype.
[]´s
Cassiano.
"Wagner" wrote in message news:524a13ff$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Cassiano boa noite,
Estou trabalhando a pouco tempo com Xailer e baixei um de
seus exemplos Agenda, não instalei o MariaDB, pois já
tinha instalado o MySql. Quando compilo seu exemplo da as
seguintes mensagens de erro:
A compilar: agenda.prg...
A compilar: frmAgenda.prg...
A compilar: agenda.rc...
A compilar: frmNovoContato.prg...
A compilar: frmPesquisar.prg...
A linkar: agenda.exe...
C:XailerHB32compmingwBinwindres:
D:SistemasAgendaObjagenda.resources: Not a valid WIN32
resource file
C:XailerHB32compmingwBinld: cannot find
D:/Sistemas/Agenda/Obj/agenda.o: No such file or directory
C:XailerHB32compmingwBinld: cannot find
D:/Sistemas/Agenda/Obj/frmAgenda.o: No such file or
directory
C:XailerHB32compmingwBinld: cannot find
D:/Sistemas/Agenda/Obj/frmNovoContato.o: No such file or
directory
C:XailerHB32compmingwBinld: cannot find
D:/Sistemas/Agenda/Obj/frmPesquisar.o: No such file or
directory
5 Files, 0 Warnings, 5 Errors
Compilar tempo: 0.50s Linkar tempo: 0.30s Tempo total:
0.82s
Fiz como recomendado por vocíª, tirando o comentario dessa
linha:
AppData:AddData("oDS", TMySQLDataSource():Create()).
E ainda referente a esse exemplo, tento criar uma nova
aplicação dessa forma:
Procedure Main()
Application:cTitle := "agenda"
INISYSTEM()
Application:Run()
RETURN
mas quando mando compilar é desconsiderado a linha
INISYSTEM() e colocado a chamada para o primeiro form, tem
alguma configuração que preciso alterar para que isso
funcione da maneira que vocíª usa em seus aplicativos.
Grato pelo retorno e atenção
Wagner Monteiro dos Santos
Ambiente: WinXp, Xailer 3.02, MingW gcc 4.7.1

[wmsei]

Cassiano boa noite,
Revi o ví­deo, vi que a versão que baixei novamente, no pctoledo a mesma versão que o fladimir postou em 18/08/2013, vi que estava faltando justamente a parte onde vocíª cria a CriaTabelas(), teria como enviar esse exemplo direto por e-mail?
Um outra duvida é referente ao trecho do programa principal, onde tem a função INISYSTEM(), faço dessa forma, mas quando compilo desaparece essa linha e no seu lugar aparece a frmAgenda():New( Application ):Show(), fiz exatamente como no ví­deo nas Configuraçíµes de Ambiente.
Procedure Main()
Application:cTitle := "agenda"
INISYSTEM()
Application:Run()
RETURN
Meu Skype é wmseis (Wagner Monteiro dos Santos)
Grato pelo retorno e atenção.
Wagner Monteiro dos Santos

[Cassiano de Oliveira]

Com relação ao INISYSTEM eu respondi no fórum do Toledo, dá uma lida lá e ve
se vc entende...
http://www.pctoledo.com.br/forum/viewto ... ?f=47&t=14 398#p84043
Com relação a função CriaTabelas() q defini no ví­deo quando explicava segue
abaixo....
FUNCTION CriaTabelas( oBD, cBanco, cMsgError, lOk)
LOCAL aTabelas := {}
LOCAL cCmdQuery := ''
aTabelas := :QueryArray( 'SHOW TABLES IN ' + cBanco)
oBD:Disconnect()
oBD:cDatabase := cBanco
IF oBD:Connect()
IF Len( aTabelas ) == 0 // Banco vazio sem tabelas
cCmdQuery := "CREATE TABLE `CONTATOS` (" +;
"`CODIGO` INT(10) NOT NULL AUTO_INCREMENT, " +;
"`NOME` CHAR(50) NULL, " +;
"PRIMARY KEY (`CODIGO`), " +;
"INDEX `NOME` (`NOME`)" +;
") " +;
"COLLATE='latin1_swedish_ci' " +;
"ENGINE=InnoDB " +;
"AUTO_INCREMENT=1;"
IF ! oBD:Execute( cCmdQuery )
MsgStop( cMsgError )
RETURN lOk
ENDIF
ENDIF
ENDIF
RETURN lOk
Qualquer dúvida vai postando ai que vamos se ajudando...
[]´s
Cassiano.
"Wagner" wrote in message news:524cd3e5$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Cassiano boa noite,
Revi o ví­deo, vi que a versão que baixei novamente, no
pctoledo a mesma versão que o fladimir postou em
18/08/2013, vi que estava faltando justamente a parte onde
vocíª cria a CriaTabelas(), teria como enviar esse exemplo
direto por e-mail?
Um outra duvida é referente ao trecho do programa
principal, onde tem a função INISYSTEM(), faço dessa
forma, mas quando compilo desaparece essa linha e no seu
lugar aparece a frmAgenda():New( Application ):Show(), fiz
exatamente como no ví­deo nas Configuraçíµes de Ambiente.
Procedure Main()
Application:cTitle := "agenda"
INISYSTEM()
Application:Run()
RETURN
Meu Skype é wmseis (Wagner Monteiro dos Santos)
Grato pelo retorno e atenção.
Wagner Monteiro dos Santos

[wmsei]

Cassiano boa noite,
Antes de mais nada obrigado!
Consegui implementar a função funcionou, mas esta acontecendo uma coisa estranha quando faço qualquer mudança e mando compilar aparece a seguinte mensagem: Xailer: Erro ao eliminar arquivo D:SistemasAgendaagenda.exe (5)
Vocíª saberia me dizer o que preciso para corrigir isso, pois se vou na pasta e apago o arquivo compila e executa sem problemas.
E quanto INISYSTEM, vi no fórum do Toledo, vou fazer nesse meu projeto.
Grato pelo retorno e atenção.
Wagner Monteiro dos Santos

[Cassiano de Oliveira]

Q bom q deu certo...
Quanto ao erro q vc esta tendo eu nunca vi nada parecido, mas acredito q não
seja algo do Xailer e sim do Windows q não esta deixando o Xailer apagar o
arquivo, somente qdo vc vai e apaga manualmente...
Faz um teste, pressiona o botão direito no atalho q vc chama o Xailer e pede
pra abrir como administrador e veja se resolve... vc já reiniciou o
computador pra testar? Pergunto pois uma vez tive problemas semelhantes, Não
com o Xailer e sim de ter q ir e apagar arquivos manualmente pois não
apagavam a partir de determinadas apps e reinicei o sistema e parou tipo
como se o Windows tivesse barrando...
Não sei se tem algo a ver, mas são itens pra vc testar e analisar.
Vamos se ajudando...
[]´s
Cassiano.
"Wagner" wrote in message news:524e1218$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Cassiano boa noite,
Antes de mais nada obrigado!
Consegui implementar a função funcionou, mas esta
acontecendo uma coisa estranha quando faço qualquer
mudança e mando compilar aparece a seguinte mensagem:
Xailer: Erro ao eliminar arquivo
D:SistemasAgendaagenda.exe (5)
Vocíª saberia me dizer o que preciso para corrigir isso,
pois se vou na pasta e apago o arquivo compila e executa sem
problemas.
E quanto INISYSTEM, vi no fórum do Toledo, vou fazer nesse
meu projeto.
Grato pelo retorno e atenção.
Wagner Monteiro dos Santos