Juego de encontrar las dos cartas iguales
Java
(1)
Publicado el 17 de Junio del 2016 por Administrador (718 códigos)
10.264 visualizaciones desde el 17 de Junio del 2016
Juego en el que hay que encontrar las cartas iguales destapando de dos en dos.
Imports System.Data.SqlClient
Imports System.Data
Private Sub ingresos_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Cnn.open
Try
Dim Ds As New dsingresos
Dim Da As New SqlClient.SqlDataAdapter("Select * From TABLA " & _
"where FECHA_INGRESO >= '" & CAMPO_INGRESO.DateTimePicker11.Text & "' and FECHA_INGRESO <= '" & CAMPO_INGRESO.DateTimePicker22.Text & "' order by FECHA_INGRESO", Cnn)
Da.Fill(Ds, "TABLA")
'Mandar los datos al dataSet y muestralos
'se tiene que crear forzosamente esta instancia para poder pasar
'parametros...
Dim Reporte As New NOMBRE_REPORTE
Reporte.SetDataSource(Ds)
Reporte.SummaryInfo.ReportTitle = "TITULO DE MI REPORTE " & Today
Reporte.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.Landscape
Me.CrystalReportViewer1.ReportSource = Reporte
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Imports system.DateTime
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Se asigna al 11 y 22 para que no cambie el fomato de fechas
DateTimePicker11.Text = DateTimePicker1.Text
DateTimePicker22.Text = DateTimePicker2.Text
'Cambia formato de fechas para 11 y 22
DateTimePicker11.CustomFormat = "yyyyMMdd"
DateTimePicker11.Format = DateTimePickerFormat.Custom
DateTimePicker22.CustomFormat = "yyyyMMdd"
DateTimePicker22.Format = DateTimePickerFormat.Custom
My.Forms.ingresos.ShowDialog()
End Sub