frminputtable.vb

VB写的进销存管理系统

        'Label6
        '
        Me.Label6.Location = New System.Drawing.Point(256, 144)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(16, 16)
        Me.Label6.TabIndex = 58
        Me.Label6.Text = "月"
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(312, 144)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(16, 16)
        Me.Label8.TabIndex = 59
        Me.Label8.Text = "日"
        '
        'txtMonth
        '
        Me.txtMonth.BackColor = System.Drawing.SystemColors.Window
        Me.txtMonth.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtMonth.Location = New System.Drawing.Point(216, 136)
        Me.txtMonth.Name = "txtMonth"
        Me.txtMonth.Size = New System.Drawing.Size(40, 21)
        Me.txtMonth.TabIndex = 60
        Me.txtMonth.Text = ""
        '
        'txtDay
        '
        Me.txtDay.BackColor = System.Drawing.SystemColors.Window
        Me.txtDay.ForeColor = System.Drawing.SystemColors.WindowText
        Me.txtDay.Location = New System.Drawing.Point(272, 136)
        Me.txtDay.Name = "txtDay"
        Me.txtDay.Size = New System.Drawing.Size(40, 21)
        Me.txtDay.TabIndex = 61
        Me.txtDay.Text = ""
        '
        'Label9
        '
        Me.Label9.ForeColor = System.Drawing.Color.Red
        Me.Label9.Location = New System.Drawing.Point(256, 16)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(400, 24)
        Me.Label9.TabIndex = 62
        Me.Label9.Text = "前面带※的必须填写！"
        '
        'frmInputTable
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(440, 222)
        Me.Controls.Add(Me.Label9)
        Me.Controls.Add(Me.txtDay)
        Me.Controls.Add(Me.txtMonth)
        Me.Controls.Add(Me.Label8)
        Me.Controls.Add(Me.Label6)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.txtYear)
        Me.Controls.Add(Me.txtIPrice)
        Me.Controls.Add(Me.txtICount)
        Me.Controls.Add(Me.txtPId)
        Me.Controls.Add(Me.txtIId)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.Label4)
        Me.Controls.Add(Me.Label7)
        Me.Controls.Add(Me.Label5)
        Me.Controls.Add(Me.Label2)
        Me.Controls.Add(Me.bunUpdate)
        Me.Controls.Add(Me.bunNext)
        Me.Controls.Add(Me.bunCancel)
        Me.Controls.Add(Me.bunSave)
        Me.Controls.Add(Me.bunSearch)
        Me.Controls.Add(Me.bunDelete)
        Me.Controls.Add(Me.bunAdd)
        Me.Controls.Add(Me.bunPrevious)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmInputTable"
        Me.Text = "进货数据表"
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private myDataAdapter As New SqlClient.SqlDataAdapter
    Private myDataReader As SqlClient.SqlDataReader
    Private myDataSet As DataSet = New DataSet("input")
    Private TableName As String
    Private myIndex As Integer = 0
    Private RowsMax As Integer
    Private Sub Ishowfield()
        If myIndex >= 0 Then
            Dim currRows() As DataRow = myDataSet.Tables(0).Select(Nothing, Nothing, DataViewRowState.CurrentRows)
            Dim myRow As DataRow = currRows(myIndex)
            txtIId.Text = myRow(0)
            txtPId.Text = myRow(1)
            txtICount.Text = myRow(2)
            txtIPrice.Text = myRow(3)
            txtYear.Text = Microsoft.VisualBasic.DateAndTime.Year(myRow(4))
            txtMonth.Text = Microsoft.VisualBasic.DateAndTime.Month(myRow(4))
            txtDay.Text = Microsoft.VisualBasic.DateAndTime.Day(myRow(4))
        End If
    End Sub
    Private Sub bunCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bunCancel.Click
        On Error GoTo ErrorHandle
        If RowsMax < 0 Then
            txtIId.Text = ""
            txtPId.Text = ""
            txtICount.Text = ""
            txtIPrice.Text = ""
            txtYear.Text = ""
            txtMonth.Text = ""
            txtDay.Text = ""
            Exit Sub
        End If
        Ishowfield()
        Exit Sub
