repairedform.vb

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

'文件名：RepairedForm.vb
Imports System.Data.SqlClient
Public Class RepairedForm
    Private Sub 维修固定资产BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Validate()
        Me.维修固定资产BindingSource.EndEdit()
        Me.维修固定资产TableAdapter.Update(Me.MyAssetsDataSet.维修固定资产)
    End Sub
    Private Sub RepairedForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“MyAssetsDataSet.维修固定资产”中。您可以根据需要移动或移除它。
        Me.维修固定资产TableAdapter.Fill(Me.MyAssetsDataSet.维修固定资产)
    End Sub
    Private Sub 新增Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 新增Button.Click
        '自动计算自编号
        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 = "XL0000000" + MyID.ToString()
            Case 2
                    MyNewID = "XL000000" + MyID.ToString()
            Case 3
                    MyNewID = "XL00000" + MyID.ToString()
            Case 4
                    MyNewID = "XL0000" + MyID.ToString()
            Case 5
                    MyNewID = "XL000" + MyID.ToString()
            Case 6
                    MyNewID = "XL00" + MyID.ToString()
            Case 7
                    MyNewID = "XL0" + 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
        If (Me.自编号TextBox.Text.Length < 1) Then
            Return
        End If
        If (MessageBox.Show("请检查登记信息是否正确，一旦保存就无法修改，是否继续？", "信息提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.No) Then
            Return
        End If
        Dim MySQLConnectionString As String = My.Settings.MyAssetsConnectionString
        Dim MySQL As String = "INSERT INTO 固定资产修理记录 ([自编号],[资产编号], [名称], [数量], [单位], [送修日期],[完修日期], [修理费用], [修理公司], [故障原因],[修理情况], [说明]) VALUES (@自编号,@资产编号,@名称,@数量,@单位,@送修日期,@完修日期,@修理费用,@修理公司,@故障原因,@修理情况,@说明)"
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyCommand As SqlCommand = MyConnection.CreateCommand()
        MyCommand.CommandText = MySQL
        MyCommand.Parameters.Add(New SqlParameter("@自编号", SqlDbType.VarChar))
        MyCommand.Parameters.Add(New SqlParameter("@资产编号", SqlDbType.VarChar))
        MyCommand.Parameters.Add(New SqlParameter("@名称", SqlDbType.VarChar))
        MyCommand.Parameters.Add(New SqlParameter("@数量", SqlDbType.Int))
        MyCommand.Parameters.Add(New SqlParameter("@单位", SqlDbType.VarChar))
        MyCommand.Parameters.Add(New SqlParameter("@送修日期", SqlDbType.DateTime))
        MyCommand.Parameters.Add(New SqlParameter("@完修日期", SqlDbType.DateTime))
        MyCommand.Parameters.Add(New SqlParameter("@修理费用", SqlDbType.Float))
        MyCommand.Parameters.Add(New SqlParameter("@修理公司", SqlDbType.VarChar))
        MyCommand.Parameters.Add(New SqlParameter("@故障原因", SqlDbType.VarChar))
        MyCommand.Parameters.Add(New SqlParameter("@修理情况", SqlDbType.VarChar))
        MyCommand.Parameters.Add(New SqlParameter("@说明", SqlDbType.VarChar))
        MyCommand.Parameters("@自编号").Value = Me.自编号TextBox.Text
        MyCommand.Parameters("@资产编号").Value = Me.资产编号TextBox.Text
        MyCommand.Parameters("@名称").Value = Me.名称TextBox.Text
        MyCommand.Parameters("@数量").Value = Me.数量TextBox.Text
        MyCommand.Parameters("@单位").Value = Me.单位TextBox.Text
        MyCommand.Parameters("@送修日期").Value = Me.送修日期DateTimePicker.Value
        MyCommand.Parameters("@完修日期").Value = Me.预计完修日期DateTimePicker.Value
        MyCommand.Parameters("@修理费用").Value = Me.预计修理费用TextBox.Text
        MyCommand.Parameters("@修理公司").Value = Me.修理公司TextBox.Text
        MyCommand.Parameters("@故障原因").Value = Me.故障原因TextBox.Text
        MyCommand.Parameters("@修理情况").Value = Me.修理情况TextBox.Text
        MyCommand.Parameters("@说明").Value = Me.说明TextBox.Text
        MyCommand.ExecuteNonQuery()
        MySQL = " DELETE FROM 维修固定资产 WHERE 资产编号='" + Me.资产编号TextBox.Text + "'"
        MyCommand.CommandText = MySQL
        MyCommand.ExecuteNonQuery()
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        Me.维修固定资产TableAdapter.Fill(Me.MyAssetsDataSet.维修固定资产)
    End Sub
End Class