|
Obs.:
Usuários do XP em alguns caso e necessário registrar
a dll midas.dll
Senha padrão do Admin.: 1234
Como executar
relatórios gerados pelos SCRIBES através de outra
aplicação ,este exemplo e em VB mas para outras Ferramentas
a lógica e mesma
Private Sub CmdEdm_Click()
Vl_Str_Text1 = Text1.Text
'Database
Vl_Str_Text2 = Text2.Text 'user
Vl_Str_Text3 = Text3.Text 'pass
Vl_Str_Text4 = Text4.Text 'server
Vl_Str_Text5 = Text5.Text 'dir
Vl_Str_Text6 = Text6.Text 'port
Vl_Str_Text7 = Text7.Text 'Type (ex.:firebird-1.5)
Vl_Str_Text8 = Text8.Text 'se este não for passado ele abre
o menu com relatorios do diretorio (nome do relatório em
espaço em branco)
ChamaPrograma = "c:\scribes\ScribesR.exe "
ChamaPrograma = ChamaPrograma & Vl_Str_Text1 & " "
ChamaPrograma = ChamaPrograma & Vl_Str_Text2 & " "
ChamaPrograma = ChamaPrograma & Vl_Str_Text3 & " "
ChamaPrograma = ChamaPrograma & Vl_Str_Text4 & " "
ChamaPrograma = ChamaPrograma & Vl_Str_Text5 & " "
ChamaPrograma = ChamaPrograma & Vl_Str_Text6 & " "
ChamaPrograma = ChamaPrograma & Vl_Str_Text7 & " "
ChamaPrograma = ChamaPrograma & Vl_Str_Text8 & " "
ReturnValue = Shell(ChamaPrograma, 1)
End;
|