web/orderupdate.aspx.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Partial Class orderupdate
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()
    Dim sysre As New REORDERSBLL
    Dim strre As New REORDERS
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            CusTypeGrid()
            LocTypeGrid()
            Jscript.BindDateCalendar(txt_orderdate)
            If Request.QueryString("ID") Is Nothing Then
                savebtn0.Visible = False
            Else
                txt_id.Text = Request.QueryString("ID").ToString.Trim

                savebtn.Visible = False
                getdata()
            End If
        End If
    End Sub
    Private Sub CusTypeGrid()
        list_cus.DataSource = Syscrf.seachData("select CUSTACCOUNT,NAME from CUSTOMER")
        list_cus.DataTextField = "NAME"
        list_cus.DataValueField = "CUSTACCOUNT"
        list_cus.DataBind()
    End Sub
    Private Sub LocTypeGrid()
        list_loc.DataSource = Syscrf.seachData("select LOCATIONID,NAME from LOCATION")
        list_loc.DataTextField = "NAME"
        list_loc.DataValueField = "LOCATIONID"
        list_loc.DataBind()
    End Sub
    Private Sub getdata()
        Dim dt As DataTable = Syscrf.seachData("select * from REORDERS where id=" & txt_id.Text.Trim).Tables(0)
        list_cus.SelectedValue = dt.Rows(0)("CUSTACCOUNT").ToString
        txt_orderdate.Text = dt.Rows(0)("ORDERDATE").ToString
        txt_lotno.Text = dt.Rows(0)("LOTNO").ToString
        txt_qty.Text = dt.Rows(0)("QTY").ToString
        txt_itemid.Text = dt.Rows(0)("ITEMID").ToString
        txt_salesid.Text = dt.Rows(0)("SALESID").ToString
        txt_configid.Text = dt.Rows(0)("CONFIGID").ToString
        txt_size.Text = dt.Rows(0)("INVENTSIZEID").ToString
        txt_color.Text = dt.Rows(0)("INVENTCOLORID").ToString
        txt_tent.Text = dt.Rows(0)("KTL_GOLDCONTENT").ToString
        list_loc.SelectedValue = dt.Rows(0)("LOCATIONID").ToString
        txt_remark.Text = dt.Rows(0)("REMARK").ToString
    End Sub

    Protected Sub savebtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles savebtn.Click
        strre.CUSTACCOUNT = list_cus.SelectedValue
        strre.ORDERDATE = Convert.ToDateTime(txt_orderdate.Text.Trim)
        strre.LOTNO = txt_lotno.Text.Trim
        strre.QTY = Convert.ToInt16(txt_qty.Text.Trim)
        strre.ITEMID = txt_itemid.Text.Trim
        strre.SALESID = txt_salesid.Text.Trim
        strre.CONFIGID = txt_configid.Text.Trim