ErrorHandle:
        ShowErr()
    End Sub
    Private Sub bunDelete_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bunDelete.Click
        On Error GoTo ErrorHandle
        If RowsMax < 0 Then
            MsgBox("库中没有可删除的记录！", , "进货数据表")
            Exit Sub
        End If
        If MsgBox("是否删除？", 36, "提示") = vbYes Then
            Dim myRow As DataRow = myDataSet.Tables(0).Rows(myIndex)
            Dim strsql As String = "delete from input where i_id='" & myRow("i_id") & "'"
            Dim mycommand As New SqlClient.SqlCommand(strsql, db)
            db.Open()
            mycommand.ExecuteNonQuery()
            db.Close()
            myRow.Delete()
            myDataSet.AcceptChanges()
            RowsMax = RowsMax - 1
            If RowsMax >= 0 Then
                myIndex = myIndex - 1
                Ishowfield()
                Exit Sub
            Else
                txtPId.Text = ""
                txtIId.Text = ""
                txtIPrice.Text = ""
                txtICount.Text = ""
                txtYear.Text = ""
                txtMonth.Text = ""
                txtDay.Text = ""
                bunPrevious.Enabled = False
                bunDelete.Enabled = False
                bunSearch.Enabled = False
                bunSave.Enabled = False
                bunNext.Enabled = False
                Exit Sub
            End If
        Else
            Exit Sub
        End If
        Exit Sub
ErrorHandle:
        ShowErr()
    End Sub
    Private Sub bunNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bunNext.Click
        On Error Resume Next
        If myIndex < RowsMax Then
            myIndex = myIndex + 1
        End If
        Ishowfield()
    End Sub
    Private Sub bunPrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bunPrevious.Click
        On Error Resume Next
        If myIndex > 0 Then
            myIndex = myIndex - 1
        End If
        Ishowfield()
    End Sub
    Private Sub bunSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bunSave.Click
        On Error GoTo ErrorHandle
        Dim myRow As DataRow = myDataSet.Tables(0).Rows(myIndex)
        myRow("i_count") = txtICount.Text
        myRow("i_inprice") = CSng(txtIPrice.Text)
        myRow("i_date") = CDate(txtYear.Text & "/" & txtMonth.Text & "/" & txtDay.Text)
        myDataSet.AcceptChanges()
        Dim strsql As String = "update input set i_count='" & myRow("i_count") & "', i_inprice='" & myRow("i_inprice") & "', i_date='" & myRow("i_date") & "' where i_id='" & myRow("i_id") & "'"
        Dim mycommand As New SqlClient.SqlCommand(strsql, db)
        db.Open()
        mycommand.ExecuteNonQuery()
        db.Close()
        MsgBox("已经保存修改", , "进货数据表")
        Exit Sub
ErrorHandle:
        ShowErr()
    End Sub
    Private Sub bunSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bunSearch.Click
        On Error GoTo ErrorHandle
        Dim IDQuery As String
        Dim myRow As DataRow
        myIndex = 0
        IDQuery = InputBox("输入要搜索的进货编号", "按进货编号搜索")
        Dim currRows() As DataRow = myDataSet.Tables(0).Select(Nothing, Nothing, DataViewRowState.CurrentRows)
        For Each myRow In currRows
            If myRow("i_id") Like "*" & LCase(IDQuery) & "*" Then
                Ishowfield()
                Exit Sub
            Else
                myIndex = myIndex + 1
            End If
        Next
        MsgBox("没有找到符合条件的记录", , "进货数据表")
        Exit Sub
ErrorHandle:
        ShowErr()
    End Sub
    Private Sub frmFactory_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        ShowStatus("数据管理－－", "进货数据表")
    End Sub

    Private Sub frmFactory_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        Me.Dispose()
        Me.Close()
        ShowStatus("", "")
        InputTableOpened = False
        TableMenuEnable()
    End Sub
    Private Sub bunUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bunUpdate.Click
        db.Open()
        myDataAdapter.Update(myDataSet)
        db.Close()
        MsgBox("已经更新到数据库", , "进货数据表")
    End Sub
    Private Sub frmProduct_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TableName = CurrentTable
        Dim strSelectinput As String = "select * from Input"
        Dim cmdSelectinput As New SqlClient.SqlCommand(strSelectinput, db)
        myDataAdapter.SelectCommand = cmdSelectinput
        Dim xx As SqlCommandBuilder = New SqlCommandBuilder(myDataAdapter)
        db.Open()
        myDataAdapter.Fill(myDataSet)
        db.Close()
        bunAdd.Enabled = False
        Dim currRows() As DataRow = myDataSet.Tables(0).Select(Nothing, Nothing, DataViewRowState.CurrentRows)
        RowsMax = currRows.Length - 1
        If RowsMax < 0 Then
            myIndex = -1
            MsgBox("数据库中没有记录", , "进货数据表")
            bunPrevious.Enabled = False
            bunDelete.Enabled = False
            bunSearch.Enabled = False
            bunSave.Enabled = False
            bunNext.Enabled = False
        Else
            Ishowfield()
        End If
    End Sub
End Class