subtractform.vb

这是一个固定资产管理系统的源代码

'文件名：SubtractForm.vb
Imports System.Data.SqlClient
Public Class SubtractForm
    Private Sub 减少固定资产BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 减少固定资产BindingNavigatorSaveItem.Click
        Me.Validate()
        Me.减少固定资产BindingSource.EndEdit()
        Me.减少固定资产TableAdapter.Update(Me.MyAssetsDataSet.减少固定资产)
    End Sub
    Private Sub SubtractForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“MyAssetsDataSet.可用固定资产视图”中。您可以根据需要移动或移除它。
        'Me.可用固定资产视图TableAdapter.Fill(Me.MyAssetsDataSet.可用固定资产视图)
        'TODO: 这行代码将数据加载到表“MyAssetsDataSet.减少固定资产”中。您可以根据需要移动或移除它。
        Me.减少固定资产TableAdapter.Fill(Me.MyAssetsDataSet.减少固定资产)
    End Sub
    Private Sub BindingNavigatorAddNewItem_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BindingNavigatorAddNewItem.MouseUp
        查询ToolStripButton_Click(Nothing, Nothing)
        '自动计算自编号
        Dim MySQLConnectionString As String = My.Settings.MyAssetsConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyCommand As SqlCommand = MyConnection.CreateCommand()
        MyCommand.CommandText = "Select max(自编号) 最大编号 From 减少固定资产"
        Dim MyResult As Object = MyCommand.ExecuteScalar()
        Dim MyID As System.Int64 = 1
        If (Not (MyResult Is System.DBNull.Value)) Then
            Dim MyMaxID As String = MyResult.ToString().Trim()
            MyMaxID = MyMaxID.Substring(2, MyMaxID.Length - 2)
            MyID = Convert.ToInt64(MyMaxID) + 1
        End If
        Dim MyLength As Integer = MyID.ToString().Length
        Dim MyNewID As String = ""
        Select Case (MyLength)
            Case 1
                MyNewID = "JS0000000" + MyID.ToString()
            Case 2
                MyNewID = "JS000000" + MyID.ToString()
            Case 3
                MyNewID = "JS00000" + MyID.ToString()
            Case 4
                MyNewID = "JS0000" + MyID.ToString()
            Case 5
                MyNewID = "JS000" + MyID.ToString()
            Case 6
                MyNewID = "JS00" + MyID.ToString()
            Case 7
                MyNewID = "JS0" + MyID.ToString()
        End Select
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        Me.自编号TextBox.Text = MyNewID
    End Sub
    Private Sub 可用固定资产视图DataGridView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 可用固定资产视图DataGridView.Click
        Me.资产编号TextBox.Text = Me.可用固定资产视图DataGridView.CurrentRow.Cells(1).Value.ToString()
        Me.名称TextBox.Text = Me.可用固定资产视图DataGridView.CurrentRow.Cells(2).Value.ToString()
        Me.数量TextBox.Text = Me.可用固定资产视图DataGridView.CurrentRow.Cells(12).Value.ToString()
        Me.单位TextBox.Text = Me.可用固定资产视图DataGridView.CurrentRow.Cells(13).Value.ToString()
    End Sub
    Private Sub 查询ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripButton.Click
        Try
            Me.可用固定资产视图TableAdapter.Fill(Me.MyAssetsDataSet.可用固定资产视图, 名称ToolStripTextBox.Text)
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class