frmdataedit.vb

来自「酒店管理系统,可以用户与酒店的管理,客房登记、结帐、预定」· VB 代码 · 共 324 行

Imports System.Data.SqlClient
Public Class frmDataEdit
    Inherits System.Windows.Forms.Form
    Public BmBaseDataEdit As BindingManagerBase
    Dim strDataItem As String
    Dim cndiaz As SqlConnection
    Dim dsBaseDataEdit As New DataSet
    Public Property MyConnection() As SqlConnection
        Get
            MyConnection = cndiaz
        End Get
        Set(ByVal Value As SqlConnection)
            cndiaz = Value
        End Set
    End Property
    Public Property MyDataSet() As DataSet
        Get
            MyDataSet = dsBaseDataEdit
        End Get
        Set(ByVal Value As DataSet)
            dsBaseDataEdit = Value
        End Set
    End Property
    Public Property MyDataItem() As String
        Get
            MyDataItem = strDataItem
        End Get
        Set(ByVal Value As String)
            strDataItem = Value
        End Set
    End Property
    Public Overridable Sub setmydata()

    End Sub
    Public Overridable Sub filldata()

    End Sub
    Public Overridable Sub uploadadddata()

    End Sub
    Public Overridable Sub uploadmodifydata()

    End Sub
    Public Overridable Sub uploaddeletedata()

    End Sub
