Documentação

---

RESUMO

Somos a Empresa AutoEx que desenvolve ágeis,simples e eficientes softwares de alta qualidade e preço acessível criado especialmente para agenciar e facilitar a administração de empresas do ramo de produtos automobilísticos.

Temos como objetivo satisfazer as necessidades e exigências do cliente facilitando assim o processo de troca de dados e o gerenciamento da empresa.

Garantimos total facilidade de manuseio e satisfação ao usufruir de nossos softwares que são criativos e abrangem todas operações da empresa, desde a entrada de dados cadastrais, passando pelo faturamento, pelo financeiro até a geração de relatórios gerenciais e integração com outros sistemas.
Desta maneira, propiciam ao cliente total conhecimento do negócio, análise em profundidade dos resultados e apoio a tomada de decisões, possibilitando ação imediata.

---

INTRODUÇÃO

A Empresa Autoex proporciona ágeis e eficientes softwares de administração de Autopeças para empresas que comerciam peças automobilísticas.

Nossos softwares são desenvolvidos com muito empenho para satisfazer nossos clientes. Desse modo desenvolvemos os programas de acordo com as exigências e necessidades do cliente tentando satisfazê–los. Nosso software é robusto, estável, simples e de fácil utilização.

---

LINHAS DE CÓDIGO

Senha

Private Sub imgok_Click()

If  txtsenha.Text <> "" And txtconfirma.Text <> "" Then

If  txtsenha.Text = txtconfirma.Text Then

                inst_sql = "Update usuario Set senha = '" & txtsenha.Text & "' where cod_pessoa = "   & cod_pessoa & ""

               cnn.Execute inst_sql

               MsgBox "Senha Alterada Com Sucesso !", vbInformation, "Ok"

 txtsenha.Text = ""

 txtconfirma.Text = ""

                       Else

               MsgBox "Confirmação Incorreta !", vbExclamation, "Atenção"

End If

                      Else

               MsgBox "Dados Incorretos !", vbExclamation, "Atenção"

 txtsenha.SetFocus

End If

End Sub

Produtos

Private Sub vlimpar()

txtnome.Text = ""

txtfabricante.Text = ""

txtvalor.Text = ""

txtfoto.Text = ""

 txtcomissao.Text = ""

 imgfoto.Picture = LoadPicture("")

 txtnome.SetFocus  

End Sub

Private Sub imgCadastrar_Click()

If txtnome.Text = "" Or txtfabricante.Text = "" Or txtvalor.Text = "" Then

                  MsgBox "Campos Obrigatorios !", vbExclamation, "Atenção"

 txtnome.SetFocus

                          Else

 If txtnome.Text <> "" Or txtfabricante.Text <> "" Or txtvalor.Text <> "" Then

                   inst_sql = "cadastro_produto'" & txtnome.Text & "','" & txtfabricante.Text & "','" & txtvalor.Text & "','" & txtcomissao.Text & "','" & txtfoto.Text & "'"

                  cnn.Execute inst_sql

                  MsgBox "Cadastro Efetuado Com Sucesso !", vbExclamation, "Ok"

Vlimpar

End If

End If

End Sub

Private Sub imglimpar_Click()

vlimpar

End Sub

Private Sub imgpesquisarnome_Click()

 frmPesquisa.Show

        Unload Me

End Sub

Private Sub imgProcurar_Click()

cdlabrirfoto.ShowOpen

txtfoto.Text = cdlabrirfoto.FileName

imgfoto.Picture = LoadPicture(txtfoto.Text)

End Sub

Private Sub imgsair_Click()

Unload Me

         mdiPrincipal.Show

End Sub

Clientes

           Dim codigo As Integer

Dim tipo_pessoa, relacionamento As Integer

Private Function bTipoCliente() As Byte

Função que retorna o tipo de cliente

       1 - Físico; 2 - Juridico; 3 – Isento

If optFisico.Value = True Then

       optJuridico.Value = False

       

 ElseIf optJuridico.Value = True Then

        optFisico.Value = False

End If  

End Function

Private Sub vLimparTextos()

Limpa todos os campos do form

    txtnome.Text = ""

    mskcpf.Mask = ""

    mskcpf.Text = ""

    mskcpf.Mask = "999.999.999-99"

    txtBairro.Text = ""

    txtCidade.Text = ""

    txtEndereco.Text = ""

    msktelefone.Mask = ""

    msktelefone.Text = ""

    msktelefone.Mask = "(99)-(9999-9999)"

    mskestado.Mask = ""

    mskestado.Text = ""

    mskestado.Mask = "(??)"

    mskcep.Mask = ""

    mskcep.Text = ""

    mskcep.Mask = "(99999-999)"

    lblcodigo1.Caption = ""

    frmTipo.Visible = False

    optFisico.Value = False

    optJuridico.Value = False

    optFornecedor.Value = False

    optCliente_fornecedor.Value = False

    optColaborador.Value = False

    optCliente.Value = False

End Sub

Private Sub Form_Load()

    frmTipo.Visible = False

    optFisico.Value = False

    optJuridico.Value = False

    optFornecedor.Value = False

    optCliente_fornecedor.Value = False

    optColaborador.Value = False

    optCliente.Value = False

 End Sub

Private Sub imgalterar_Click()

If mskcpf.ClipText <> "" Then

          inst_sql = " update pessoas set nome = '" & txtnome.Text & "', endereco = '" & txtEndereco.Text & "',bairro  = '" & txtBairro.Text & "', cep = '" & mskcep.Text & "', telefone = '" & msktelefone.Text & "', cidade = '" & txtCidade.Text & "', estado = '" & mskestado.Text & "' where cpf_cnpj = '" & mskcpf.Text & "'"