acchange.vb

vb。net 2003数据库设计整套源代码

Public Class acchange
    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
        Dim myResult As Short
        myResult = OpenDb()

    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 txtdescript As System.Windows.Forms.TextBox
    Friend WithEvents txtprice As System.Windows.Forms.TextBox
    Friend WithEvents txtstand As System.Windows.Forms.TextBox
    Friend WithEvents txtano As System.Windows.Forms.TextBox
    Friend WithEvents txtaname As System.Windows.Forms.TextBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents butdel As System.Windows.Forms.Button
    Friend WithEvents btadd As System.Windows.Forms.Button
    Friend WithEvents btclose As System.Windows.Forms.Button
    Friend WithEvents btedit As System.Windows.Forms.Button
    Friend WithEvents Label3 As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.txtdescript = New System.Windows.Forms.TextBox()
        Me.txtprice = New System.Windows.Forms.TextBox()
        Me.txtstand = New System.Windows.Forms.TextBox()
        Me.txtano = New System.Windows.Forms.TextBox()
        Me.txtaname = New System.Windows.Forms.TextBox()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.butdel = New System.Windows.Forms.Button()
        Me.btadd = New System.Windows.Forms.Button()
        Me.btedit = New System.Windows.Forms.Button()
        Me.btclose = New System.Windows.Forms.Button()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.SuspendLayout()
        '
        'txtdescript
        '
        Me.txtdescript.Location = New System.Drawing.Point(80, 104)
        Me.txtdescript.Name = "txtdescript"
        Me.txtdescript.Size = New System.Drawing.Size(80, 21)
        Me.txtdescript.TabIndex = 20
        Me.txtdescript.Text = ""
        '
        'txtprice
        '
        Me.txtprice.Location = New System.Drawing.Point(224, 64)
        Me.txtprice.Name = "txtprice"
        Me.txtprice.Size = New System.Drawing.Size(80, 21)
        Me.txtprice.TabIndex = 19
        Me.txtprice.Text = ""
        '
        'txtstand
        '
        Me.txtstand.Location = New System.Drawing.Point(80, 64)
        Me.txtstand.Name = "txtstand"
        Me.txtstand.Size = New System.Drawing.Size(80, 21)
        Me.txtstand.TabIndex = 18
        Me.txtstand.Text = ""
        '
        'txtano
        '
        Me.txtano.Location = New System.Drawing.Point(224, 16)
        Me.txtano.Name = "txtano"
        Me.txtano.Size = New System.Drawing.Size(80, 21)
        Me.txtano.TabIndex = 17
        Me.txtano.Text = ""
        '
        'txtaname
        '
        Me.txtaname.Location = New System.Drawing.Point(80, 16)
        Me.txtaname.Name = "txtaname"
        Me.txtaname.Size = New System.Drawing.Size(80, 21)
        Me.txtaname.TabIndex = 16
        Me.txtaname.Text = ""
        '
        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(32, 64)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(40, 21)
        Me.Label6.TabIndex = 15
        Me.Label6.Text = "标准"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(176, 64)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(80, 23)
        Me.Label5.TabIndex = 14
        Me.Label5.Text = "价格"
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 104)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(56, 21)
        Me.Label4.TabIndex = 13
        Me.Label4.Text = "  描述"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(176, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(72, 23)
        Me.Label2.TabIndex = 12
        Me.Label2.Text = "零件号"
        '
        'Label1
        '
        Me.Label1.Anchor = (((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                    Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right)
        Me.Label1.Location = New System.Drawing.Point(32, 16)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(0, 21)
        Me.Label1.TabIndex = 11
        Me.Label1.Text = "零件名"
        '
        'butdel
        '
        Me.butdel.Location = New System.Drawing.Point(16, 136)
        Me.butdel.Name = "butdel"
        Me.butdel.Size = New System.Drawing.Size(64, 23)
        Me.butdel.TabIndex = 21
        Me.butdel.Text = "删除"
        '
        'btadd
        '
        Me.btadd.Location = New System.Drawing.Point(94, 136)
        Me.btadd.Name = "btadd"
        Me.btadd.Size = New System.Drawing.Size(64, 23)
        Me.btadd.TabIndex = 22
        Me.btadd.Text = "添加"
        '
        'btedit
        '
        Me.btedit.Location = New System.Drawing.Point(172, 136)
        Me.btedit.Name = "btedit"
        Me.btedit.Size = New System.Drawing.Size(60, 23)
        Me.btedit.TabIndex = 23
        Me.btedit.Text = "修改"
        '
        'btclose
        '
        Me.btclose.Location = New System.Drawing.Point(246, 136)
        Me.btclose.Name = "btclose"
        Me.btclose.Size = New System.Drawing.Size(58, 23)
        Me.btclose.TabIndex = 24
        Me.btclose.Text = "退出"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(24, 16)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(48, 21)
        Me.Label3.TabIndex = 25
        Me.Label3.Text = "零件名"
        '
        'acchange
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.SystemColors.Window
        Me.ClientSize = New System.Drawing.Size(320, 181)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label3, Me.btclose, Me.btedit, Me.btadd, Me.butdel, Me.txtdescript, Me.txtprice, Me.txtstand, Me.txtano, Me.txtaname, Me.Label6, Me.Label5, Me.Label4, Me.Label2, Me.Label1})
        Me.Name = "acchange"
        Me.Text = "零件变化"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim Mydb As DAO.Database
    '定义一个DAO.Database数据库对象
    Dim MyWs As DAO.Workspace
    '定义一个工作空间DAO.Workspace
    Dim MySql As String
    '定义一个字符串用来存放SQL查询语言
    Dim Myrec As DAO.Recordset
    '定义一个数据项DAO.Recordset
    Dim de As DAO.DBEngine = New DAO.DBEngine()
    '定义一个数据引擎DAO.DBEngine()
    Public Function OpenDb() As Short
        '定义一个数据打开函数
        Dim dbstr As String
        '定义一个字符串来存放数据库所在目录
        dbstr = Application.StartupPath & "\depot.mdb"
        '取得数据库所在目录
        MyWs = de.Workspaces(0)
        '建立一个工作空间
        Mydb = MyWs.OpenDatabase(dbstr, False, False)
        '打开数据库存放于Mydb
        dbstr = "select * from accessory"
        '设置SQL打开方式
        Myrec = Mydb.OpenRecordset(dbstr, DAO.RecordsetTypeEnum.dbOpenDynaset)
        '打开数据项
    End Function


    Private Sub btadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btadd.Click
        Dim dbstr As String
        '建立一个字符串变量
        dbstr = "select * from accessory where ano='" & txtano.Text & "'"
        '建立SQL查询
        Myrec = Mydb.OpenRecordset(dbstr, DAO.RecordsetTypeEnum.dbOpenDynaset)
        '执SQL查询
        If txtano.Text = "" Or txtano.Text = "" Or txtaname.Text = "" Or txtprice.Text = "" Or txtstand.Text = "" Or txtdescript.Text = "" Then
            MsgBox("请输入完整的零件信息。", Microsoft.VisualBasic.MsgBoxStyle.OKOnly, "信息框")
        ElseIf Myrec.EOF Then
            '判断是否存在当前记录,如果不存在进行如下操作
            Myrec.AddNew()
            '增加新记录
            Myrec.Fields(0).Value = txtano.Text
            '给myrec.Fields(0)赋值
            Myrec.Fields(1).Value = txtaname.Text
            '给myrec.Fields(1)赋值
            Myrec.Fields(2).Value = txtstand.Text
            '给myrec.Fields(3)赋值
            Myrec.Fields(3).Value = Val(txtprice.Text)
            '给myrec.Fields(2)赋值,val类型转化
            Myrec.Fields(4).Value = txtdescript.Text
            '给myrec.Fields(2)赋值
            Myrec.Update()
            '保存数据
            '以下清空文本框
            txtano.Text = ""
            txtaname.Text = ""
            txtprice.Text = ""
            txtstand.Text = ""
            txtdescript.Text = ""
        Else
            '判断是否存在当前记录,如果存在进行如下操作
            MsgBox("这个零件号已经存在了，请重新输入。", Microsoft.VisualBasic.MsgBoxStyle.OKOnly, "信息框")
            '以下清空文本框
            txtano.Text = ""
            txtaname.Text = ""
            txtprice.Text = ""
            txtstand.Text = ""
            txtdescript.Text = ""
        End If
        dbstr = "select * from accessory"
        '重新建立SQL查询
        Myrec = Mydb.OpenRecordset(dbstr, DAO.RecordsetTypeEnum.dbOpenDynaset)
        '执SQL查询        
    End Sub

    Private Sub btedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btedit.Click
        Dim dbstr As String
        '建立一个字符串变量
        dbstr = "select * from accessory where ano='" & txtano.Text & "'or aname='" & txtaname.Text & "'"
        '建立SQL查询
        Myrec = Mydb.OpenRecordset(dbstr, DAO.RecordsetTypeEnum.dbOpenDynaset)
        '执SQL查询
        If Myrec.EOF Then
            '判断是否存在当前记录,如果存在进行如下操作
            MsgBox("这个零件号不存在，如果你想新增，请输入之后选择新增。", Microsoft.VisualBasic.MsgBoxStyle.OKOnly, "信息框")
            '以下清空文本框
            txtano.Text = ""
            txtaname.Text = ""
            txtprice.Text = ""
            txtstand.Text = ""
            txtdescript.Text = ""
        Else
            Myrec.Edit()
            '编辑当前记录
            Myrec.Fields(0).Value = txtano.Text
            '给myrec.Fields(0)赋值
            Myrec.Fields(1).Value = txtaname.Text
            '给myrec.Fields(1)赋值
            Myrec.Fields(2).Value = txtstand.Text
            '给myrec.Fields(3)赋值
            Myrec.Fields(3).Value = Val(txtprice.Text)
            '给myrec.Fields(2)赋值,val类型转化
            Myrec.Fields(4).Value = txtdescript.Text
            '给myrec.Fields(2)赋值
            Myrec.Update()
            '保存数据
            '以下清空文本框
            txtano.Text = ""
            txtaname.Text = ""
            txtprice.Text = ""
            txtstand.Text = ""
            txtdescript.Text = ""
        End If
        dbstr = "select * from accessory"
        '重新建立SQL查询
        Myrec = Mydb.OpenRecordset(dbstr, DAO.RecordsetTypeEnum.dbOpenDynaset)
        '执SQL查询        
    End Sub

    Private Sub btclose_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btclose.Click
        Me.Close()
        '退出程序
    End Sub

    Private Sub butdel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butdel.Click
        Dim dbstr As String
        '建立一个字符串变量
        dbstr = "select * from accessory where ano='" & txtano.Text & "' or aname='" & txtaname.Text & "'"
        '建立SQL查询
        Myrec = Mydb.OpenRecordset(dbstr, DAO.RecordsetTypeEnum.dbOpenDynaset)

        '执SQL查询
        If Myrec.EOF Then
            '判断是否存在当前记录,如果存在进行如下操作
            MsgBox("这个零件号已经不存在。", Microsoft.VisualBasic.MsgBoxStyle.OKOnly, "信息框")
        ElseIf MessageBox.Show("您即将删除" & txtano.Text & "," & txtaname.Text & "的资料", "My Application", _
         MessageBoxButtons.YesNo, MessageBoxIcon.Question) _
         = DialogResult.Yes Then
            Myrec.Delete()
            txtano.Text = ""
            txtaname.Text = ""
            txtprice.Text = ""
            txtstand.Text = ""
            txtdescript.Text = ""
        Else
            txtano.Text = ""
            txtaname.Text = ""
            txtprice.Text = ""
            txtstand.Text = ""
            txtdescript.Text = ""
            Exit Sub

        End If


    End Sub
End Class