cassitos
-
Total de itens
43 -
Registro em
-
Última visita
Posts postados por cassitos
-
-
dae galera!!! problema resolvido! vlw ae!!
STX = Chr(2)
ETX = Chr(3)
o restante é administrar a porta serial.
-
tipo entrei em contato com o fabricante e ofereceram um cabo p/ conectar ao teclado em vez da com1...
estive fazendo uns testes e acredito estar bem perto de resolver...
não sei os comandos equivalentes ao ETX (fim de transmissão) e STX (início de transmissão), tipo qual comando passar assim:
MSComm1.Output = [comando equivalente ao STX], já tentei VbCr
MSComm1.Output = [comando equivalente ao ETX]
mas na verdade sei absolutamente nada destes comandos
alguém conhece alguma referência? to pesquisando na net mas nada ainda...
vlw
-
vlw pessoal, imaginei mesmo isso... o cliente possui este leitor que funciona num programa em DOS, mas não existe nenhuma documentação/manual ou qualquer outra informação que possa ajudar na configuração.
vou tentar entrar em contato com o fabricante.
vlws!
-
Bom dia,
galera estou precisando fazer um sistema para receber informações da porta COM1 (RS232).
O leitor de cheques é do modelo L50 da DataCheck. Acessei o site da fabricante mas não há uma documentação do produto, e não sei q comando enviar a string de inicialização para o leitor, ou até mesmo receber informações da COM1.
alguém sabe algum site ou como fazer esta comunicação?
Já tentei várias funções do objeto MSComm, mas não obtêm resposta...
entre os testes já fiz:
http://www.macoratti.net/vb_comm.htm, http://www.macoratti.net/vbserial.htm. Entre outros...
vlw
-
ehehe pesquisei o help do Delphi e tem uma função IsValidDate que foi muito útil...
-
E ae!!
Criei uma função para montar data de acordo com parâmetros Dias, Mes e Ano:
function PreparaData(Dia,Mes,Ano: Integer):TDateTime;var
textoData: String;
begin
if ((Mes = 2) Or (Mes = 4) Or (Mes = 6) Or (Mes = 9) Or (Mes = 11)) Then
begin
If (Dia = 31) Then Dia := 30;
end;
if (Mes = 2) Then
begin
if (Dia >= 30) then Dia := 29;
end;
textoData:=IntToStr(Dia) + '/' + IntToStr(Mes) + '/' + IntToStr(Ano);
//verificar se é data válida
try
begin
StrToDate(textoData);
end;
except on EConvertError do
begin
Dia:=Dia-1;
textoData:=IntToStr(Dia) + '/' + IntToStr(Mes) + '/' + IntToStr(Ano);
end;
end;
PreparaData:=StrToDate(textoData);
end;
Mas se tentar montar uma data inválida, dá uma mensagem de erro e só depois passa pelo except.
Sou novato em delphi... como faço p/ que não apareça tal mensagem?
Project Project1.exe raised exception class EConvertError withmessage "29/2/2005" is not a valid date1.
Process stopped. Use Step or Run to continue.
A data foi informada errada de propósito, aí dá este erro, vou fazendo passo-a-passo e passa pelo exception.
Preciso fazer com que esta mensagem não apareça.
Tem como??
-
opa!!!
Resolvido! Eu que esqueci de abrir a query depois de seguir as dicas ae ehehe
muito Obrigado!
-
lol
Vlw cara.
Eu já tinha feito isso, o subcliente tá linkado ao dataset e este data está ligado ao cliente.
ueh...
putz é um relatório tão simples ehehe
bom, agora só falta aparecer os dados do subcliente...
um resumo das propriedades:
QryCliente:
Database = Banco
DataSource = "vazio"
SQL = "SELECT CODCLIENTE, NOMECLIENTE FROM CLIENTE"
Fields = CODCLIENTE, NOMECLIENTE
DSCliente:
AutoEdit = True
DataSet = QryCliente
Enabled = True
QrySubCliente:
Database = Banco
DataSource = DSCliente
SQL = "SELECT NOMESUBCLIENTE FROM CLIENTE WHERE CODCLIENTE = :CODCLIENTE"
Fields = NOMESUBCLIENTE
Params = CODCLIENTE
tem mais alguma configuração? o.O
vlw
-
E galera, beleza!!??
Preciso montar um relatório que terão duas Queries:
1 - Select da tabela de Clientes (SELECT * FROM CLIENTES)
2 - De acordo com cada cliente, deve exibir os subclientes: (SELECT * FROM SUBCLIENTES WHERE CODCLIENTE =:CODCLIENTE).
beleza. O relatório está pronto até a parte dos clientes, mas não estou conseguindo fazer com que a segunda query receba o parâmetro p/ utilizar o CODCLIENTE.
Já adicionei um Parametro na segunda query, mas é como se não estivesse recebendo o valor.
O que pode estar faltando?
plz
-
ae galera!!!
sou novato no VB.Net, eu tava muito preso só a VB6 ehehehe
tipo... alguém conhece um site q eu possa baixar uma boa apostila sobre O.O. e alguns conceitos do VB.Net, dava fazendo uns testes aki e nem consegui mostrar uma mensagem (msgbox) ehehe
baixei o SharpDevelop como o pessoa indicou: muito bom!!!
vlw!
-
cara... se o driver da impressora possui o tipo de papel personalizado, aí você pode definir tamanho... senão o valor será sempre o padrão.
-
-
fala ae galera, beleza?
tipo, instalei recentemente o phpmyadmin, segui todo o procedimento básico: IIS+PHP+PhpMyAdmin, tá funfando beleza
só que agora preciso deixar o acesso via login, porque o padrão é o usuário root... qualquer um que digitar o endereço irá acessar todo o mysql... ehehe
então eu vi o seguinte trecho na página config.inc.php :
/*** Server(s) configuration
*/
$i = 0;
// The $cfg['Servers'] array starts with $cfg['Servers'][1]. Do not use $cfg['Servers'][0].
// You can disable a server config entry by setting host to ''.
$i++;
$cfg['Servers'][$i]['host'] = 'localhost'; // MySQL hostname or IP address
$cfg['Servers'][$i]['port'] = '3306'; // MySQL port - leave blank for default port
$cfg['Servers'][$i]['socket'] = ''; // Path to the socket - leave blank for default socket
$cfg['Servers'][$i]['connect_type'] = 'tcp'; // How to connect to MySQL server ('tcp' or 'socket')
$cfg['Servers'][$i]['extension'] = 'mysql'; // The php MySQL extension to use ('mysql' or 'mysqli')
$cfg['Servers'][$i]['compress'] = FALSE; // Use compressed protocol for the MySQL connection
// (requires PHP >= 4.3.0)
$cfg['Servers'][$i]['controluser'] = ''; // MySQL control user settings
// (this user must have read-only
$cfg['Servers'][$i]['controlpass'] = ''; // access to the "mysql/user"
// and "mysql/db" tables).
// The controluser is also
// used for all relational
// features (pmadb)
$cfg['Servers'][$i]['auth_type'] = 'http'; // Authentication method (config, http or cookie based)?
$cfg['Servers'][$i]['user'] = 'root'; // MySQL user
a variavel: $cfg['Servers'][$i]['auth_type'] está como http. beleza!
só que qualquer usuário com sua respectiva senha não está sendo validada corretamente, como se não existisse, dá esta mensagem:
HTTP 401.3 - Acesso negado devido à ACL no recursoInternet Information Services
o que pode está faltando???
-
beleza cara.
vou pesquisar, porque depois consegui corrigir o erro ehehe
mas o cliente tá dizendo que quando abre o documento pelo sistema está "congelando" o Excel.
vo procurar sobre este objeto ae.
vlw
-
lol
eu estou utilizando o Objeto do Excel, e tentava abrir o documento com este objeto ainda aberto, por algum motivo não dava mensagem nenhuma... simplesmente sai do excel.
mas tudo resolvido.
flws
-
fala galera!
seguinte pesquisei ae pela net sobre o ShellExecute
tá acontecendo algo que não entendi ainda o por que, declarei num módulo:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongConst SW_NORMAL = 1 ' normal
Const SW_SHOWMAXIMIZED = 3 ' maximizado
e chamo a função assim:
NomeDest = "C:\Pasta do HSA\MR Informática\Transvip\Tesouraria\Processamento.xls"ShellExecute Me.hwnd, "Open", Chr(34) & NomeDest & Chr(34), vbNullString, vbNullString, SW_SHOWMAXIMIZED
ele abre rapidamente o Excel e fecha!?!?!?!
to precisando urgente utilizar esta rotina...
any help?
-
também usei dbf num projeto aki...
esta "tabela.dbf" no sql não precisa da extensão, basta informar no nome da tabela normalmente, se for tabela então: SELECT * FROM TABELA.
-
eu também tive esse problema.
gerei o executável pelo Package do visual studio no win2000 e quando instalei no 98...
nem entrava mais no windows...
fiz igual o Graymalkin flow.
-
preencher DBGrid manualmente, se não me engano, não dá.
Ele é apropriado para conexão via DataControl por Exemplo.
Um que você pode preencher manualmente é o FlexGrid.
-
faz muito tempo que não uso DBGrid, não lembro se retorna mensagem de erro do SQL.
Mas a sua tabela no banco de dados tem acento? Histórico?
Executa esta consulta no Access por exemplo e certifique-se de que está tudo certo.
-
bem, isso pode ser permissão, o mysql por padrão já libera acesso completo ao usuário root (tanto local quanto %)
agora quando não é root, não lembro, mas se o padrão para host % (não local) é apenas SELECT liberado.
você pode obter mais informações na base de dados mysql, tabela user. lá que é registrado todos os acessos.
-
já tentou depois do data2.refresh fazer:
DnGrid1.Refresh??
-
-
e qual o nome do banco de dados que você escolheu?
pode ser caracter inválido, espaço no nome, coisas do tipo.
Dimensões Do Form
em Visual Basic
Postado
você pode definir a propriedade BorderStyle como FixedSingle do(s) formulário(s) e se for o caso, a propriedade MinButton como True.