Update مجننى - نسخة قابلة للطباعة

كود :
[align=left]Public Class ProjFrm

    Public Mdate



    Private Sub ProjFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load



        Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)

        Mdate = Me.DateTimePicker1.Value.Date

        projnamcmb.Visible = False

        wonernamcmb.Visible = False

        projplaccmb.Visible = False

        contractvlucmb.Visible = False

        strtdatecmb.Visible = False

        enddatecmb.Visible = False

        gdworkcmb.Visible = False

    End Sub

    Private Sub DateTimePicker1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs)

        Mdate = Me.DateTimePicker1.Value.Date

    End Sub



    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

        Mdate = Me.DateTimePicker1.Value.Date

    End Sub



    Private Sub strtdatetxt_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles strtdatetxt.GotFocus

        strtdatetxt.Text = Format(Mdate, "d")

        Me.DateTimePicker1.Focus()

    End Sub



    Private Sub enddatetxt_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles enddatetxt.GotFocus

        enddatetxt.Text = Format(Mdate, "d")

        Me.DateTimePicker1.Focus()

    End Sub



    Private Sub إضافةمشروعجديدToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles إضافةمشروعجديدToolStripMenuItem.Click

        projnamcmb.Visible = False

        wonernamcmb.Visible = False

        projplaccmb.Visible = False

        contractvlucmb.Visible = False

        strtdatecmb.Visible = False

        enddatecmb.Visible = False

        gdworkcmb.Visible = False

        enddatetxt.Visible = True

        strtdatetxt.Visible = True

        contractvlutxt.Visible = True

        projplactxt.Visible = True

        wonernamtxt.Visible = True

        projnamtxt.Visible = True

        gdworktxt.Visible = True

    End Sub



    Private Sub تعديلبياناتمشروعToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles تعديلبياناتمشروعToolStripMenuItem.Click

        projnamcmb.Visible = True

        wonernamcmb.Visible = True

        projplaccmb.Visible = True

        contractvlucmb.Visible = True

        strtdatecmb.Visible = True

        enddatecmb.Visible = True

        gdworkcmb.Visible = True



        projnamcmb.Location = projnamtxt.Location

        projnamcmb.Size = projplactxt.Size

        projnamcmb.BackColor = projplactxt.BackColor

        projnamcmb.Font = projnamtxt.Font

        projnamcmb.ForeColor = projnamtxt.ForeColor



        wonernamcmb.Location = wonernamtxt.Location

        wonernamcmb.Size = wonernamtxt.Size

        wonernamcmb.BackColor = wonernamtxt.BackColor

        wonernamcmb.Font = wonernamtxt.Font

        wonernamcmb.ForeColor = wonernamtxt.ForeColor



        projplaccmb.Location = projplactxt.Location

        projplaccmb.Size = projplactxt.Size

        projplaccmb.BackColor = projplactxt.BackColor

        projplaccmb.Font = projplactxt.Font

        projplaccmb.ForeColor = projplactxt.ForeColor



        contractvlucmb.Location = contractvlutxt.Location

        contractvlucmb.Size = contractvlutxt.Size

        contractvlucmb.BackColor = contractvlutxt.BackColor

        contractvlucmb.Font = contractvlutxt.Font

        contractvlucmb.ForeColor = contractvlutxt.ForeColor



        strtdatecmb.Location = strtdatetxt.Location

        strtdatecmb.Size = strtdatetxt.Size

        strtdatecmb.BackColor = strtdatetxt.BackColor

        strtdatecmb.Font = strtdatetxt.Font

        strtdatecmb.ForeColor = strtdatetxt.ForeColor

    

        enddatecmb.Location = enddatetxt.Location

        enddatecmb.Size = enddatetxt.Size

        enddatecmb.BackColor = enddatetxt.BackColor

        enddatecmb.Font = enddatetxt.Font

        enddatecmb.ForeColor = enddatetxt.ForeColor

    

        gdworkcmb.Location = gdworktxt.Location

        gdworkcmb.Size = gdworktxt.Size

        gdworkcmb.BackColor = gdworktxt.BackColor

        gdworkcmb.Font = gdworktxt.Font

        gdworkcmb.ForeColor = gdworktxt.ForeColor



        'إخفاء ادوات التحكم الأصليه

        enddatetxt.Visible = False

        strtdatetxt.Visible = False

        contractvlutxt.Visible = False

        projplactxt.Visible = False

        wonernamtxt.Visible = False

        projnamtxt.Visible = False

        gdworktxt.Visible = False

    End Sub



    Private Sub حفظالمشروعالجديدToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles حفظالمشروعالجديدToolStripMenuItem.Click

        Try

            Me.ProjctsUnderWorkIndxTableAdapter.Insert(Me.projnamtxt.Text, Me.wonernamtxt.Text, Val(Me.contractvlutxt.Text), Me.projplactxt.Text, Me.strtdatetxt.Text, Me.enddatetxt.Text, Val(Me.gdworktxt.Text))

            Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)

            MessageBox.Show("  تم  الحفظ  بنجاح")

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        enddatetxt.Text = ""

        strtdatetxt.Text = ""

        contractvlutxt.Text = ""

        projplactxt.Text = ""

        wonernamtxt.Text = ""

        projnamtxt.Text = ""

        gdworktxt.Text = ""

    End Sub



    Private Sub انهاءالعملياتToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles انهاءالعملياتToolStripMenuItem.Click

        Database1DataSet.ProjctsUnderWorkIndx.AcceptChanges()

        Me.Close()

    End Sub



    Private Sub حفظالتعديلاتعلىالمشروعToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles حفظالتعديلاتعلىالمشروعToolStripMenuItem.Click

        Try

            Me.Validate()

            Me.ProjctsUnderWorkIndxBindingSource1.EndEdit()

            Database1DataSet.ProjctsUnderWorkIndx.AcceptChanges()

            Me.ProjctsUnderWorkIndxTableAdapter.Update(Me.Database1DataSet.ProjctsUnderWorkIndx)

            Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)

            MessageBox.Show("  تم  الحفظ  بنجاح")

        Catch ex As Exception

        End Try

    End Sub



    

    Private Sub BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorSaveItem.Click

        Me.ProjctsUnderWorkIndxTableAdapter.Update(Me.Database1DataSet.ProjctsUnderWorkIndx)

        Me.ProjctsUnderWorkIndxTableAdapter.Fill(Me.Database1DataSet.ProjctsUnderWorkIndx)

        MessageBox.Show("  تم  الحفظ  بنجاح")

    End Sub



End Class[/align]