[مخالف - طلب حل : ]مطلوب شرح اكواد...

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim objOffers As New Offers
        Dim objManageOffers As New OffersManagement
        objOffers.setDiscountAmount(Me.txtDiscountAmount.Text)
        objOffers.setItemID(Me.listItemID.SelectedValue)
        objOffers.setStartDate(Me.txtStartDate.Text)
        objOffers.setEndDate(Me.txtEndDate.Text)
        If objManageOffers.isValidOffers(objOffers) Then
            objManageOffers.AddOffers(objOffers)
            Me.lblMessage.ForeColor = Drawing.Color.Green
            Me.lblMessage.Text = "Offers has been added successfully"
            Me.txtDiscountAmount.Text = ""
            Me.listItemID.SelectedValue = 0
            Me.txtStartDate.Text = ""
            Me.txtEndDate.Text = ""
        Else
            Me.lblMessage.ForeColor = Drawing.Color.Red
            Me.lblMessage.Text = objManageOffers.getError()
        End If
    End Sub

Protected Sub btnAddCustomer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddCustomer.Click
        Dim customername As String = txtAddCustomername.Text
        Dim Customerphone As String = txtAddcustomerPhone.Text
        Dim customeremail As String = txtAddcustomeremail.Text
        Dim address As String = txtAddress.Text
        Dim username As String = txtAddusername.Text
        Dim password As String = txtAddPassword.Text
        Dim cu As New Customermanagement
        Dim cou As New Customer
        cou.SetCustomerName(customername)
        cou.SetCustomerPhone(Customerphone)
        cou.SetCustomerEmail(customeremail)
        cou.SetAddress(address)
        cou.SetUserName(username)
        cou.SetPassword(password)
        If Me.lblId.Text <> "" Then
            cou.SetCustomerID(Me.lblId.Text)
        End If
        If cu.ValidCustomer2(cou) = True Then
            Dim CustomerID As Integer = 0
            If Me.lblId.Text = "" Then
                CustomerID = cu.AddCustomer(cou)
            Else
                CustomerID = Me.lblId.Text
                cu.UpdateCustomer(cou)
            End If

            Dim sc As New SearchCustomer
            sc.SetCustomerID(CustomerID)
            Dim dt As DataTable = cu.FindCustomer(sc)
            Session("Customer") = dt
            Response.Redirect("Customer_Home.aspx")
        Else
            lblAddcustomerMessage.Text = cu.getError()
            lblAddcustomerMessage.ForeColor = Drawing.Color.Red
        End If
    End Sub

Sub GetItems()
        Me.lblMessage.Text = ""
        Dim dtEmployee As DataTable = Session("Employee")
        Dim ss As New SearchRestaurant
        Dim sm As New RestaurantManagement
        ss.setEmployeeID(dtEmployee.Rows(0)("EmployeeID"))
        Dim dtRestaurant As DataTable = sm.findRestaurant(ss)
        Dim RestaurantID As Integer = dtRestaurant.Rows(0)("RestaurantID")

        Dim ssic As New SearchItemCategory
        Dim icm As New ItemCategoryManagement
        ssic.setItemCategoryID(Me.ddlSearchItemCategoryID.SelectedValue)
        ssic.setItemName(Me.txtSearchItemName.Text)
        ssic.setRestaurantID(dtRestaurant.Rows(0)("RestaurantID"))
        Dim dtCategories As DataTable = icm.findItemCategory(ssic)
        Me.DataList1.DataSource = dtCategories
        Me.DataList1.DataBind()

        Dim im As New ItemManagement
        Dim si As New SearchItem

        For i As Integer = 0 To dtCategories.Rows.Count - 1
            Dim ItemCategoryID As Integer = dtCategories.Rows(i)("ItemCategoryID")
            Dim g As GridView = Me.DataList1.Items(i).FindControl("GridView1")
            si.setItemCategoryID(ItemCategoryID)
            si.setRestaurantID(RestaurantID)
            Dim dtItems As DataTable = im.findItem(si)
            g.DataSource = dtItems
            g.DataBind()
            For j As Integer = 0 To g.Rows.Count - 1
                Dim ItemImagebyte() As Byte = dtItems.Rows(j)("ItemImage")
                Dim iImage As Image = g.Rows(j).FindControl("ItemImage")
                Try
                    Dim FilePath As String = Server.MapPath("ItemImage") & "/" & dtItems.Rows(j)("ItemID")
                    Dim fs As New IO.FileStream(FilePath, FileMode.OpenOrCreate, FileAccess.ReadWrite, FileShare.ReadWrite)
                    fs.Write(ItemImagebyte, 0, ItemImagebyte.Length)
                    fs.Close()
                    iImage.ImageUrl = "ItemImage/" & dtItems.Rows(j)("ItemID")
                Catch ex As Exception
                End Try
            Next
        Next
        If Me.DataList1.Items.Count = 0 Then
            Me.lblMessage.Text = "No Data Found..."
        End If
    End Sub

Sub GetSales()
        Me.lblPendeingMessage.Text = ""

        Dim dtRestaurant As DataTable = Session("Restaurant")
        Dim dt As DataTable = GeneralFunctions.GetTableOf("select SalesInvoiceID, SalesInvoiceDate, CustomerName, CustomerPhone, Address from SalesInvoice, Customer where SalesInvoice.CustomerID = Customer.CustomerID and IsPaidAndDeliverd=0 and SalesInvoiceID in (select SalesInvoiceID from SalesInvoiceItem,Item where SalesInvoiceItem.ItemID = Item.ItemID and Item.RestaurantID=" & dtRestaurant.Rows(0)("RestaurantID") & ")")
        Me.DataList1.DataSource = dt
        Me.DataList1.DataBind()
        For i As Integer = 0 To dt.Rows.Count - 1
            Dim g As GridView = Me.DataList1.Items(i).FindControl("GridView1")
            Dim dtItems As DataTable = GeneralFunctions.GetTableOf("select ItemName, SalesInvoiceItem.Qty, SalesInvoiceItem.Price  from SalesInvoiceItem,Item where SalesInvoiceItem.ItemID = Item.ItemID and Item.RestaurantID=" & dtRestaurant.Rows(0)("RestaurantID") & " and SalesInvoiceID=" & dt.Rows(i)("SalesInvoiceID"))
            g.DataSource = dtItems
            g.DataBind()
        Next
        If dt.Rows.Count = 0 Then
            Me.lblPendeingMessage.Text = "No Invoices"
        End If


    End Sub

يتبع....

 Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim objRestaurant As New Restaurant
        Dim objManageRestaurant As New RestaurantManagement

        objRestaurant.setRestaurantName(Me.txtRestaurantName.Text)
        If Me.FileUploadLogo.HasFile = False Then
            Me.lblMessage.ForeColor = Drawing.Color.Red
            Me.lblMessage.Text = "Please enter Logo"
            Exit Sub
        End If
        Dim Logo() As Byte = Nothing
        Try
            ReDim Logo(Me.FileUploadLogo.PostedFile.InputStream.Length)
            Me.FileUploadLogo.PostedFile.InputStream.Read(Logo, 0, Logo.Length)
        Catch ex As Exception
        End Try
        objRestaurant.setLogo(Logo)
        objRestaurant.setPhoneNumber(Me.txtPhoneNumber.Text)
        objRestaurant.setRestaurantCategoryID(Me.listRestaurantCategoryID.SelectedValue)

        objRestaurant.setEmployeeID(-1)

        Dim Ename As String = txtEmployeeName.Text
        Dim Ephone As String = txtEmployeePhone.Text
        Dim EUserName As String = txtUserName.Text
        Dim EPassword As String = txtPassword.Text

        Dim em As New EmployeeManagement()
        Dim emp As New Employee
        emp.setEmployeeName(Ename)
        emp.setEmployeePhone(Ephone)
        emp.setPassword(EPassword)
        emp.setUserName(EUserName)
        emp.setIsAdmin(0)

        If objManageRestaurant.isValidRestaurant(objRestaurant) Then
            If em.isValidEmployee(emp) = True Then
                Dim EID As Integer = em.AddEmployee(emp)
                txtEmployeeName.Text = ""
                txtEmployeePhone.Text = ""
                txtUserName.Text = ""
                txtPassword.Text = ""

                objRestaurant.setEmployeeID(EID)
                objManageRestaurant.AddRestaurant(objRestaurant)
                Me.lblMessage.ForeColor = Drawing.Color.Green
                Me.lblMessage.Text = "Restaurant has been added successfully"
                Me.txtRestaurantName.Text = ""
                Me.txtPhoneNumber.Text = ""
                Me.listRestaurantCategoryID.SelectedValue = 0
            Else
                lblMessage.Text = em.getError()
                lblMessage.ForeColor = Drawing.Color.Red
            End If
        Else
            Me.lblMessage.ForeColor = Drawing.Color.Red
            Me.lblMessage.Text = objManageRestaurant.getError()
        End If
    End Sub

الأخ الكريم/الأخت الكريمة

السلام عليكم ورحمة الله وبركاته.

مرحباً بكم في منتدى الفريق العربي للبرمجة

تأسف إدارة المنتدى لغلق الموضوع وذلك لمخالفته قوانين المشاركات، فقرة طلب حل الواجبات والتمارين.

قواعد طرح المشاركات

/index.php?showtopic=29343

شاكرين لكم حُسن تعاونكم