El sistema es sencillo, una pantalla que captura datos y luego otra que
convierte esa data a un archivo XML. Para los que programamos Visual Foxpro también es útil ya que desde la versión 7 podemos
trabajar con este tipo de archivos.
Bueno, creemos el proyecto,
seleccionemos “Aplicación para Smart Device”:
Seleccionamos “Pocket PC” como plataforma de
desarrollo, y “Aplicación para Windows” como tipo de proyecto a crear y
pulsemos “Aceptar”.
Bueno ahora que ya tenemos creado nuestro proyecto “Sistema”, vemos como
aparece el primer Form con su respectivo “MainMenu”, el cual por omisión lleva el nombre de “Form1”:
A este Form le cambiaremos el nombre, le
pondremos “Menu”, para hacerlo en el Explorador de
Soluciones pulse el botón derecho sobre “Form1”, seleccionamos “Cambiar Nombre”
y le ponemos “Menu”.
Ahora pulsemos un clic sobre el Form1, y en la ventana de propiedades
del Form1, cambie la propiedad (Name) de “Form1” a “Menu”. En el Explorador de Soluciones Pulse el botón
derecho sobre “Sistema”, pulse clic sobre “Propiedades”, ahora cambiaremos el
“Objeto Inicial”, de “Form1” a “Menu”, pulse “Apply” y “Ok” y continuemos.
Esta es la forma en que lucirán los Forms del
sistema:
Este será nuestro Form Principal, cuyo nombre
será “Menu”, como vimos anteriormente. Aquí es donde
se creara la base de datos y la tabla con la que vamos a trabajar.
Private Sub
menu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not File.Exists("\Program Files\Sistema\zafra.sdf")
Then
'creación de la base de datos
Try
Dim
Engine As SqlCeEngine
Engine = New SqlCeEngine
Engine.LocalConnectionString
= "DataSource=\Program Files\Sistema\zafra.sdf;
Password=; Encrypt DataBase=False"
'este es el comando que crea la base de
datos
Engine.CreateDatabase()
'captura
de errores de la base de datos
Catch
sqlex As SqlCeException
Dim
sqlError As SqlCeError
For
Each sqlError In sqlex.Errors
MessageBox.Show(sqlError.Message)
Next
'captura
de otros errores
Catch ex As Exception
MessageBox.Show("Error
" & ex.Message)
End Try
'creación
de la tabla
Dim
cn As SqlCeConnection
Try
cn = New SqlCeConnection("Data Source=\Program Files\sistema\zafra.sdf")
cn.Open()
Dim
cmd As SqlCeCommand = cn.CreateCommand
' Creación de la tabla
de la base de datos
cmd.CommandText
= "CREATE TABLE Colecta (" & _
"Lote integer NOT NULL PRIMARY KEY, "
& _
"Fecha datetime, "
& _
"camion nchar(5),"
& _
"cargas integer)"
cmd.ExecuteNonQuery()
'si deseáramos crear otra tabla,
haríamos “cmd.CommandTex=”Create
Table …”
'y luego cmd.ExecuteNonQuery(), este
proceso se repetiría para c/tabla a crear.
Catch
sqlex As SqlCeException
Dim
sqlError As SqlCeError
For
Each sqlError In sqlex.Errors
MessageBox.Show(sqlError.Message)
Next
Catch
ex As Exception
MessageBox.Show("Error
" & ex.Message)
Finally
If
cn.State <> ConnectionState.Closed
Then
cn.Close()
End
If
End
Try
End If
End Sub
Estas
son las opciones del Menú del sistema:
Los menus se programan igual que para
escritorio.
Private Sub
MenuItem2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
MenuItem2.Click
Me.Close()
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
Dim frm As New colecta
frm.Show()
End Sub
Private Sub MenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4.Click
Dim frm As New xml
frm.Show()
End Sub
Este es el form de la colecta de datos, en
cual usaremos algunas validaciones y procedimientos:
Aquí utilice la función SoloNumeros de “Angel Enrique
Ruiz Pastor” para validar los Textboxs de Lote y
Cargas.
Botón Nuevo:
llama
a un procedimiento que limpia los TextBoxs
'
Limpia
los textboxes
Private Sub LimpiaTextbox()
Me.txtLote.Text = ""
Me.txtFecha.Text = ""
Me.txtCamion.Text = ""
Me.txtCargas.Text = ""
End
Sub
Botón
Guardar:
' Agregamos
registro
cmd.CommandText
= "INSERT INTO colecta" & _
"(lote, fecha, camion, cargas)" & _
"
VALUES (?, ?, ?, ?)"
cmd.Parameters.Add(New SqlCeParameter("@lote", lot))
cmd.Parameters.Add(New SqlCeParameter("@fecha", fec))
cmd.Parameters.Add(New SqlCeParameter("@camion",
truck))
cmd.Parameters.Add(New SqlCeParameter("@cargas", car))
cmd.Prepare()
cmd.ExecuteNonQuery()
Botón Eliminar:
'Eliminamos registro
cmd.CommandText
= "DELETE FROM colecta WHERE lote=" & Me.txtLote.Text
cmd.ExecuteNonQuery()
Este form no servirá para convertir la tabla “colecta”
a un archivo XML:
Private Sub
btnXml_Click(ByVal
sender As System.Object,
ByVal e As System.EventArgs) Handles btnXml.Click
Dim cn As SqlCeConnection
Try
cn = New SqlCeConnection("Data Source=\Program Files\sistema\zafra.sdf")
cn.Open()
Dim
cmd As SqlCeCommand = cn.CreateCommand
cmd.CommandText
= "SELECT * FROM colecta"
Dim
da As New SqlCeDataAdapter(cmd)
Dim
ds As
New DataSet
da.Fill(ds)
' Aquí creamos el
Archivo .XML
ds.WriteXml("colecta.xml")
MessageBox.Show("Archivo creado")
Me.Close()
Catch sqlex As SqlCeException
Dim
sqlError As SqlCeError
For
Each sqlError In sqlex.Errors
MessageBox.Show(sqlError.Message)
Next
Catch
ex As Exception
MessageBox.Show(ex.Message)
Finally
If cn.State <> ConnectionState.Closed
Then
cn.Close()
End
If
End Try
End
Sub
Espero que este ejemplo sea de ayuda al igual que el anterior de PocketPC con XML.
Si crees que han sido de utilidad para ti, por favor, vota por ellos… Saludos
y hasta la próxima …
Espacios
de nombres usados en el código de este artículo:
System.Data.SqlServerCE
System.IO
