form1.vb

这是一个仓库管理系统

Public Class Form1

    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 TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents bntStart As System.Windows.Forms.Button
    Friend WithEvents bntSave As System.Windows.Forms.Button
    Friend WithEvents bntExit As System.Windows.Forms.Button
    Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
    Friend WithEvents Clear As System.Windows.Forms.Button
    Friend WithEvents List As System.Windows.Forms.ListBox
    Friend WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection
    Friend WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
    Friend WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
    Friend WithEvents DataSet11 As Datagrid.DataSet1
    Friend WithEvents DataGridTableStyle1 As System.Windows.Forms.DataGridTableStyle
    Friend WithEvents forum_subject_id As System.Windows.Forms.DataGridTextBoxColumn
    Friend WithEvents forum_subject_name As System.Windows.Forms.DataGridTextBoxColumn
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.TabControl1 = New System.Windows.Forms.TabControl
        Me.TabPage1 = New System.Windows.Forms.TabPage
        Me.DataGrid1 = New System.Windows.Forms.DataGrid
        Me.DataSet11 = New Datagrid.DataSet1
        Me.DataGridTableStyle1 = New System.Windows.Forms.DataGridTableStyle
        Me.forum_subject_id = New System.Windows.Forms.DataGridTextBoxColumn
        Me.forum_subject_name = New System.Windows.Forms.DataGridTextBoxColumn
        Me.bntExit = New System.Windows.Forms.Button
        Me.bntSave = New System.Windows.Forms.Button
        Me.bntStart = New System.Windows.Forms.Button
        Me.TabPage2 = New System.Windows.Forms.TabPage
        Me.List = New System.Windows.Forms.ListBox
        Me.Clear = New System.Windows.Forms.Button
        Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection
        Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter
        Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand
        Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand
        Me.TabControl1.SuspendLayout()
        Me.TabPage1.SuspendLayout()
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.TabPage2.SuspendLayout()
        Me.SuspendLayout()
        '
        'TabControl1
        '
        Me.TabControl1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.TabControl1.Controls.Add(Me.TabPage1)
        Me.TabControl1.Controls.Add(Me.TabPage2)
        Me.TabControl1.Location = New System.Drawing.Point(16, 24)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(352, 328)
        Me.TabControl1.TabIndex = 0
        '
        'TabPage1
        '
        Me.TabPage1.Controls.Add(Me.DataGrid1)
        Me.TabPage1.Controls.Add(Me.bntExit)
        Me.TabPage1.Controls.Add(Me.bntSave)
        Me.TabPage1.Controls.Add(Me.bntStart)
        Me.TabPage1.Location = New System.Drawing.Point(4, 21)
        Me.TabPage1.Name = "TabPage1"
        Me.TabPage1.Size = New System.Drawing.Size(344, 303)
        Me.TabPage1.TabIndex = 0
        Me.TabPage1.Text = "数据显示"
        '
        'DataGrid1
        '
        Me.DataGrid1.CaptionText = "讨论"
        Me.DataGrid1.DataMember = "forum"
        Me.DataGrid1.DataSource = Me.DataSet11
        Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGrid1.Location = New System.Drawing.Point(32, 64)
        Me.DataGrid1.Name = "DataGrid1"
        Me.DataGrid1.Size = New System.Drawing.Size(288, 168)
        Me.DataGrid1.TabIndex = 3
        Me.DataGrid1.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.DataGridTableStyle1})
        '
        'DataSet11
        '
        Me.DataSet11.DataSetName = "DataSet1"
        Me.DataSet11.Locale = New System.Globalization.CultureInfo("zh-CN")
        '
        'DataGridTableStyle1
        '
        Me.DataGridTableStyle1.DataGrid = Me.DataGrid1
        Me.DataGridTableStyle1.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.forum_subject_id, Me.forum_subject_name})
        Me.DataGridTableStyle1.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.DataGridTableStyle1.LinkColor = System.Drawing.SystemColors.Info
        Me.DataGridTableStyle1.MappingName = "forum"
        '
        'forum_subject_id
        '
        Me.forum_subject_id.Format = ""
        Me.forum_subject_id.FormatInfo = Nothing
        Me.forum_subject_id.HeaderText = "讨论代码"
        Me.forum_subject_id.MappingName = "forum_subject_id"
        Me.forum_subject_id.Width = 75
        '
        'forum_subject_name
        '
        Me.forum_subject_name.Format = ""
        Me.forum_subject_name.FormatInfo = Nothing
        Me.forum_subject_name.HeaderText = "讨论科目"
        Me.forum_subject_name.MappingName = "forum_subject_name"
        Me.forum_subject_name.Width = 75
        '
        'bntExit
        '
        Me.bntExit.Location = New System.Drawing.Point(240, 16)
        Me.bntExit.Name = "bntExit"
        Me.bntExit.Size = New System.Drawing.Size(64, 24)
        Me.bntExit.TabIndex = 2
        Me.bntExit.Text = "离开"
        '
        'bntSave
        '
        Me.bntSave.Location = New System.Drawing.Point(136, 16)
        Me.bntSave.Name = "bntSave"
        Me.bntSave.Size = New System.Drawing.Size(64, 24)
        Me.bntSave.TabIndex = 1
        Me.bntSave.Text = "保存"
        '
        'bntStart
        '
        Me.bntStart.Location = New System.Drawing.Point(24, 16)
        Me.bntStart.Name = "bntStart"
        Me.bntStart.Size = New System.Drawing.Size(64, 24)
        Me.bntStart.TabIndex = 0
        Me.bntStart.Text = "启动"
        '
        'TabPage2
        '
        Me.TabPage2.Controls.Add(Me.List)
        Me.TabPage2.Controls.Add(Me.Clear)
        Me.TabPage2.Location = New System.Drawing.Point(4, 21)
        Me.TabPage2.Name = "TabPage2"
        Me.TabPage2.Size = New System.Drawing.Size(344, 303)
        Me.TabPage2.TabIndex = 1
        Me.TabPage2.Text = "操作记录"
        '
        'List
        '
        Me.List.BackColor = System.Drawing.Color.Black
        Me.List.ForeColor = System.Drawing.Color.Lime
        Me.List.ItemHeight = 12
        Me.List.Location = New System.Drawing.Point(16, 56)
        Me.List.Name = "List"
        Me.List.Size = New System.Drawing.Size(304, 196)
        Me.List.TabIndex = 1
        '
        'Clear
        '
        Me.Clear.Location = New System.Drawing.Point(24, 16)
        Me.Clear.Name = "Clear"
        Me.Clear.Size = New System.Drawing.Size(88, 24)
        Me.Clear.TabIndex = 0
        Me.Clear.Text = "清除"
        '
        'OleDbConnection1
        '
        Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
        "ocking Mode=1;Jet OLEDB:Database Password=;Data Source=""C:\forus.mdb"";Password=;" & _
        "Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions=1;Provider=""Microsoft" & _
        ".Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP=False;Extended Properti" & _
        "es=;Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create Syste" & _
        "m Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact " & _
        "Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encrypt Database=False"
        '
        'OleDbDataAdapter1
        '
        Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1
        Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1
        Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1
        Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "forum", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("forum_subject_id", "forum_subject_id"), New System.Data.Common.DataColumnMapping("forum_subject_name", "forum_subject_name")})})
        Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1
        '
        'OleDbDeleteCommand1
        '
        Me.OleDbDeleteCommand1.CommandText = "DELETE FROM forum WHERE (forum_subject_id = ?) AND (forum_subject_name = ?)"
        Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("@forum_subject_id", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "forum_subject_id", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("@forum_subject_name", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "forum_subject_name", System.Data.DataRowVersion.Original, Nothing))
        '
        'OleDbInsertCommand1
        '
        Me.OleDbInsertCommand1.CommandText = "INSERT INTO forum (forum_subject_id, forum_subject_name) VALUES (?, ?)"
        Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("forum_subject_id", System.Data.OleDb.OleDbType.SmallInt, 0, "forum_subject_id"))
        Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("forum_subject_name", System.Data.OleDb.OleDbType.VarWChar, 50, "forum_subject_name"))
        '
        'OleDbSelectCommand1
        '
        Me.OleDbSelectCommand1.CommandText = "SELECT forum_subject_id, forum_subject_name FROM forum"
        Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1
        '
        'OleDbUpdateCommand1
        '
        Me.OleDbUpdateCommand1.CommandText = "UPDATE forum SET forum_subject_id = ?, forum_subject_name = ? WHERE (forum_subjec" & _
        "t_id = ?) AND (forum_subject_name = ?)"
        Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("forum_subject_id", System.Data.OleDb.OleDbType.SmallInt, 0, "forum_subject_id"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("forum_subject_name", System.Data.OleDb.OleDbType.VarWChar, 50, "forum_subject_name"))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_forum_subject_id", System.Data.OleDb.OleDbType.SmallInt, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "forum_subject_id", System.Data.DataRowVersion.Original, Nothing))
        Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_forum_subject_name", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "forum_subject_name", System.Data.DataRowVersion.Original, Nothing))
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(384, 380)
        Me.Controls.Add(Me.TabControl1)
        Me.Name = "Form1"
        Me.Text = "DataGrid演示"
        Me.TabControl1.ResumeLayout(False)
        Me.TabPage1.ResumeLayout(False)
        CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()
        Me.TabPage2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub writelist(ByVal strinput As String)
        List.Items.Add(strinput)
    End Sub
    Private Sub bntStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntStart.Click
        OleDbDataAdapter1.Fill(Me.DataSet11)
        writelist("已经成功的连接到数据库，并读出数据！")
        bntStart.Enabled = False

    End Sub

    Private Sub bntExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntExit.Click
        Me.Close()

    End Sub

    Private Sub Clear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clear.Click
        List.Items.Clear()
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub bntSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntSave.Click
        If Me.DataSet11.HasChanges = True Then
            Me.OleDbDataAdapter1.Update(Me.DataSet11)
            writelist("您已经成功的更新数据库")
            MessageBox.Show("您已经成功的更新数据库")
        End If
    End Sub

End Class