fittingsform.vb

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

'文件名：FittingsForm.vb
Imports System.Data.SqlClient
Public Class FittingsForm
    Public My资产编号 As String
    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 FittingsForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“MyAssetsDataSet.固定资产附属设备”中。您可以根据需要移动或移除它。
        'Me.固定资产附属设备TableAdapter.Fill(Me.MyAssetsDataSet.固定资产附属设备)
        Try
            Me.固定资产附属设备TableAdapter.FillBy(Me.MyAssetsDataSet.固定资产附属设备, Me.My资产编号)
        Catch ex As Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
    Private Sub BindingNavigatorAddNewItem_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BindingNavigatorAddNewItem.MouseUp
        '自动计算自编号
        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 = "FS0000000" + MyID.ToString()
            Case 2
                MyNewID = "FS000000" + MyID.ToString()
            Case 3
                MyNewID = "FS00000" + MyID.ToString()
            Case 4
                MyNewID = "FS0000" + MyID.ToString()
            Case 5
                MyNewID = "FS000" + MyID.ToString()
            Case 6
                MyNewID = "FS00" + MyID.ToString()
            Case 7
                MyNewID = "FS0" + MyID.ToString()
        End Select
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        Me.自编号TextBox.Text = MyNewID
        Me.资产编号TextBox.Text = Me.My资产编号
    End Sub
End Class