Procedimientos Almacenados MySQL 5 - Anexo

Anexo:
Objetivo:
Implementar procedimientos almacenados en mysql 5 o superior, crear una aplicación cliente en visual basic 6.0 realizando la interconexión mediante ODBC con el conector mysql-connector-odbc-3.51.14-win32.

Consideraciones:

El anexo comenzará la descripción del artículo considerando que el siguiente software requerido se encuentra instalado correctamente en su equipo de cómputo a utilizar para llevar a cabo esta práctica.

De la misma manera se supondrá la correcta configuración del el o los usuario en el DBMS, se recomienda ingresar dos, uno de ellos que tenga todos los privilegios sobre la base de datos que se creará y otro solamente con el privilegio de ejecución.

Se considera que el lector tiene conocimientos medios en el manejo del DBMS así como del lenguaje de programación visual basic 6.0 y de la tecnología ADO.

Es también necesario que después de la instalación del DBMS, creación de usuarios mencionados, se creen la base de datos “banco” y las tablas de la imagen que se presenta en la sección “escenario”, para este fin se recomienda que se utilice la aplicación administrativa de base de datos mysql administrator que viene en el paquete mysql-gui-tools-5.0-r8-win32.msi


Software Requerido:

• wamp5_1.6.6
• Visual basic 6.0
• mysql-connector-odbc-3.51.14-win32
• Sistema operativo windows preferentemente XP
• mysql-gui-tools-5.0-r8-win32.msi

Escenario:

El anexo pretende resolver el problema planteado en el capítulo dos sección cinco sub sección uno que es básicamente el caso de un banco en el que se pretende ocultar tablas a los usuarios y para esto utilizan la implementación de procedimientos almacenados. La estructura de base de datos es la que se muestra a continuación.






Procedimientos almacenados:

Mediante la herramienta mysql query browser es necesario ingresar lo siguientes procedimientos almacenados.

Estado_cuenta:

Este procedimiento se encarga de poner a la vista de la aplicación cliente los diferentes movimientos que ha tenido la cuenta que se otorga como parámetro, al igual que todos los otros procedimientos almacenados antes de brindar cualquier información se realiza una verificación del usuario y la clave de este.




Identificación:

Este procedimiento realiza la verificación inicial del nombre del usuario, clave y la sucursal donde tiene autorización de ingresar.



Información:

Es el encargado de enviar información a la aplicación cliente de diferentes aspectos que tienen que ver con la situación de la cuenta.


ingresa_retiro_deposito

El ingreso de información en las tablas de operación y movimientos es el principal trabajo de este procedimiento, aparte de garantizar que estos movimientos se realicen correctamente.



Aplicación:

La aplicación está realizada en el lenguaje de programación visual basic 6.0 y realiza una interconexión con mysql-connector-odbc-3.51.14-win32, consta de un grupo de formularios que se describen a continuación.





Formulario Clavepedir:

En este formulario el usuario se identifica y puede tener acceso a la configuración de la conexión, posterior a la identificación es enviado al formulario mdi que se analizará más delante.




Bajo el siguiente código:

Private Sub Command1_Click()

Dim sql As String
Dim mirecordset As Recordset
Dim mirecordset2 As Recordset
If Module2.conectar1 = False Then
End If

If Text1 = Or Text2 = Or Text3 = Then Call MsgBox("Es necesario ingresar todos los datos de identificación", vbInformation, "I.T.E.S.U") Exit Sub End If ' utilizacion de procedimiento almacenado sql = "call identificacion('" & Text1 & "','" & Text2 & "'," & Text3 & ")" Set mirecordset = MiConexion.Execute(sql) If mirecordset.BOF And mirecordset.EOF Then Call Module2.DESconectartexto Call MsgBox("Verifique su nombre y contraseña", vbInformation, "I.T.E.S.U") Exit Sub End If Call Module2.DESconectartexto Module1.usuario = Text1 Module1.clave = Text2 Module1.sucursal = Text3 MDIForm1.Show Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() dsn.Show End Sub Formulario dsn: Cuando se desea realizar modificaciones en los parámetros de conexión al servidor mysql es necesario recurrir a este formulario ya que en el se puede realizar esta operación. Bajo el siguiente código: Private Sub Command1_Click() Call creaelarchivodeclaveaceptada End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() Call Command1_Click If conectar1() = True Then Call MsgBox("La prueba fué exitosa", vbInformation, "I.T.E.S.U") Else Call MsgBox("No se pudo conectar con el servidor", , "I.T.E.S.U") End If End Sub Private Sub Form_Load() Call Module1.enelcentro(Me) Dim NUMERITO As ARCHIVODSN Dim canal As Integer Dim leido As String canal = FreeFile Open App.Path & "\" & "dsnwin32.dll" For Random As canal Len = Len(NUMERITO) Get #canal, 1, NUMERITO Close Text1 = Trim(NUMERITO.dsnname) Text1 = (Text1) Text2 = Trim(NUMERITO.hostorip) Text2 = (Text2) Text3 = Trim(NUMERITO.namedatabase) Text3 = (Text3) Text4 = Trim(NUMERITO.user) Text4 = (Text4) Text5 = Trim(NUMERITO.Password) Text5 = (Text5) Text6 = Trim(NUMERITO.port) Text6 = (Text6) End Sub Private Sub creaelarchivodeclaveaceptada() 'se hace el archiv Dim NUMERITO As ARCHIVODSN Dim canal As Integer canal = FreeFile Open App.Path & "\" & "dsnwin32.dll" For Random As canal Len = Len(NUMERITO) NUMERITO.dsnname = Text1 NUMERITO.hostorip = Text2 NUMERITO.namedatabase = (Text3) NUMERITO.user = (Text4) NUMERITO.Password = (Text5) NUMERITO.port = (Text6) Put #canal, 1, NUMERITO Close Call MsgBox("Sus datos fueron guardados correctamente", vbExclamation, "I.T.E.S.U") Unload Me End Sub Formulario MDIFORM1 Este formulario tiene la tarea de dar la posibilidad al usuario de seleccionar dentro del menú la tarea que desea realizar. Bajo el siguiente código. Private Sub estadodecuentaaa_Click() estadodecuenta.Show End Sub Private Sub mov_cuenta_Click() pruebaprocedure.Show End Sub Private Sub salirrrr_Click() End End Sub Formulario pruebaprocedure: Este formulario tiene la tarea de proporcionar la información de las cuentas al usuario, tanto cuenta origen como la destino, y le proporciona una caja de texto para teclear la cantidad del movimiento, en el caso de que un cliente llegue a realizar solamente un retiro o un deposito en efectivo o una cuenta que no sea del banco lo que se hace es que se teclea una cuenta predispuesta con el número cero. Bajo el siguiente código: Private Sub Command1_Click() Dim sql As String Dim comillas As String comillas = Chr(39) Dim mirecordset As Recordset If IsNumeric(Text1) = False Then Call MsgBox("Es necesario que el dato ingresado sea numérico", vbInformation, "I.T.E.S.U") Text1 =
End If
Call Module2.conectar1
sql = "call informacion(" & Text1 & ",'" & Module1.usuario & "','" & Module1.clave & "')"
Set mirecordset = MiConexion.Execute(sql)
If mirecordset.BOF And mirecordset.EOF Then
Call MsgBox("No se encontró ninguna cuenta bajo este número", vbInformation, "I.T.E.S.U")
End If


