[VB.NET] فحص الكود التالي - نسخة قابلة للطباعة

كود :
If Textname.Text = String.Empty Or Textphohaf.Text = String.Empty Or Textphonc.Text = String.Empty Or Textbaqa.Text = String.Empty Or Textmdfoa.Text = String.Empty Or Textloc.Text = String.Empty Or Textloct.Text = String.Empty Or Textnum.Text = String.Empty Or Textnumq.Text = String.Empty Then

            MsgBox("جميع الحقول مطلوبة يا صديقي العزيز ", MsgBoxStyle.Information, "تحذير")

            Exit Sub



 

 End If





        Try



            Dim query As String

            If ToDo = "add" Then

                query = "insert into cus ( username, phon, loction, working, numhwoa, imguser, kafelname, kafelphon, kafelhowaa, kafelwork, servicen, serivcenum, serivcetype, serivcepric, serivcetak, serivceqsd,qsad, dategat, note,baqe,mdfoa) values(@username,@phon,@loction,@working,@numhwoa,@imguser,@kafelname,@kafelphon,@kafelhowaa,@kafelwork,@servicen,@serivcenum,@serivcetype,@serivcepric,@serivcetak,@serivceqsd,@qsad,@dategat,@note,@baqe,@mdfoa) "

            Else

                query = "update cus set username=@username ,phon=@phon ,loction=@loction ,working=@working ,numhwoa=@numhwoa ,imguser=@imguser ,kafelname=@kafelname ,kafelphon=@kafelphon ,kafelhowaa=@kafelhowaa ,kafelwork=@kafelwork ,servicen=@servicen ,serivcenum=@serivcenum ,serivcetype=@serivcetype ,serivcepric=@serivcepric ,serivcetak=@serivcetak ,serivceqsd=@serivceqsd ,qsad=@qsad ,dategat=@dategat ,note@note ,baqa=@baqa ,mdfoa=@mdfoa where id = " & id



            End If

            



            Dim filesize As UInt32

            Dim mstrem As New System.IO.MemoryStream



            Picturcus.Image.Save(mstrem, System.Drawing.Imaging.ImageFormat.Jpeg)

            Dim arrimage() As Byte = mstrem.GetBuffer

            filesize = mstrem.Length

            mstrem.Close()



            '  Dim filesize2 As UInt32

            '  Dim mstrem2 As New System.IO.MemoryStream



            ' Picturekaf.Image.Save(mstrem2, System.Drawing.Imaging.ImageFormat.Jpeg)

            ' Dim arrimage2() As Byte = mstrem2.GetBuffer

            'filesize2 = mstrem2.Length

            'mstrem2.Close()



            cmd = New MySqlCommand(query, con)

            cmd.Parameters.Add("@username", MySqlDbType.VarChar, 200).Value = Textname.Text

            cmd.Parameters.Add("@phon", MySqlDbType.VarChar, 200).Value = Textphonc.Text

            cmd.Parameters.Add("@loction", MySqlDbType.VarChar, 200).Value = Textloct.Text

            cmd.Parameters.Add("@working", MySqlDbType.VarChar, 200).Value = Textloc.Text

            cmd.Parameters.Add("@numhwoa", MySqlDbType.VarChar, 200).Value = Textnumhowa.Text

            cmd.Parameters.Add("@imguser", MySqlDbType.Blob).Value = arrimage

            cmd.Parameters.Add("@kafelname", MySqlDbType.VarChar, 200).Value = Textnkaf.Text

            cmd.Parameters.Add("@kafelphon", MySqlDbType.VarChar, 200).Value = Textphohaf.Text

            cmd.Parameters.Add("@kafelhowaa", MySqlDbType.Blob).Value = arrimage

            cmd.Parameters.Add("@kafelwork", MySqlDbType.VarChar, 200).Value = kfwork.Text

            cmd.Parameters.Add("@servicen", MySqlDbType.VarChar, 200).Value = Texttyp.Text

            cmd.Parameters.Add("@serivcenum", MySqlDbType.VarChar, 200).Value = Textnum.Text

            cmd.Parameters.Add("@serivcetype", MySqlDbType.VarChar, 200).Value = CheckB.Text

            cmd.Parameters.Add("@serivcepric", MySqlDbType.VarChar, 200).Value = Textprice.Text

            cmd.Parameters.Add("@serivcetak", MySqlDbType.VarChar, 200).Value = Texttotal.Text

            cmd.Parameters.Add("@serivceqsd", MySqlDbType.VarChar, 200).Value = Textnumq.Text

            cmd.Parameters.Add("@qsad", MySqlDbType.VarChar, 200).Value = Textqasd.Text

            cmd.Parameters.Add("@dategat", MySqlDbType.Date).Value = DateT.Value.Date

            cmd.Parameters.Add("@note", MySqlDbType.VarChar, 200).Value = Textnot.Text

            cmd.Parameters.Add("@baqa", MySqlDbType.VarChar, 200).Value = Textbaqa.Text

            cmd.Parameters.Add("@mdfoa", MySqlDbType.VarChar, 200).Value = Textmdfoa.Text



        con.Open()







            cmd.ExecuteNonQuery()



            MsgBox("تم حفظ البيانات بنجاح شكرا لكم", MsgBoxStyle.Information, "الاضافة")

            textclaer()

        Catch ex As Exception

            MsgBox(ex.Message)



        Finally



            con.Close()



        End Try