#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    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

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents btnAdd As System.Windows.Forms.Button
    Friend WithEvents btnUpdate As System.Windows.Forms.Button
    Friend WithEvents btnCancel As System.Windows.Forms.Button
    Friend WithEvents btnPrior As System.Windows.Forms.Button
    Friend WithEvents btnLast As System.Windows.Forms.Button
    Friend WithEvents btnDelete As System.Windows.Forms.Button
    Friend WithEvents btnLoad As System.Windows.Forms.Button
    Friend WithEvents btnFirst As System.Windows.Forms.Button
    Friend WithEvents btnNext As System.Windows.Forms.Button
    Friend WithEvents lblposition As System.Windows.Forms.TextBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.btnAdd = New System.Windows.Forms.Button
        Me.btnUpdate = New System.Windows.Forms.Button
        Me.btnCancel = New System.Windows.Forms.Button
        Me.btnPrior = New System.Windows.Forms.Button
        Me.btnLast = New System.Windows.Forms.Button
        Me.btnDelete = New System.Windows.Forms.Button
        Me.btnLoad = New System.Windows.Forms.Button
        Me.btnFirst = New System.Windows.Forms.Button
        Me.btnNext = New System.Windows.Forms.Button
        Me.lblposition = New System.Windows.Forms.TextBox
        Me.SuspendLayout()
        '
        'btnAdd
        '
        Me.btnAdd.Location = New System.Drawing.Point(184, 32)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.TabIndex = 0
        Me.btnAdd.Text = "新增"
        '
        'btnUpdate
        '
        Me.btnUpdate.Location = New System.Drawing.Point(464, 32)
        Me.btnUpdate.Name = "btnUpdate"
        Me.btnUpdate.TabIndex = 1
        Me.btnUpdate.Text = "更新"
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(376, 32)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.TabIndex = 2
        Me.btnCancel.Text = "取消"
        '
        'btnPrior
        '
        Me.btnPrior.Location = New System.Drawing.Point(160, 112)
        Me.btnPrior.Name = "btnPrior"
        Me.btnPrior.Size = New System.Drawing.Size(40, 23)
        Me.btnPrior.TabIndex = 3
        Me.btnPrior.Text = "<"
        '
        'btnLast
        '
        Me.btnLast.Location = New System.Drawing.Point(464, 112)
        Me.btnLast.Name = "btnLast"
        Me.btnLast.Size = New System.Drawing.Size(40, 23)
        Me.btnLast.TabIndex = 4
        Me.btnLast.Text = "》"
        '
        'btnDelete
        '
        Me.btnDelete.Location = New System.Drawing.Point(280, 32)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.TabIndex = 5
        Me.btnDelete.Text = "删除"
        '
        'btnLoad
        '
        Me.btnLoad.Location = New System.Drawing.Point(80, 32)
        Me.btnLoad.Name = "btnLoad"
        Me.btnLoad.TabIndex = 6
        Me.btnLoad.Text = "加载"
        '
        'btnFirst
        '
        Me.btnFirst.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.btnFirst.Location = New System.Drawing.Point(80, 112)
        Me.btnFirst.Name = "btnFirst"
        Me.btnFirst.Size = New System.Drawing.Size(48, 24)
        Me.btnFirst.TabIndex = 7
        Me.btnFirst.Text = "《"
        '
        'btnNext
        '
        Me.btnNext.Location = New System.Drawing.Point(400, 112)
        Me.btnNext.Name = "btnNext"
        Me.btnNext.Size = New System.Drawing.Size(40, 23)
        Me.btnNext.TabIndex = 8
        Me.btnNext.Text = ">"
        '
        'lblposition
        '
        Me.lblposition.Location = New System.Drawing.Point(208, 112)
        Me.lblposition.Name = "lblposition"
        Me.lblposition.Size = New System.Drawing.Size(184, 21)
        Me.lblposition.TabIndex = 9
        Me.lblposition.Text = ""
        '
        'frmDataEdit
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(640, 266)
        Me.Controls.Add(Me.lblposition)
        Me.Controls.Add(Me.btnNext)
        Me.Controls.Add(Me.btnFirst)
        Me.Controls.Add(Me.btnLoad)
        Me.Controls.Add(Me.btnDelete)
        Me.Controls.Add(Me.btnLast)
        Me.Controls.Add(Me.btnPrior)
        Me.Controls.Add(Me.btnCancel)
        Me.Controls.Add(Me.btnUpdate)
        Me.Controls.Add(Me.btnAdd)
        Me.Name = "frmDataEdit"
        Me.Text = "frmDataEdit"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub frmDataEdit_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dsBaseDataEdit.Clear()
        setmydata()
        BmBaseDataEdit = Me.BindingContext(dsBaseDataEdit, strDataItem)

    End Sub

    Public Sub showposition()
        lblposition.Text = "记录" & BmBaseDataEdit.Position + 1 & "of" & BmBaseDataEdit.Count

    End Sub

    Private Sub btnFirst_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnFirst.Click
        BmBaseDataEdit.Position = 0
        showposition()

    End Sub

    Private Sub btnPrior_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrior.Click
        If BmBaseDataEdit.Position <> 0 Then
            BmBaseDataEdit.Position -= 1
            showposition()
        End If
    End Sub

    Private Sub btnNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNext.Click
        If BmBaseDataEdit.Position <> BmBaseDataEdit.Count Then
            BmBaseDataEdit.Position += 1
            showposition()
        End If
    End Sub

    Private Sub btnLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLast.Click
        BmBaseDataEdit.Position = BmBaseDataEdit.Count
        showposition()
    End Sub

    Private Sub btnLoad_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLoad.Click
        dsBaseDataEdit.EnforceConstraints = False
        filldata()
        dsBaseDataEdit.EnforceConstraints = True
        MessageBox.Show("数据集已填充!", "信息", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

    Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Try
            BmBaseDataEdit.EndCurrentEdit()
            BmBaseDataEdit.AddNew()

        Catch err As System.SystemException
            MessageBox.Show(err.ToString, "新增记录发生错误", MessageBoxButtons.OK, MessageBoxIcon.Error)


        End Try
    End Sub

    Private Sub btnDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        If BmBaseDataEdit.Count > 0 Then
            If MessageBox.Show("确定要删除吗？", "删除确认", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
                BmBaseDataEdit.RemoveAt(BmBaseDataEdit.Position)

            End If
        End If
    End Sub

    Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        BmBaseDataEdit.CancelCurrentEdit()

    End Sub

    Private Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Dim ierr As Integer
        Dim dsbasedataeditchange As DataSet
        ierr = 0
        Try
            BmBaseDataEdit.EndCurrentEdit()

        Catch err As System.Exception
            ierr += 1
            MessageBox.Show(err.ToString, "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Error)


        End Try
        If dsBaseDataEdit.HasChanges(DataRowState.Deleted) Then
            Try
                uploaddeletedata()
                dsBaseDataEdit.AcceptChanges()

            Catch err As System.SystemException
                ierr += 1

                dsBaseDataEdit.RejectChanges()
                MessageBox.Show(err.ToString, "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
        End If
        If dsBaseDataEdit.HasChanges(DataRowState.Added) Then
            Try
                uploadadddata()
                dsBaseDataEdit.AcceptChanges()

            Catch err As System.Data.SqlClient.SqlException
                ierr += 1
                dsBaseDataEdit.RejectChanges()
                MessageBox.Show(err.ToString, "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Error)


            End Try
        End If
        If dsBaseDataEdit.HasChanges(DataRowState.Modified) Then
            Try
                uploadmodifydata()
                dsBaseDataEdit.AcceptChanges()

            Catch err As System.SystemException
                ierr += 1
                dsBaseDataEdit.RejectChanges()
                MessageBox.Show(err.ToString, "错误提示", MessageBoxButtons.OK, MessageBoxIcon.Error)


            End Try
        End If
        If ierr = 0 Then
            MessageBox.Show("数据库已更新!", "信息", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If
    End Sub
End Class