Call Module2.conectar1

sql = "call informacion(" & Text10 & ",'" & Module1.usuario & "','" & Module1.clave & "')"
Set mirecordset = MiConexion.Execute(sql)
If mirecordset.BOF And mirecordset.EOF Then
Text1 = Text2 =
Text3 = Text4 =
Text5 = Text6 =
Text7 = Text8 =
Text9 = Text10 =
Text11 = Text12 =
Text13 = Text14 =
Text15 = Text16 =
Text17 = Text18 =


End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If


End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
End Sub

Private Sub Text11_KeyPress(KeyAscii As Integer)
End Sub

Private Sub Text19_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub


Formulario : estadodecuenta

El mostrar los diferentes movimientos que han sido realizados con el formulario pruebaprocedure es la tarea principal de esta interfaz y los controles utilizados para esta tarea se muestran a continuación.




Bajo el siguiente código.

Private Sub limpiartext()
Text1.Locked = False
Text1 = Text2 =
Text3 = Text4 =
Text5 = Text6 =
Text7 = Text8 =
Text9 = MSFlexGrid1.Clear Call formatoflex End Sub Private Sub Command1_Click() Dim sql As String Dim comillas As String comillas = Chr(39) Dim mirecordset As Recordset If IsNumeric(Text1) = False Then Call MsgBox("Es necesario que el número de cuenta sea un dato numérico", vbInformation, "I.T.E.S.U") Text1 =
MSFlexGrid1.Clear
Call formatoflex
Call Module2.conectar1

sql = "call informacion(" & Text1 & ",'" & Module1.usuario & "','" & Module1.clave & "')"
Set mirecordset = MiConexion.Execute(sql)
If mirecordset.BOF And mirecordset.EOF Then
End If
Dim tantos As Integer

MSFlexGrid1.Rows = 2
While mirecordset.EOF = False




mirecordset.MoveNext
Wend
Call Module2.DESconectartexto

Command3.SetFocus

End Sub

Private Sub Command2_Click()
Call limpiartext
Text1.SetFocus


End Sub


Private Sub Command3_Click()
Unload Me

End Sub

Private Sub Form_Load()
Call Module1.enelcentro(Me)
Call limpiartext
Call formatoflex

End Sub
Private Sub formatoflex()
MSFlexGrid1.TextMatrix(0, 0) = "Operación Num"
MSFlexGrid1.ColWidth(0) = 1770
MSFlexGrid1.TextMatrix(0, 1) = "Fecha"
MSFlexGrid1.ColWidth(1) = 2880
MSFlexGrid1.TextMatrix(0, 2) = "Suc Num"
MSFlexGrid1.ColWidth(2) = 1035
MSFlexGrid1.TextMatrix(0, 3) = "Direcc"
MSFlexGrid1.ColWidth(3) = 3180
MSFlexGrid1.TextMatrix(0, 4) = "Referencia"
MSFlexGrid1.ColWidth(4) = 1230
MSFlexGrid1.TextMatrix(0, 5) = "Retiro"
MSFlexGrid1.ColWidth(5) = 1650
MSFlexGrid1.TextMatrix(0, 6) = "Depósito"
MSFlexGrid1.ColWidth(6) = 2685

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
End If
End Sub



Modulo: module1

Este módulo almacena algunas funciones simples utilizadas por el sistema, así como algunas variables de tipo global.

Bajo el siguiente código.


Public usuario As String
Public clave As String
Public sucursal As Double

Public Type ARCHIVODSN
End Type

Public Sub enelcentro(formulario As Form)
formulario.Top = 0
formulario.Left = 0
End Sub

Public Function cuantosdatostieneelflexencolumnas(flexito As MSFlexGrid)
Dim numrenglones As Integer
Dim resputa As Integer
Dim X As Integer
numrenglones = flexito.Rows
For X = 1 To numrenglones - 1
Else
End If
Err.Clear

End Function