365 lines
15 KiB
VB.net
365 lines
15 KiB
VB.net
Public Class EsquemasDetectados
|
|
Inherits System.Windows.Forms.Form
|
|
|
|
#Region " Windows Form Designer generated code "
|
|
|
|
Public Sub New()
|
|
MyBase.New()
|
|
|
|
'This call is required by the Windows Form Designer.
|
|
InitializeComponent()
|
|
|
|
'Add any initialization after the InitializeComponent() call
|
|
|
|
End Sub
|
|
|
|
'Form overrides dispose to clean up the component list.
|
|
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
|
|
If disposing Then
|
|
If Not (components Is Nothing) Then
|
|
components.Dispose()
|
|
End If
|
|
End If
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
'Required by the Windows Form Designer
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
'NOTE: The following procedure is required by the Windows Form Designer
|
|
'It can be modified using the Windows Form Designer.
|
|
'Do not modify it using the code editor.
|
|
Friend WithEvents btnConsultar As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents btnExportar As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents btnRefrescar As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents btnSalir As System.Windows.Forms.ToolBarButton
|
|
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents dtpFechaInicio As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents lblFin As System.Windows.Forms.Label
|
|
Friend WithEvents lblInicio As System.Windows.Forms.Label
|
|
Friend WithEvents dtpFechaFin As System.Windows.Forms.DateTimePicker
|
|
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents dtgInusualesDiv As System.Windows.Forms.DataGrid
|
|
Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
|
|
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents cmbCliente As System.Windows.Forms.ComboBox
|
|
Friend WithEvents cmbPatron As System.Windows.Forms.ComboBox
|
|
Friend WithEvents Label3 As System.Windows.Forms.Label
|
|
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
|
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
|
|
Private WithEvents Chart1 As SoftwareFX.ChartFX.Chart
|
|
Friend WithEvents lblPreocupantes As System.Windows.Forms.Label
|
|
Friend WithEvents lblInusuales As System.Windows.Forms.Label
|
|
Friend WithEvents lblInuFrac As System.Windows.Forms.Label
|
|
Friend WithEvents lblRelevantes As System.Windows.Forms.Label
|
|
Friend WithEvents tlbEsqDet As System.Windows.Forms.ToolBar
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(EsquemasDetectados))
|
|
Dim TitleDockable1 As SoftwareFX.ChartFX.TitleDockable = New SoftwareFX.ChartFX.TitleDockable()
|
|
Me.tlbEsqDet = New System.Windows.Forms.ToolBar()
|
|
Me.btnConsultar = New System.Windows.Forms.ToolBarButton()
|
|
Me.btnExportar = New System.Windows.Forms.ToolBarButton()
|
|
Me.btnRefrescar = New System.Windows.Forms.ToolBarButton()
|
|
Me.btnSalir = New System.Windows.Forms.ToolBarButton()
|
|
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
|
|
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
|
Me.dtpFechaInicio = New System.Windows.Forms.DateTimePicker()
|
|
Me.lblFin = New System.Windows.Forms.Label()
|
|
Me.lblInicio = New System.Windows.Forms.Label()
|
|
Me.dtpFechaFin = New System.Windows.Forms.DateTimePicker()
|
|
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
|
Me.dtgInusualesDiv = New System.Windows.Forms.DataGrid()
|
|
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
|
Me.cmbCliente = New System.Windows.Forms.ComboBox()
|
|
Me.cmbPatron = New System.Windows.Forms.ComboBox()
|
|
Me.Label3 = New System.Windows.Forms.Label()
|
|
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
|
Me.lblRelevantes = New System.Windows.Forms.Label()
|
|
Me.lblInuFrac = New System.Windows.Forms.Label()
|
|
Me.lblInusuales = New System.Windows.Forms.Label()
|
|
Me.lblPreocupantes = New System.Windows.Forms.Label()
|
|
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
|
Me.Chart1 = New SoftwareFX.ChartFX.Chart()
|
|
Me.GroupBox1.SuspendLayout()
|
|
Me.GroupBox4.SuspendLayout()
|
|
CType(Me.dtgInusualesDiv, System.ComponentModel.ISupportInitialize).BeginInit()
|
|
Me.GroupBox3.SuspendLayout()
|
|
Me.GroupBox2.SuspendLayout()
|
|
Me.GroupBox5.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'tlbEsqDet
|
|
'
|
|
Me.tlbEsqDet.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnConsultar, Me.btnExportar, Me.btnRefrescar, Me.btnSalir})
|
|
Me.tlbEsqDet.ButtonSize = New System.Drawing.Size(75, 40)
|
|
Me.tlbEsqDet.DropDownArrows = True
|
|
Me.tlbEsqDet.ImageList = Me.ImageList1
|
|
Me.tlbEsqDet.Location = New System.Drawing.Point(0, 0)
|
|
Me.tlbEsqDet.Name = "tlbEsqDet"
|
|
Me.tlbEsqDet.ShowToolTips = True
|
|
Me.tlbEsqDet.Size = New System.Drawing.Size(558, 42)
|
|
Me.tlbEsqDet.TabIndex = 15
|
|
'
|
|
'btnConsultar
|
|
'
|
|
Me.btnConsultar.ImageIndex = 8
|
|
Me.btnConsultar.Name = "btnConsultar"
|
|
Me.btnConsultar.Text = "Consultar"
|
|
'
|
|
'btnExportar
|
|
'
|
|
Me.btnExportar.ImageIndex = 9
|
|
Me.btnExportar.Name = "btnExportar"
|
|
Me.btnExportar.Text = "Exportar"
|
|
'
|
|
'btnRefrescar
|
|
'
|
|
Me.btnRefrescar.Name = "btnRefrescar"
|
|
Me.btnRefrescar.Text = "Refrescar"
|
|
'
|
|
'btnSalir
|
|
'
|
|
Me.btnSalir.ImageIndex = 4
|
|
Me.btnSalir.Name = "btnSalir"
|
|
Me.btnSalir.Text = "Salir"
|
|
'
|
|
'ImageList1
|
|
'
|
|
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
|
|
Me.ImageList1.TransparentColor = System.Drawing.Color.Turquoise
|
|
Me.ImageList1.Images.SetKeyName(0, "")
|
|
Me.ImageList1.Images.SetKeyName(1, "")
|
|
Me.ImageList1.Images.SetKeyName(2, "")
|
|
Me.ImageList1.Images.SetKeyName(3, "")
|
|
Me.ImageList1.Images.SetKeyName(4, "")
|
|
Me.ImageList1.Images.SetKeyName(5, "")
|
|
Me.ImageList1.Images.SetKeyName(6, "")
|
|
Me.ImageList1.Images.SetKeyName(7, "")
|
|
Me.ImageList1.Images.SetKeyName(8, "")
|
|
Me.ImageList1.Images.SetKeyName(9, "")
|
|
'
|
|
'GroupBox1
|
|
'
|
|
Me.GroupBox1.Controls.Add(Me.dtpFechaInicio)
|
|
Me.GroupBox1.Controls.Add(Me.lblFin)
|
|
Me.GroupBox1.Controls.Add(Me.lblInicio)
|
|
Me.GroupBox1.Controls.Add(Me.dtpFechaFin)
|
|
Me.GroupBox1.Location = New System.Drawing.Point(4, 48)
|
|
Me.GroupBox1.Name = "GroupBox1"
|
|
Me.GroupBox1.Size = New System.Drawing.Size(200, 66)
|
|
Me.GroupBox1.TabIndex = 16
|
|
Me.GroupBox1.TabStop = False
|
|
Me.GroupBox1.Text = "Periodo"
|
|
'
|
|
'dtpFechaInicio
|
|
'
|
|
Me.dtpFechaInicio.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
|
Me.dtpFechaInicio.Location = New System.Drawing.Point(81, 21)
|
|
Me.dtpFechaInicio.Name = "dtpFechaInicio"
|
|
Me.dtpFechaInicio.Size = New System.Drawing.Size(111, 20)
|
|
Me.dtpFechaInicio.TabIndex = 1
|
|
'
|
|
'lblFin
|
|
'
|
|
Me.lblFin.ForeColor = System.Drawing.Color.MidnightBlue
|
|
Me.lblFin.Location = New System.Drawing.Point(15, 45)
|
|
Me.lblFin.Name = "lblFin"
|
|
Me.lblFin.Size = New System.Drawing.Size(64, 16)
|
|
Me.lblFin.TabIndex = 4
|
|
Me.lblFin.Text = "Fecha Final"
|
|
'
|
|
'lblInicio
|
|
'
|
|
Me.lblInicio.ForeColor = System.Drawing.Color.MidnightBlue
|
|
Me.lblInicio.Location = New System.Drawing.Point(12, 24)
|
|
Me.lblInicio.Name = "lblInicio"
|
|
Me.lblInicio.Size = New System.Drawing.Size(72, 16)
|
|
Me.lblInicio.TabIndex = 3
|
|
Me.lblInicio.Text = "Fecha Inicial"
|
|
'
|
|
'dtpFechaFin
|
|
'
|
|
Me.dtpFechaFin.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
|
Me.dtpFechaFin.Location = New System.Drawing.Point(81, 42)
|
|
Me.dtpFechaFin.Name = "dtpFechaFin"
|
|
Me.dtpFechaFin.Size = New System.Drawing.Size(111, 20)
|
|
Me.dtpFechaFin.TabIndex = 2
|
|
'
|
|
'GroupBox4
|
|
'
|
|
Me.GroupBox4.Controls.Add(Me.dtgInusualesDiv)
|
|
Me.GroupBox4.Location = New System.Drawing.Point(4, 116)
|
|
Me.GroupBox4.Name = "GroupBox4"
|
|
Me.GroupBox4.Size = New System.Drawing.Size(548, 196)
|
|
Me.GroupBox4.TabIndex = 33
|
|
Me.GroupBox4.TabStop = False
|
|
Me.GroupBox4.Text = "Resultados"
|
|
'
|
|
'dtgInusualesDiv
|
|
'
|
|
Me.dtgInusualesDiv.BackgroundColor = System.Drawing.Color.White
|
|
Me.dtgInusualesDiv.DataMember = ""
|
|
Me.dtgInusualesDiv.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.dtgInusualesDiv.HeaderForeColor = System.Drawing.SystemColors.ControlText
|
|
Me.dtgInusualesDiv.Location = New System.Drawing.Point(3, 16)
|
|
Me.dtgInusualesDiv.Name = "dtgInusualesDiv"
|
|
Me.dtgInusualesDiv.ReadOnly = True
|
|
Me.dtgInusualesDiv.Size = New System.Drawing.Size(542, 177)
|
|
Me.dtgInusualesDiv.TabIndex = 25
|
|
'
|
|
'GroupBox3
|
|
'
|
|
Me.GroupBox3.Controls.Add(Me.cmbCliente)
|
|
Me.GroupBox3.Controls.Add(Me.cmbPatron)
|
|
Me.GroupBox3.Controls.Add(Me.Label3)
|
|
Me.GroupBox3.Location = New System.Drawing.Point(228, 50)
|
|
Me.GroupBox3.Name = "GroupBox3"
|
|
Me.GroupBox3.Size = New System.Drawing.Size(324, 68)
|
|
Me.GroupBox3.TabIndex = 34
|
|
Me.GroupBox3.TabStop = False
|
|
Me.GroupBox3.Text = "Parametros de consulta"
|
|
'
|
|
'cmbCliente
|
|
'
|
|
Me.cmbCliente.DropDownWidth = 490
|
|
Me.cmbCliente.Location = New System.Drawing.Point(10, 29)
|
|
Me.cmbCliente.Name = "cmbCliente"
|
|
Me.cmbCliente.Size = New System.Drawing.Size(148, 21)
|
|
Me.cmbCliente.TabIndex = 6
|
|
'
|
|
'cmbPatron
|
|
'
|
|
Me.cmbPatron.DropDownWidth = 220
|
|
Me.cmbPatron.Location = New System.Drawing.Point(177, 29)
|
|
Me.cmbPatron.Name = "cmbPatron"
|
|
Me.cmbPatron.Size = New System.Drawing.Size(125, 21)
|
|
Me.cmbPatron.TabIndex = 11
|
|
'
|
|
'Label3
|
|
'
|
|
Me.Label3.ForeColor = System.Drawing.Color.MidnightBlue
|
|
Me.Label3.Location = New System.Drawing.Point(177, 16)
|
|
Me.Label3.Name = "Label3"
|
|
Me.Label3.Size = New System.Drawing.Size(54, 18)
|
|
Me.Label3.TabIndex = 29
|
|
Me.Label3.Text = "Producto"
|
|
'
|
|
'GroupBox2
|
|
'
|
|
Me.GroupBox2.Controls.Add(Me.lblRelevantes)
|
|
Me.GroupBox2.Controls.Add(Me.lblInuFrac)
|
|
Me.GroupBox2.Controls.Add(Me.lblInusuales)
|
|
Me.GroupBox2.Controls.Add(Me.lblPreocupantes)
|
|
Me.GroupBox2.Location = New System.Drawing.Point(8, 318)
|
|
Me.GroupBox2.Name = "GroupBox2"
|
|
Me.GroupBox2.Size = New System.Drawing.Size(198, 200)
|
|
Me.GroupBox2.TabIndex = 35
|
|
Me.GroupBox2.TabStop = False
|
|
Me.GroupBox2.Text = "Tipos de alarmas"
|
|
'
|
|
'lblRelevantes
|
|
'
|
|
Me.lblRelevantes.BackColor = System.Drawing.Color.Blue
|
|
Me.lblRelevantes.ForeColor = System.Drawing.Color.White
|
|
Me.lblRelevantes.Location = New System.Drawing.Point(26, 142)
|
|
Me.lblRelevantes.Name = "lblRelevantes"
|
|
Me.lblRelevantes.Size = New System.Drawing.Size(132, 18)
|
|
Me.lblRelevantes.TabIndex = 3
|
|
Me.lblRelevantes.Text = "Relevantes"
|
|
Me.lblRelevantes.TextAlign = System.Drawing.ContentAlignment.TopCenter
|
|
'
|
|
'lblInuFrac
|
|
'
|
|
Me.lblInuFrac.BackColor = System.Drawing.Color.Lime
|
|
Me.lblInuFrac.ForeColor = System.Drawing.Color.Black
|
|
Me.lblInuFrac.Location = New System.Drawing.Point(28, 114)
|
|
Me.lblInuFrac.Name = "lblInuFrac"
|
|
Me.lblInuFrac.Size = New System.Drawing.Size(130, 18)
|
|
Me.lblInuFrac.TabIndex = 2
|
|
Me.lblInuFrac.Text = "Inusuales Fraccionadas"
|
|
Me.lblInuFrac.TextAlign = System.Drawing.ContentAlignment.TopCenter
|
|
'
|
|
'lblInusuales
|
|
'
|
|
Me.lblInusuales.BackColor = System.Drawing.Color.Red
|
|
Me.lblInusuales.ForeColor = System.Drawing.Color.White
|
|
Me.lblInusuales.Location = New System.Drawing.Point(28, 64)
|
|
Me.lblInusuales.Name = "lblInusuales"
|
|
Me.lblInusuales.Size = New System.Drawing.Size(130, 18)
|
|
Me.lblInusuales.TabIndex = 1
|
|
Me.lblInusuales.Text = "Inusuales"
|
|
Me.lblInusuales.TextAlign = System.Drawing.ContentAlignment.TopCenter
|
|
'
|
|
'lblPreocupantes
|
|
'
|
|
Me.lblPreocupantes.BackColor = System.Drawing.Color.Aqua
|
|
Me.lblPreocupantes.ForeColor = System.Drawing.Color.Black
|
|
Me.lblPreocupantes.Location = New System.Drawing.Point(28, 88)
|
|
Me.lblPreocupantes.Name = "lblPreocupantes"
|
|
Me.lblPreocupantes.Size = New System.Drawing.Size(130, 18)
|
|
Me.lblPreocupantes.TabIndex = 0
|
|
Me.lblPreocupantes.Text = "Preocupantes"
|
|
Me.lblPreocupantes.TextAlign = System.Drawing.ContentAlignment.TopCenter
|
|
'
|
|
'GroupBox5
|
|
'
|
|
Me.GroupBox5.Controls.Add(Me.Chart1)
|
|
Me.GroupBox5.Location = New System.Drawing.Point(212, 318)
|
|
Me.GroupBox5.Name = "GroupBox5"
|
|
Me.GroupBox5.Size = New System.Drawing.Size(342, 200)
|
|
Me.GroupBox5.TabIndex = 36
|
|
Me.GroupBox5.TabStop = False
|
|
Me.GroupBox5.Text = " Porcentaje de operaciones reportadas"
|
|
'
|
|
'Chart1
|
|
'
|
|
Me.Chart1.BackColor = System.Drawing.Color.White
|
|
Me.Chart1.BorderColor = System.Drawing.Color.White
|
|
Me.Chart1.Chart3D = True
|
|
Me.Chart1.DesignTimeData = "C:\Program Files\ChartFX for .NET 6.2\Wizard\PieShadows.txt"
|
|
Me.Chart1.Dock = System.Windows.Forms.DockStyle.Fill
|
|
Me.Chart1.Gallery = SoftwareFX.ChartFX.Gallery.Pie
|
|
Me.Chart1.GalleryObj.DoughnutThickness = CType(50, Short)
|
|
Me.Chart1.GalleryObj.LineBreak = CType(10, Short)
|
|
Me.Chart1.Location = New System.Drawing.Point(3, 16)
|
|
Me.Chart1.Name = "Chart1"
|
|
Me.Chart1.NSeries = 1
|
|
Me.Chart1.NValues = 3
|
|
Me.Chart1.PointLabels = True
|
|
Me.Chart1.Size = New System.Drawing.Size(336, 181)
|
|
Me.Chart1.TabIndex = 0
|
|
Me.Chart1.Titles.AddRange(New SoftwareFX.ChartFX.TitleDockable() {TitleDockable1})
|
|
'
|
|
'EsquemasDetectados
|
|
'
|
|
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
|
|
Me.BackColor = System.Drawing.Color.White
|
|
Me.ClientSize = New System.Drawing.Size(558, 519)
|
|
Me.Controls.Add(Me.GroupBox5)
|
|
Me.Controls.Add(Me.GroupBox2)
|
|
Me.Controls.Add(Me.GroupBox3)
|
|
Me.Controls.Add(Me.GroupBox4)
|
|
Me.Controls.Add(Me.GroupBox1)
|
|
Me.Controls.Add(Me.tlbEsqDet)
|
|
Me.Name = "EsquemasDetectados"
|
|
Me.GroupBox1.ResumeLayout(False)
|
|
Me.GroupBox4.ResumeLayout(False)
|
|
CType(Me.dtgInusualesDiv, System.ComponentModel.ISupportInitialize).EndInit()
|
|
Me.GroupBox3.ResumeLayout(False)
|
|
Me.GroupBox2.ResumeLayout(False)
|
|
Me.GroupBox5.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
Me.PerformLayout()
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
Private Sub tlbEsqDet_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tlbEsqDet.ButtonClick
|
|
|
|
End Sub
|
|
End Class
|