Diploma_Work/Form2.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Class Form2
    Private bitmap As Bitmap
    Dim con As New OleDbConnection
    Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Form1.Hide()

        Me.CenterToScreen()
        Timer1.Start()
        DataGridView1.Hide()
        con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb"
    End Sub
    Private Sub DsadToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DsadToolStripMenuItem.Click
        MsgBox("AutoSalon automated system", MsgBoxStyle.OkOnly)
    End Sub

    Private Sub DasdsToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles DasdsToolStripMenuItem.Click
        Me.Close()
        Form1.Close()
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label2.Text = TimeOfDay.ToString("h:mm:ss tt")
    End Sub
    Private Sub ԱվելացնելToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ԱվելացնելToolStripMenuItem.Click
        autopartsav.Show()
    End Sub
    Private Sub ԱվելացնելToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ԱվելացնելToolStripMenuItem1.Click
        carsav.Show()
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Close()
        Form1.Show()
    End Sub
    Private Sub ՑուցադրելToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ՑուցադրելToolStripMenuItem.Click
        Dim dt As New DataTable
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter
        con.Open()
        ds.Tables.Add(dt)
        da = New OleDbDataAdapter("SELECT * FROM auto_parts", con)
        da.Fill(dt)
        DataGridView1.DataSource = dt.DefaultView
        con.Close()
    End Sub
    Private Sub ՑուցադրելToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ՑուցադրելToolStripMenuItem1.Click
        Dim aa As New DataTable
        Dim da As New DataSet
        Dim gg As New OleDbDataAdapter
        con.Open()
        da.Tables.Add(aa)
        gg = New OleDbDataAdapter("SELECT * FROM cars", con)
        gg.Fill(aa)
        DataGridView1.DataSource = aa.DefaultView
        con.Close()
    End Sub
    Private Sub ՑուցադրելToolStripMenuItem2_Click(sender As System.Object, e As System.EventArgs) Handles ՑուցադրելToolStripMenuItem2.Click
        Dim aa As New DataTable
        Dim da As New DataSet
        Dim gg As New OleDbDataAdapter