fixedassetsform.vb

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

'文件名：FixedAssetsForm.vb
Imports System.Data.SqlClient
Public Class FixedAssetsForm
    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 FixedAssetsForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '获取公司的部门信息            
        Dim MySQLConnectionString As String = My.Settings.MyAssetsConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyDepartmentTable As New DataTable()
        Dim MySQL As String = "Select * From 公司部门"
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyDepartmentTable)
        Me.使用部门ComboBox.DataSource = MyDepartmentTable
        Me.使用部门ComboBox.DisplayMember = "部门名称"
        Me.使用部门ComboBox.ValueMember = "部门名称"
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        'TODO: 这行代码将数据加载到表“MyAssetsDataSet.固定资产明细”中。您可以根据需要移动或移除它。
        Me.固定资产明细TableAdapter.Fill(Me.MyAssetsDataSet.固定资产明细)
    End Sub
    Private Sub 查询ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripButton.Click
        Try
            Me.固定资产明细TableAdapter.FillBy(Me.MyAssetsDataSet.固定资产明细, 名称ToolStripTextBox.Text)
        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 = "MX0000000" + MyID.ToString()
            Case 2
                MyNewID = "MX000000" + MyID.ToString()
            Case 3
                MyNewID = "MX00000" + MyID.ToString()
            Case 4
                MyNewID = "MX0000" + MyID.ToString()
            Case 5
                MyNewID = "MX000" + MyID.ToString()
            Case 6
                MyNewID = "MX00" + MyID.ToString()
            Case 7
                MyNewID = "MX0" + MyID.ToString()
        End Select
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        Me.自编号TextBox.Text = MyNewID
    End Sub
    Private Sub 附属设备及配件Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 附属设备及配件Button.Click
        Dim MyDlg As New FittingsForm()
        MyDlg.My资产编号 = Me.资产编号TextBox.Text
        MyDlg.ShowDialog()
    End Sub
End Class