Você está em: Principal › Tutoriais › Informatizando sua Empresa com Excel : Sistemavaletransporte004
Sistema Vale Transporte. Parte 4
Continuar o desenvolvimento do sistema, criando neste tutorial o banco de dados para armazenar registros e também codificar o formulário Dados_empresa, tudo de forma simples e direta.
Utilizaremos a primeira planilha do excel, modifique o nome Plan1 para a "EMPRESA", depois iremos inserir os nomes dos campos abaixo.
COD, NOME, IE, CNPJ, ENDERECO, BAIRRO, CIDADE, ESTADO, CEP e TELRESIDENCIAL.
Insira cor cinza, negrito e centralizado os campos.
Devemos fazer agora a formatação dos campos conforme descrição abaixo.
COD, IE, e CNPJ colocar na categoria "número".
Os demais campos você deve seguir as formatações abaixo:
TELCOMERCIAL inserir na categoria "especial".
Terminado o banco de dados, iremos codificar o sistema inserindo o código abaixo dentro do evento initialize do formulário.
Agora vamos inserir os códigos nos botões, sempre dentro do evento clic.
If Me.Text_IE = "" Then
Me.Text_IE.Text = "-"
If Me.Text_cnpj = "" Then
Me.Text_cnpj.Text = "-"
If Me.Text_telcomercial = "" Then
Me.Text_telcomercial.Text = "-"
CADASTRO(3) = UCase(Me.Text_IE)
CADASTRO(4) = UCase(Me.Text_cnpj)
CADASTRO(5) = UCase(Me.Text_endereco)
CADASTRO(6) = UCase(Me.text_bairro)
CADASTRO(7) = UCase(Me.Combo_cidade)
CADASTRO(8) = UCase(Me.Combo_estado)
CADASTRO(9) = UCase(Me.text_cep)
CADASTRO(10) = UCase(Me.Text_telcomercial)
Set VT = Plan1.Cells(1, 1).CurrentRegion
Me.Text_IE.Text = ""
Me.Text_cnpj.Text = ""
Me.Text_telcomercial.Text = ""
Me.Text_IE = Rs.Fields("IE")
Me.Text_cnpj = Rs.Fields("CNPJ")
Me.Text_telcomercial = Rs.Fields("TELCOMERCIAL")
Rs("IE") = Me.Text_IE
Rs("CNPJ") = Me.Text_cnpj
Rs("TELCOMERCIAL") = Me.Text_telcomercial
Desenvolvemos o banco de dados, fazendo as formatações necessárias para cada campo, codificamos a interface "DADOS_EMPRESA", tudo de forma simples e objetiva mostrado através de telas. Na próxima parte do tutorial daremos continuidade no desenlvovimento do sistema. Bons estudos e até a próxima parte.