frmdam.vb

超市进销存管理系统的源码。基于.NET平台

        Me.dtpDamDat.Location = New System.Drawing.Point(500, 60)
        Me.dtpDamDat.MaxDate = New Date(2020, 12, 31, 0, 0, 0, 0)
        Me.dtpDamDat.MinDate = New Date(1800, 1, 1, 0, 0, 0, 0)
        Me.dtpDamDat.Name = "dtpDamDat"
        Me.dtpDamDat.Size = New System.Drawing.Size(208, 23)
        Me.dtpDamDat.TabIndex = 77
        Me.dtpDamDat.Value = New Date(2005, 6, 13, 0, 0, 0, 0)
        '
        'txtDamEmp
        '
        Me.txtDamEmp.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.txtDamEmp.ForeColor = System.Drawing.Color.Black
        Me.txtDamEmp.Location = New System.Drawing.Point(103, 95)
        Me.txtDamEmp.Name = "txtDamEmp"
        Me.txtDamEmp.Size = New System.Drawing.Size(204, 23)
        Me.txtDamEmp.TabIndex = 76
        Me.txtDamEmp.Text = ""
        '
        'lblListMaker
        '
        Me.lblListMaker.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblListMaker.ForeColor = System.Drawing.Color.Black
        Me.lblListMaker.Location = New System.Drawing.Point(20, 96)
        Me.lblListMaker.Name = "lblListMaker"
        Me.lblListMaker.Size = New System.Drawing.Size(88, 16)
        Me.lblListMaker.TabIndex = 75
        Me.lblListMaker.Text = " 经 手 人: "
        '
        'lblOrderDate
        '
        Me.lblOrderDate.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.lblOrderDate.ForeColor = System.Drawing.Color.Black
        Me.lblOrderDate.Location = New System.Drawing.Point(420, 64)
        Me.lblOrderDate.Name = "lblOrderDate"
        Me.lblOrderDate.Size = New System.Drawing.Size(77, 16)
        Me.lblOrderDate.TabIndex = 74
        Me.lblOrderDate.Text = "报损时间："
        '
        'btnDel
        '
        Me.btnDel.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.btnDel.ForeColor = System.Drawing.Color.Navy
        Me.btnDel.Location = New System.Drawing.Point(416, 424)
        Me.btnDel.Name = "btnDel"
        Me.btnDel.Size = New System.Drawing.Size(64, 32)
        Me.btnDel.TabIndex = 74
        Me.btnDel.Text = "删  除"
        '
        'btnEdt
        '
        Me.btnEdt.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.btnEdt.ForeColor = System.Drawing.Color.Navy
        Me.btnEdt.Location = New System.Drawing.Point(312, 424)
        Me.btnEdt.Name = "btnEdt"
        Me.btnEdt.Size = New System.Drawing.Size(64, 32)
        Me.btnEdt.TabIndex = 73
        Me.btnEdt.Text = "修  改"
        '
        'btnAdd
        '
        Me.btnAdd.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.btnAdd.ForeColor = System.Drawing.Color.Navy
        Me.btnAdd.Location = New System.Drawing.Point(208, 424)
        Me.btnAdd.Name = "btnAdd"
        Me.btnAdd.Size = New System.Drawing.Size(64, 32)
        Me.btnAdd.TabIndex = 72
        Me.btnAdd.Text = "添  加"
        '
        'btnExt
        '
        Me.btnExt.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.btnExt.ForeColor = System.Drawing.Color.Navy
        Me.btnExt.Location = New System.Drawing.Point(528, 424)
        Me.btnExt.Name = "btnExt"
        Me.btnExt.Size = New System.Drawing.Size(64, 32)
        Me.btnExt.TabIndex = 75
        Me.btnExt.Text = "退  出"
        '
        'frmDam
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(794, 647)
        Me.Controls.Add(Me.btnExt)
        Me.Controls.Add(Me.btnDel)
        Me.Controls.Add(Me.btnEdt)
        Me.Controls.Add(Me.btnAdd)
        Me.Controls.Add(Me.grbDamList)
        Me.Controls.Add(Me.dgdDam)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "frmDam"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
        Me.Text = "报损单"
        CType(Me.dgdDam, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbDamList.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Private Sub frmDam_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Me.Width > 270 Then
            dgdDam.Left = 5
            dgdDam.Top = 0
            dgdDam.Width = Me.Width - 5
            dgdDam.Height = Me.Height / 2 - 30
            dgdDam.RowHeaderWidth = 5
            dgdDam.PreferredColumnWidth = (dgdDam.Width - 10) / 6
            grbDamList.Left = 15
            grbDamList.Top = dgdDam.Height + 35
            grbDamList.Width = Me.Width - 30
            grbDamList.Height = Me.Height - dgdDam.Height - 120
            btnAdd.Top = grbDamList.Top + grbDamList.Height + 20
            btnDel.Top = grbDamList.Top + grbDamList.Height + 20
            btnExt.Top = grbDamList.Top + grbDamList.Height + 20
            btnEdt.Top = grbDamList.Top + grbDamList.Height + 20
        End If
        FreshFrm()
    End Sub
    Private Sub FreshFrm()
        txtDamEmp.Text = ""
        txtPrdId.Text = ""
        txtPrdQua.Text = ""
        txtDamMemo.Text = ""
        dgdDam.DataBindings.Clear()
        dtpDamDat.DataBindings.Clear()
        txtDamEmp.DataBindings.Clear()
        txtPrdId.DataBindings.Clear()
        txtPrdQua.DataBindings.Clear()
        txtDamMemo.DataBindings.Clear()
        dgdDam.DataSource = DamObj.RefreshDam
        dtpDamDat.DataBindings.Add("value", dgdDam.DataSource, "报损日期")
        txtDamEmp.DataBindings.Add("text", dgdDam.DataSource, "经手人")
        txtPrdId.DataBindings.Add("text", dgdDam.DataSource, "商品编号")
        txtPrdQua.DataBindings.Add("text", dgdDam.DataSource, "报损数量")
        txtDamMemo.DataBindings.Add("text", dgdDam.DataSource, "报损说明")
        If dgdDam.VisibleRowCount > 0 Then
            strDamListID = dgdDam.Item(dgdDam.CurrentRowIndex, 0)
            DamQua = Val(dgdDam.Item(dgdDam.CurrentRowIndex, 5))
            btnDel.Enabled = True
            btnEdt.Enabled = True
        Else
            btnEdt.Enabled = False
            btnDel.Enabled = False
            dtpDamDat.Value = Today
        End If
    End Sub





    Private Sub txtPrdId_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPrdId.TextChanged
        If Trim(txtPrdId.Text) <> "" Then
            txtPrdNam.Text = DamObj.IdToNam(txtPrdId.Text)
        End If
    End Sub

    Private Sub btnPrd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrd.Click

        Dim myfrm As New frmEdtPrd


        myfrm.btnAdd.Visible = False
        myfrm.btnDel.Visible = False
        myfrm.btnEdt.Visible = False
        myfrm.btnExt.Visible = False
        myfrm.btnSav.Visible = False

        myfrm.WindowState = FormWindowState.Normal
        myfrm.TopMost = True
        myfrm.StartPosition = FormStartPosition.CenterParent
        myfrm.Text = "请双击选择商品"
        myfrm.Width = 750
        myfrm.dgdPrd.Left = 0
        myfrm.grbPrd.Left = 5
        myfrm.dgdPrd.Top = 0
        myfrm.grbPrd.Top = myfrm.dgdPrd.Height + 5
        myfrm.dgdPrd.Width = 750
        myfrm.grbPrd.Width = 730
        myfrm.grbPrd.Height = 240
        myfrm.B = True
        myfrm.ShowDialog(Me)
        txtPrdId.Text = myfrm.strPrdId

    End Sub
    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        If DamObj.AddDam(Trim(txtPrdId.Text), dtpDamDat.Value, Trim(txtDamEmp.Text), Trim(txtPrdQua.Text), Trim(txtDamMemo.Text)) Then
            MsgBox("数据增加成功！", MsgBoxStyle.Information)
        End If
        FreshFrm()
    End Sub

    Private Sub btnEdt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdt.Click
        If DamObj.EdtDam(Trim(strDamListID), Trim(txtPrdId.Text), dtpDamDat.Value, Trim(txtDamEmp.Text), Trim(txtPrdQua.Text), Trim(txtDamMemo.Text)) Then
            MsgBox("数据更新成功！", MsgBoxStyle.Information)
        End If
        FreshFrm()
    End Sub


    Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
        If MsgBox("数据删除后不可恢复，确实要删除吗？", MsgBoxStyle.YesNo + MsgBoxStyle.Question) = MsgBoxResult.No Then Exit Sub
        If DamObj.DelDam(Trim(strDamListID)) Then
            MsgBox("数据删除成功！", MsgBoxStyle.Information)
        End If
        FreshFrm()
    End Sub



    Private Sub dgdDam_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgdDam.CurrentCellChanged
        If dgdDam.VisibleRowCount > 0 Then
            strDamListID = dgdDam.Item(dgdDam.CurrentRowIndex, 0)
            DamQua = Val(dgdDam.Item(dgdDam.CurrentRowIndex, 5))
        End If
    End Sub



    Private Sub btnExt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExt.Click
        Me.Close()
    End Sub


End Class