Agenda Electronica(Base De Datos) Itt

Informe Sistema Agenda Electrónica

Base de datos AGENDA.mdb.-

Código | Numero | |
Nombre | Texto | 30 |
Nombre | Texto | 30 |
Apellido | Texto | 60 |
Sexo | Texto | 9 |
Fijo | Texto | 10 |
Móvil | Texto | 8 |
Operadora | Texto | 10 |
Tabla contactos:



Tabla Usuarios:
Código | Numero | |
Usuario | Texto | 40 |
Clave | Texto | 5 |
Proyecto Agenda:

Modulo:Public data As ADODB.Connection
Public Sub abrir()
Set data = New ADODB.Connection
data.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\CYBERCOMPU\Desktop\Ballesteros\Visual\Agenda Telefonica\Agenda.mdb;Persist Security Info=False"
data.Open
End Sub
Public Sub limpiar()
Dim c As Control
For Each c In f
If TypeOf c Is TextBox Then c = ""
If TypeOf c IsComboBox Then c = ""
If TypeOf c Is CheckBox Then c = ""
If TypeOf c Is OptionButton Then c.Value = False
If TypeOf c Is ListBox Then c.Clear
If TypeOf c Is Image Then c.Picture = LoadPicture("")
End Sub

Componentes:

Data Enviroment :

Cmconsultasexo:
SELECT Ape, Cod, Fijo, Movil, Nom, Operadora, Sexo FROM Contactos WHERE (Sexo = ?) ORDER BY Cod, Nom, Ape, Sexo, Fijo, Movil, OperadoraComsexo:
SELECT DISTINCT Sexo FROM Contactos
Cmconsultaoperadora:
SELECT Ape, Cod, Fijo, Movil, Nom, Operadora, Sexo FROM Contactos WHERE (Operadora = ?) ORDER BY Cod, Nom, Ape, Fijo, Movil, Operadora, Sexo
Comoperadora:
SELECT DISTINCT Operadora FROM Contactos
CmOrdenApe:
SELECT Cod, Ape, Nom, Sexo, Fijo, Movil FROM Contactos ORDER BY Ape
CmOrdenOpe:
SELECT Cod, Ape, Nom, Sexo, Fijo,Movil, Operadora FROM Contactos ORDER BY Operadora
CmOrdenSex:
SELECT Cod, Ape, Nom, Sexo, Fijo, Movil, Operadora FROM Contactos ORDER BY Sexo

Formulario Logo:

Descripción:

El Formulario Logo, sirve para presentar nuestra aplicación con nuestra insignia y marca personal.

Código:

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 4
If ProgressBar1.Value = 100 ThenUnload Me
Clave.Show
End If
End Sub

Formulario Clave:

Descripcion:

El formulario Clave, sirve para controlar el acceso a nuestro programa y nos da el acceso a la siguiente tabla si la clave y usuarios son correctos.

Código:

Private rsusuario As ADODB.Recordset
Dim sql As String
Private Sub Command1_Click()
Set rsusuario = New ADODB.Recordset
sql = "select * from Usuarios whereUsuario='" & Trim(Text1.Text) & "' and Clave='" & Trim(Text2.Text) & "'"
rsusuario.Open sql, data, adOpenStatic, adLockOptimistic
If rsusuario.RecordCount > 0 Then
Unload Me
Menu.Show
Else
m = MsgBox("Usuario o clave incorrectos", 16 + vbSystemModal, " Mensaje ")
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command2_Click()
Dim r AsInteger
r = MsgBox("Desea salir del programa", 34 + 2, " Mensaje ")
If r = 6 Then
End
Else
If r = 7 Then
End If
End If
End Sub
Private Sub Form_Load()
Call abrir
End Sub

Formulario Menú:

Descripción:

El formulario menú, sirve para ingresar a los distintos formularios como acerca de, usuarios, contactos, buscar, imprimir, salir. Ya sea por el Menú principal, el grafico o elemergente.

Código:

Private Sub Acd_Click()
acerca.Show
End Sub
Private Sub Agn_Click()
Contactos.Show
End Sub
Private Sub ca_Click()
Dim i
i = Shell("C:\Users\CYBERCOMPU\Desktop\CALC.EXE", 1)
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu em
End If
End Sub
Private Sub Sal_Click()
Salir.ShowEnd Sub
Private Sub srl_Click()
Salir.Show vbModal
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Image
Case 1
Contactos.Show vbModal
Case 2
Usuarios.Show vbModal
Case 3
Case 4
Case 5
Salir.Show vbModal
End Select
End Sub
Private Sub usu_Click()
Usuarios.Show
End Sub

Formulario Acerca:

Descripcion:

El formulario acerca de,...