climsoft · isedwards · Jun 18, 2019 · Jun 18, 2019
diff --git a/ClimsoftVer4/ClimsoftVer4/AcmadCrudModule.vb b/ClimsoftVer4/ClimsoftVer4/AcmadCrudModule.vb
@@ -0,0 +1,247 @@
+Imports MySql.Data.MySqlClient
+Module AcmadCrudModule
+    'Setting up connection
+    '
+    '
+    Public Function strstrconnection() As MySqlConnection
+        Return New MySqlConnection(My.Settings.defaultDatabase)
+    End Function
+    Public strcon As MySqlConnection = strstrconnection()
+    'Declaring variable
+    '
+    '
+    Public result As String
+    Public cmd As New MySqlCommand
+    Public da As New MySqlDataAdapter
+    Public dt As New DataTable
+
+    'Inserting data in database method
+    '
+    '
+    Public Sub create(ByVal sql As String, ByVal strSuccessMsg As String, ByVal strfailedMsg As String)
+        Try
+            If strcon.State <> ConnectionState.Open Then
+                strcon.Open()
+            End If
+            With cmd
+                .Connection = strcon
+                .CommandText = sql
+                result = cmd.ExecuteNonQuery
+                If result = 0 Then
+                    MsgBox(strfailedMsg, MsgBoxStyle.Information)
+                Else
+                    MsgBox(strSuccessMsg)
+                End If
+            End With
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        strcon.Close()
+    End Sub
+    'Retriving data in database method to datagrigView
+    '
+    '
+    Public Sub reloadDataDvgrid(ByVal sql As String, ByVal DTG As Object)
+        Try
+            dt = New DataTable
+            If strcon.State <> ConnectionState.Open Then
+                strcon.Open()
+            End If
+            With cmd
+                .Connection = strcon
+                .CommandText = sql
+            End With
+            da.SelectCommand = cmd
+            da.Fill(dt)
+            DTG.DataSource = dt
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        strcon.Close()
+        da.Dispose()
+    End Sub
+    Public Sub reloadDataTableWithTotal(ByVal sql As String, ByVal DTG As Object)
+        Try
+            dt = New DataTable
+            If strcon.State <> ConnectionState.Open Then
+                strcon.Open()
+            End If
+            With cmd
+                .Connection = strcon
+                .CommandText = sql
+            End With
+            da.SelectCommand = cmd
+            ' dt.Rows.Add(dt.NewRow())
+            'dt.Rows.Add(dt.NewRow())
+            'dt.Rows.InsertAt(dt.NewRow(), dt.Rows.Count - 1)
+            'dt.Rows.InsertAt(dt.NewRow(), dt.Rows.Count - 1)
+            'Dim i, j As Integer
+            'i = 0
+            'j = 0
+
+            'For i = 0 To dgvNebulositeList.Columns.Count - 1
+            '    Dim somme = 0
+            '    For j = 0 To dgvNebulositeList.Rows.Count - 3
+            '        somme = somme + dgvNebulositeList.Rows(j).Cells(i).Value
+            '    Next
+            '    dgvNebulositeList.Rows(dgvNebulositeList.Rows.Count - 2).Cells(i).Value = somme
+            '    dgvNebulositeList.Rows(dgvNebulositeList.Rows.Count - 1).Cells(i).Value = somme / dgvNebulositeList.Rows.Count - 3
+            'Next
+
+
+            da.Fill(dt)
+            dt.Rows.Add(dt.NewRow())
+            dt.Rows.Add(dt.NewRow())
+            DTG.DataSource = dt
+
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        strcon.Close()
+        da.Dispose()
+
+    End Sub
+    Public Function reloadDataTable(ByVal sql As String) As DataTable
+        Try
+            dt = New DataTable
+            If strcon.State <> ConnectionState.Open Then
+                strcon.Open()
+            End If
+            With cmd
+                .Connection = strcon
+                .CommandText = sql
+            End With
+            da.SelectCommand = cmd
+            da.Fill(dt)
+            Return dt
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        strcon.Close()
+        da.Dispose()
+        Return Nothing
+    End Function
+    'Retriving data in database method to datatable
+    '
+    '
+    Public Function reload(ByVal sql As String)
+        Try
+            dt = New DataTable
+            If strcon.State <> ConnectionState.Open Then
+                strcon.Open()
+            End If
+            With cmd
+                .Connection = strcon
+                .CommandText = sql
+            End With
+            da.SelectCommand = cmd
+            da.Fill(dt)
+            Return dt
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            Return Nothing
+        End Try
+        strcon.Close()
+        da.Dispose()
+        Return Nothing
+    End Function
+    'Retriving data in database method
+    '
+    '
+    Public Sub loadCombobox(ByVal sql As String, ByVal combobox As Object, ByVal displayMember As String, ByVal valueMember As String)
+        Try
+            dt = New DataTable
+            If strcon.State <> ConnectionState.Open Then
+                strcon.Open()
+            End If
+            With cmd
+                .Connection = strcon
+                .CommandText = sql
+            End With
+            da.SelectCommand = cmd
+            da.Fill(dt)
+            'With dt.Columns
+            '    .Add("key")
+            '    .Add("value")
+            'End With
+            With combobox
+                .DisplayMember = displayMember
+                .ValueMember = valueMember
+                .DataSource = dt
+            End With
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        strcon.Close()
+        da.Dispose()
+    End Sub
+    'Updating data in database method
+    '
+    '
+    Public Sub updates(ByVal sql As String, ByVal strSuccessMsg As String, ByVal strfailedMsg As String)
+        Try
+            If strcon.State <> ConnectionState.Open Then
+                strcon.Open()
+            End If
+            With cmd
+                .Connection = strcon
+                .CommandText = sql
+                result = cmd.ExecuteNonQuery
+                If result = 0 Then
+                    MsgBox(strfailedMsg, MsgBoxStyle.Information)
+                Else
+                    MsgBox(strSuccessMsg)
+                End If
+            End With
+
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        strcon.Close()
+    End Sub
+    'Deleting data in database method
+    '
+    '
+    Public Sub delete(ByVal sql As String, ByVal strSuccessMsg As String, ByVal strfailedMsg As String)
+        Try
+            If strcon.State <> ConnectionState.Open Then
+                strcon.Open()
+            End If
+            With cmd
+                .Connection = strcon
+                .CommandText = sql
+                result = cmd.ExecuteNonQuery
+                If result = 0 Then
+                    MsgBox(strfailedMsg, MsgBoxStyle.Critical)
+                Else
+                    MsgBox(strSuccessMsg)
+                End If
+            End With
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        strcon.Close()
+    End Sub
+    Public Function getLstId(ByVal sql As String)
+        Dim id As Int32 = 0
+        Try
+            If strcon.State <> ConnectionState.Open Then
+                strcon.Open()
+            End If
+            With cmd
+                .Connection = strcon
+                .CommandText = sql
+                id = Convert.ToInt32(cmd.ExecuteScalar())
+
+            End With
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
+        strcon.Close()
+        Return id
+    End Function
+End Module
diff --git a/ClimsoftVer4/ClimsoftVer4/App.config b/ClimsoftVer4/ClimsoftVer4/App.config
@@ -4,6 +4,10 @@
         <sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
             <section name="ClimsoftVer4.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
         </sectionGroup>
