SISTEMA DELOCACAO DE VEICULOS EM VB 6
Olá
estou precisando de um sistema de locação deveiculos
ja fiz o cadastroo
de clientes e de veiculos
mais nao sei como fazer o cadastro de movimentaçaooo
alguem,tem algum exemploo prontoo
ou pode me ajudar
agradeçoo
estou precisando de um sistema de locação deveiculos
ja fiz o cadastroo
de clientes e de veiculos
mais nao sei como fazer o cadastro de movimentaçaooo
alguem,tem algum exemploo prontoo
ou pode me ajudar
agradeçoo
Encontrar um [Ô]exemplo pronto[Ô] acho meio difÃcil, mas...
Dá uma olhada neste link, e vê se não te ajuda.
http://www.infosistemas.com.br/produtos_locavia.htm
Dá uma olhada neste link, e vê se não te ajuda.
http://www.infosistemas.com.br/produtos_locavia.htm
Tente Pesquisar Algumas Telas de Empresas Com As Regras de Negocio..
Pra Entender Certinho..
Pra Entender Certinho..
cria + ou - isso
cadserv
serv_cod
serv_desc
serv_veic
serv_anof
serv_dias
serv_multa
serv_valor
ai faz uma tela de contrato
faça uma tela a qual chava precisa relacionar entao precisara criar uma tabela assim
cadcontrato
cont_cod
cont_clie
cont_veic
cont_serv
cont_valor
os dados das tabelas de cadastros tera que puxar pra essa tela contrato
Private Sub TxtCodCliente_KeyPress(KeyAscii As Integer)
Dim rs As New ADODB.Recordset
If KeyAscii = 13 Then
rs.Open [Ô]select Nome_RazSoc from cliente where Cod_Cliente=[Ô] & TxtCodCliente.Text, conexao
If rs.EOF Then
LblCliente.Caption = [Ô][Ô]
MsgBox [Ô]Esse Cliente Não Existe ![Ô]
Else
LblCliente.Caption = rs([Ô]Nome_RazSoc[Ô])
End If
End If
End Sub
Private Sub TxtCodVeiculo_KeyPress(KeyAscii As Integer)
Dim rs As New ADODB.Recordset
If KeyAscii = 13 Then
rs.Open [Ô]select Marca, Modelo from Veiculo where Cod_Veiculo=[Ô] & TxtCodVeiculo.Text, conexao
If rs.EOF Then
LblVeiculo.Caption = [Ô][Ô]
MsgBox [Ô]Este Veiculo Não Existe ![Ô]
Else
LblVeiculo.Caption = rs([Ô]Marca[Ô]) & [Ô]/[Ô] & rs([Ô]Modelo[Ô])
End If
End If
End Sub
crie os dados que sairao no contrato
como dt hora inicio locacao .... dt hora final locacao valor final. etc
o ramo locacao é prestacao de serviços tera que emitir contratos
depois faça um relatorio colocando campos de cliente veiculo contato e servico nesse relatorio
a partir dai tera os cadastros e o contrato
dai acho que ja da pra comecar a funcionar
Abs Marcelo fazan
cadserv
serv_cod
serv_desc
serv_veic
serv_anof
serv_dias
serv_multa
serv_valor
ai faz uma tela de contrato
faça uma tela a qual chava precisa relacionar entao precisara criar uma tabela assim
cadcontrato
cont_cod
cont_clie
cont_veic
cont_serv
cont_valor
os dados das tabelas de cadastros tera que puxar pra essa tela contrato
Private Sub TxtCodCliente_KeyPress(KeyAscii As Integer)
Dim rs As New ADODB.Recordset
If KeyAscii = 13 Then
rs.Open [Ô]select Nome_RazSoc from cliente where Cod_Cliente=[Ô] & TxtCodCliente.Text, conexao
If rs.EOF Then
LblCliente.Caption = [Ô][Ô]
MsgBox [Ô]Esse Cliente Não Existe ![Ô]
Else
LblCliente.Caption = rs([Ô]Nome_RazSoc[Ô])
End If
End If
End Sub
Private Sub TxtCodVeiculo_KeyPress(KeyAscii As Integer)
Dim rs As New ADODB.Recordset
If KeyAscii = 13 Then
rs.Open [Ô]select Marca, Modelo from Veiculo where Cod_Veiculo=[Ô] & TxtCodVeiculo.Text, conexao
If rs.EOF Then
LblVeiculo.Caption = [Ô][Ô]
MsgBox [Ô]Este Veiculo Não Existe ![Ô]
Else
LblVeiculo.Caption = rs([Ô]Marca[Ô]) & [Ô]/[Ô] & rs([Ô]Modelo[Ô])
End If
End If
End Sub
crie os dados que sairao no contrato
como dt hora inicio locacao .... dt hora final locacao valor final. etc
o ramo locacao é prestacao de serviços tera que emitir contratos
depois faça um relatorio colocando campos de cliente veiculo contato e servico nesse relatorio
a partir dai tera os cadastros e o contrato
dai acho que ja da pra comecar a funcionar
Abs Marcelo fazan
Tópico encerrado , respostas não são mais permitidas