returninbank_count.aspx.vb

c++builder开发的一个仓库信息管理系统

Option Explicit On
Option Strict On

Imports System.Data
Imports System.Data.SqlClient

Partial Class Mode2_Default
    Inherits System.Web.UI.Page

    Dim conn As New SqlConnection("data source=.;database=wms;user=sa;pwd=074345")

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then

            For index As Integer = 1 To 30

                Dim str As String = CStr(1990 + index)
                Me.DropDownList2.Items.Add("" + str)
                Me.DropDownList8.Items.Add("" + str)

            Next

            For index As Integer = 1 To 12

                If index < 10 And index > 0 Then

                    Me.DropDownList3.Items.Add("0" + index.ToString)
                    Me.DropDownList9.Items.Add("0" + index.ToString)

                Else
                    Me.DropDownList3.Items.Add("" + index.ToString)
                    Me.DropDownList9.Items.Add("" + index.ToString)
                End If

            Next

            For index As Integer = 1 To 31

                If index < 10 And index > 0 Then
                    Me.DropDownList4.Items.Add("0" + index.ToString)
                    Me.DropDownList10.Items.Add("0" + index.ToString)

                Else
                    Me.DropDownList4.Items.Add("" + index.ToString)
                    Me.DropDownList10.Items.Add("" + index.ToString)

                End If

            Next

            Dim adap3 As New SqlDataAdapter("select * from returninbank", conn)
            conn.Open()
            Dim dataset3 As New DataSet
            Dim tb3 As New DataTable
            adap3.Fill(dataset3)
            tb3 = dataset3.Tables(0)
            Me.DropDownList1.DataSource = tb3
            Me.DropDownList1.DataTextField = "ReturnInNo"
            Me.DropDownList1.DataValueField = "ReturnInNo"
            Me.DropDownList1.DataBind()
            conn.Close()

            Dim adap As New SqlDataAdapter("select * from shop", conn)
            conn.Open()
            Dim dataset As New DataSet
            Dim tb As New DataTable
            adap.Fill(dataset)
            tb = dataset.Tables(0)
            Me.DropDownList5.DataSource = tb
            Me.DropDownList5.DataTextField = "shopname"
            Me.DropDownList5.DataValueField = "shopno"
            Me.DropDownList5.DataBind()
            conn.Close()


            Dim adap1 As New SqlDataAdapter("select * from thingclass", conn)
            conn.Open()
            Dim dataset1 As New DataSet
            Dim tb1 As New DataTable
            adap1.Fill(dataset1)
            tb1 = dataset1.Tables(0)
            Me.DropDownList6.DataSource = tb1
            Me.DropDownList6.DataTextField = "classname"
            Me.DropDownList6.DataValueField = "classno"
            Me.DropDownList6.DataBind()
            conn.Close()

            Dim adap2 As New SqlDataAdapter("select * from thing", conn)
            conn.Open()
            Dim dataset2 As New DataSet
            Dim tb2 As New DataTable
            adap2.Fill(dataset2)
            tb2 = dataset2.Tables(0)
            Me.DropDownList7.DataSource = tb2
            Me.DropDownList7.DataTextField = "thingname"
            Me.DropDownList7.DataValueField = "thingno"
            Me.DropDownList7.DataBind()
            conn.Close()

            Me.DropDownList1.Enabled = False
            Me.DropDownList2.Enabled = False
            Me.DropDownList3.Enabled = False
            Me.DropDownList4.Enabled = False
            Me.DropDownList8.Enabled = False
            Me.DropDownList9.Enabled = False
            Me.DropDownList10.Enabled = False
            Me.DropDownList5.Enabled = False
            Me.DropDownList6.Enabled = False
            Me.DropDownList7.Enabled = False

        End If

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.CheckBox1.Enabled = False
        Me.CheckBox2.Enabled = False
        Me.CheckBox3.Enabled = False
        Me.CheckBox4.Enabled = False
        Me.CheckBox5.Enabled = False

        If Me.CheckBox5.Checked = True Then

            Me.DropDownList1.Enabled = True

        End If

        If Me.CheckBox1.Checked = True Then

            Me.DropDownList2.Enabled = True
            Me.DropDownList3.Enabled = True
            Me.DropDownList4.Enabled = True
            Me.DropDownList8.Enabled = True
            Me.DropDownList9.Enabled = True
            Me.DropDownList10.Enabled = True

        End If

        If Me.CheckBox2.Checked = True Then

            Me.DropDownList5.Enabled = True

        End If

        If Me.CheckBox3.Checked = True Then

            Me.DropDownList6.Enabled = True

        End If

        If Me.CheckBox4.Checked = True Then

            Me.DropDownList7.Enabled = True

        End If

    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        Me.CheckBox1.Enabled = True
        Me.CheckBox2.Enabled = True
        Me.CheckBox3.Enabled = True
        Me.CheckBox4.Enabled = True
        Me.CheckBox5.Enabled = True

        DropDownList1.Enabled = False
        Me.DropDownList2.Enabled = False
        Me.DropDownList3.Enabled = False
        Me.DropDownList4.Enabled = False
        Me.DropDownList8.Enabled = False
        Me.DropDownList9.Enabled = False
        Me.DropDownList10.Enabled = False
        Me.DropDownList5.Enabled = False
        Me.DropDownList6.Enabled = False
        Me.DropDownList7.Enabled = False

    End Sub

    Protected Sub count_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles count.Click

        Dim sqlbuff As New StringBuilder

        sqlbuff.Append("  select returninbank.ReturnInNo,  ")
        sqlbuff.Append("    returninbank.ReturnInDate,")
        sqlbuff.Append("    returninbank.ShopNo,")
        sqlbuff.Append("    shop.shopname,")
        sqlbuff.Append("    returninbank.remark,")
        sqlbuff.Append("    returninbanklist.thingno,")
        sqlbuff.Append("    thing.thingname,")
        sqlbuff.Append("    thingclass.classname,")
        sqlbuff.Append("    returninbanklist.ReturnInNumber,")
        sqlbuff.Append("    thing.shopprice,")
        sqlbuff.Append("    returninbanklist.minMoney,")
        sqlbuff.Append("    returninbanklist.Remark ")
        sqlbuff.Append("  from returninbank,returninbanklist,thing,thingclass,shop")
        sqlbuff.Append("  where returninbank.ReturnInNo=returninbanklist.ReturnInNo ")
        sqlbuff.Append("  and returninbanklist.thingno=thing.thingno")
        sqlbuff.Append("  and thing.classno=thingclass.classno ")
        sqlbuff.Append("  and returninbank.shopno=shop.shopno")

        If Me.CheckBox5.Checked = True Then

            sqlbuff.Append(" and returninbank.ReturnInNo=" + DropDownList1.SelectedValue)

        End If

        If Me.CheckBox1.Checked = True Then

            Dim str As String = DropDownList2.Text + DropDownList3.Text + DropDownList4.Text
            Dim str1 As String = DropDownList8.Text + DropDownList9.Text + DropDownList10.Text

            sqlbuff.Append(" and inbank.ReturnInDate>=" + str)
            sqlbuff.Append(" and inbank.ReturnInDate<=" + str1)

        End If

        If Me.CheckBox2.Checked = True Then

            sqlbuff.Append(" and shop.shopno=" + DropDownList5.SelectedValue)

        End If

        If Me.CheckBox3.Checked = True Then

            sqlbuff.Append(" and thingclass.classno=" + DropDownList6.SelectedValue)

        End If

        If Me.CheckBox4.Checked = True Then

            sqlbuff.Append(" and thing.thingno=" + DropDownList7.SelectedValue)

        End If

        Dim adap As New SqlDataAdapter(sqlbuff.ToString, conn)
        conn.Open()
        Dim dataset As New DataSet
        Dim tb As New DataTable
        adap.Fill(dataset)
        tb = dataset.Tables(0)
        Me.DataGrid1.DataSource = tb
        Me.DataGrid1.DataBind()

    End Sub

    Protected Sub cancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cancel.Click


    End Sub

End Class