+
+        <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
+            <section name="ClimsoftVer4.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
+        </sectionGroup>
     </configSections>
     <connectionStrings />
     <startup>
@@ -12,11 +16,18 @@
     <applicationSettings>
         <ClimsoftVer4.My.MySettings>
             <setting name="defaultDatabase" serializeAs="String">
-                <value>server=127.0.0.1;database=mysql_climsoft_db_v4;port=3306;</value>
+                <value>server=127.0.0.1;database=mariadb_climsoft_db_v4;port=3306;Uid=root;Pwd=;</value>
             </setting>
             <setting name="defaultRLocation" serializeAs="String">
                 <value>C:\Program Files\R\R-3.2.1</value>
             </setting>
         </ClimsoftVer4.My.MySettings>
     </applicationSettings>
+<userSettings>
+        <ClimsoftVer4.My.MySettings>
+                <setting name="serverDatabase" serializeAs="String">
+                        <value>server=127.0.0.1;database=mysql_climsoft_db_v4;port=3306;</value>
+                </setting>
+        </ClimsoftVer4.My.MySettings>
+    </userSettings>
 </configuration>
diff --git a/ClimsoftVer4/ClimsoftVer4/ClimsoftVer4.sln b/ClimsoftVer4/ClimsoftVer4/ClimsoftVer4.sln
@@ -0,0 +1,20 @@
+
+Microsoft Visual Studio Solution File, Format Version 11.00
+# Visual Studio 2010
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ClimsoftVer4", "ClimsoftVer4.vbproj", "{8D89B70E-E6D5-4383-9C2C-80F532A26F1D}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{8D89B70E-E6D5-4383-9C2C-80F532A26F1D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{8D89B70E-E6D5-4383-9C2C-80F532A26F1D}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{8D89B70E-E6D5-4383-9C2C-80F532A26F1D}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{8D89B70E-E6D5-4383-9C2C-80F532A26F1D}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal