Imports System.Data
Imports System.Data.SQLite
 
 
Public Class bugserv_start
    Private Sub bugserv_start_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        web_news.MdiParent = Me
        web_news.Show()
    End Sub
    Private Sub bugserv_start_Close(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.FormClosed
        welcome.Close()
    End Sub
 
    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub
 
    Private Sub MitarbeiterToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      MitarbeiterToolStripMenuItem.Click
        adressen_mitarbeiter_eingabe.MdiParent = Me
        adressen_mitarbeiter_eingabe.Show()
    End Sub
 
    Private Sub InfoToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles InfoToolStripMenuItem.Click
        info.MdiParent = Me
        info.Show()
    End Sub
 
    Private Sub KundenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles KundenToolStripMenuItem.Click
        'adressen_kunden_eingabe.MdiParent = Me
 
    End Sub
 
    Private Sub NeuerWochenberichtToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      NeuerWochenberichtToolStripMenuItem.Click
        wochenbericht.MdiParent = Me
        wochenbericht.Show()
    End Sub
 
    Private Sub GrundgerüstErstellenToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      GrundgerüstErstellenToolStripMenuItem.Click
        Dim connect As New SQLite.SQLiteConnection()
        Dim command As SQLiteCommand
        connect.ConnectionString = "Data Source=bugserv.db;"
        connect.Open()
        connect.Close()
 
        connect.Open()
        command = connect.CreateCommand
        command.CommandText = "CREATE TABLE mitarbeiter(id INTEGER PRIMARY KEY" & _
          "AUTOINCREMENT,name TEXT);" 'Die Query
        command.ExecuteNonQuery() ' Die Query wird ausgeführt
        command.Dispose()
        connect.Close() 'Schließen
    End Sub
 
    Private Sub database()
        Throw New NotImplementedException
    End Sub
 
    Private Sub functions()
        Throw New NotImplementedException
    End Sub
 
    Private Sub DemodatenEinspielenToolStripMenuItem_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      DemodatenEinspielenToolStripMenuItem.Click
        Dim connect As New SQLite.SQLiteConnection()
        Dim command As SQLiteCommand
        connect.ConnectionString = "Data Source=user.s3db;"
        connect.Open()
        connect.Close()
 
        connect.Open()
        command = connect.CreateCommand
        command.CommandText = "INSERT INTO user (name) VALUES ('michael')"
        command.ExecuteNonQuery() ' Die Query wird ausgeführt
        command.Dispose()
        connect.Close() 'Schließen
    End Sub
 
    Private Sub MitarbeiterToolStripMenuItem1_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      MitarbeiterToolStripMenuItem1.Click
        Dim connect As New SQLite.SQLiteConnection()
        Dim command As SQLiteCommand
        connect.ConnectionString = "Data Source=bugserv.db;"
        connect.Open()
        connect.Close()
 
        connect.Open()
        command = connect.CreateCommand
        command.CommandText = "CREATE TABLE mitarbeiter(id INTEGER PRIMARY KEY" & _
          "AUTOINCREMENT,name TEXT);" 'Die Query
        command.ExecuteNonQuery() ' Die Query wird ausgeführt
        command.Dispose()
        connect.Close() 'Schließen
    End Sub
End Class