returnform.vb

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

'文件名：ReturnForm.vb
Imports System.Data.SqlClient
Public Class ReturnForm
    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 ReturnForm_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 = "ZJ0000000" + MyID.ToString()
            Case 2
                MyNewID = "ZJ000000" + MyID.ToString()
            Case 3
                MyNewID = "ZJ00000" + MyID.ToString()
            Case 4
                MyNewID = "ZJ0000" + MyID.ToString()
            Case 5
                MyNewID = "ZJ000" + MyID.ToString()
            Case 6
                MyNewID = "ZJ00" + MyID.ToString()
            Case 7
                MyNewID = "ZJ0" + 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.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("@自编号").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.租借公司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.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