Facturacion

CAPITULO VI
IMPLEMENTACIÓN Y PRUEBAS
CODIFICACION
Conexión de la Base de Datos

Module Conexion
Public idUsuario As String
Public usuario As String
Public contraseña As String
Public cadenaConexion As String
Public tipoUsuario As String
Public nombreUsuario As String

Public Function Conectar() As Boolean
cadenaConexion ="server=localhost;User id=root;password=administrador;Persist
Security Info=True;database=dbventas"

Conectar con la base de datos

Dim cn As MySqlConnection = New MySqlConnection()
Dim estadoConexion As Boolean = False
Try
cn.ConnectionString = cadenaConexion
cn.Open()

Buscar el usuario en la base

DimusuarioBase As Consultas = New Consultas()
Dim cantidad As String = usuarioBase.Buscar("select count(usuario) from usuarios
where usuario='" + usuario + "' and contrasena='" + contraseña + "'")
If Val(cantidad) > 0 Then
estadoConexion = True
Dim dsUsuario As DataSet = usuarioBase.SelectDataSet("select idUsuario,idEmpleado, rol from usuarios where usuario='" + usuario + "' and contrasena='"
+ contraseña + "'", "Datos")
idUsuario = dsUsuario.Tables(0).Rows(0)("idUsuario").ToString()
tipoUsuario = dsUsuario.Tables(0).Rows(0)("rol").ToString()


Catch
MessageBox.Show("Error en la conexión la base de datos","Error",
MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
cn.Close()
End Try
Return estadoConexion
End Function
End Module

Codigo para generar reportes
Module mdFunciones
Dim NumProv As Int16 = 24
Public Reporte As DevExpress.XtraGrid.GridControl = Nothing
Enum TipoExporacion
PDF
HTML
MHTRTF
XLS
TXT
PREV
End Enum

Public Sub Exportar(ByVal Tipo As TipoExporacion)
Using DLG As New SaveFileDialog() With {.AddExtension = True, .FileName = String.Format("C:\temp\Reporte_{0}_{1}", Reporte.AccessibleName, Now.ToShortDateString.Replace("/", "_"))}
With DLG
Select Case Tipo
CaseTipoExporacion.PDF
.Filter = "Archivos pdf (*.pdf)|*.pdf"
.FileName += ".pdf"
Case TipoExporacion.HTML
.Filter = "Página web (*.html)|*.html"
.FileName += ".html"
Case TipoExporacion.MHT
.Filter = "Página web completa (*.mht)|*.mht".FileName += ".mht"
Case TipoExporacion.RTF
.Filter = "Documento rtf (*.rtf)|*.rtf"
.FileName += ".rtf"
Case TipoExporacion.XLS
.Filter = "Hoja de calculo (*.xls)|*.xls"
.FileName += ".xls"
CaseTipoExporacion.PREV
.Filter += ""
Case Else
.Filter = "Archivos de Texto (*.txt)|*.txt"
.FileName += ".txt"
End Select
End With
With Reporte
If Not Reporte Is Nothing Then

If Tipo TipoExporacion.PREV ThenIf DLG.ShowDialog = DialogResult.OK Then

Select Case Tipo
Case TipoExporacion.PDF
.ExportToPdf(DLG.FileName)
Case TipoExporacion.HTML
.ExportToHtml(DLG.FileName)
Case TipoExporacion.MHT...