delete link to DEVFAC

mondumas/static/DEVFAC/RPTViewer/FrmEditions.vb

@@ -1,72 +0,0 @@
-Public Class FrmEditions
-    ' Paramètre de connexion à ODBC
-    Private ctDSN_AEM As String = "DSN=bd_aem;"
-    Private szSQL As String
-    Private rs As ADODB.Recordset
-
-    Private Sub FrmEditions_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
-        Dim nb As Integer = 0
-
-
-        ' effacer la listview
-        LV_ETATS.Items.Clear()
-
-        ' Lire les états disponibles dans la rubrique
-        szSQL = "SELECT * FROM p_etats ORDER BY libelle;"
-        GetRecordset(ctDSN_AEM, szSQL, rs)
-
-        Do While Not rs.EOF
-            LV_ETATS.Items.Add(rs.Fields("libelle").Value)
-            LV_ETATS.Items(nb).SubItems.Add(nv(rs.Fields("nom_rpt").Value))
-            LV_ETATS.Items(nb).SubItems.Add(nv(rs.Fields("code").Value))
-            LV_ETATS.Items(nb).SubItems.Add(nv(rs.Fields("dates").Value))
-            ' Get the next record
-            rs.MoveNext()
-            nb = nb + 1
-        Loop
-        ' Close the recordset AND connection.
-        rs.Close()
-
-    End Sub
-
-
-    Private Sub LV_ETATS_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV_ETATS.DoubleClick
-
-        ' un état est-il sélectionné ?
-        If LV_ETATS.SelectedItems.Count <= 0 Then
-            Exit Sub
-        End If
-
-        Dim noRPT As String = LV_ETATS.SelectedItems(0).SubItems(2).Text
-        Dim szNomRPT As String = LV_ETATS.SelectedItems(0).SubItems(1).Text
-
-
-        ' Sélection de DATES ?
-        If LV_ETATS.SelectedItems(0).SubItems(3).Text = "OUI" Then
-            frmDates.ShowDialog()
-            ' dates saisies ?
-            If frmDates.pSelection.Length > 0 Then
-                FrmViewReport.pParamRPT = frmDates.pSelection
-            Else
-                Exit Sub
-            End If
-        Else
-            FrmViewReport.pParamRPT = ""
-        End If
-
-        ' édition de l'état RPT
-        FrmViewReport.pCodeEtat = noRPT
-        FrmViewReport.ShowDialog()
-
-    End Sub
-
-    Private Sub LV_ETATS_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles LV_ETATS.KeyDown
-        ' touche Enter = DoubleClick
-        If e.KeyCode = Keys.Enter Then
-            LV_ETATS_DoubleClick(sender, e)
-        End If
-
-    End Sub
-
-
-End Class