当前位置：首页 > news >正文

护肤网站模版/关于新品牌的营销策划

news 2025/7/7 12:13:04

关于《Visual Basic.Net 循序渐进》请到百度网盘下载，具体下载地址：
链接：https://pan.baidu.com/s/1IfaLvlklx-nT4KK4VKZuIw
提取码：ip5n

同入库管理，仍然存在一个出库单对应多个出库物的情况，因此提供了两种显示方式。“出库单”按钮按下显示的是出库单信息，“出库货物”按钮按下显示的是出库货物信息。datagridview在显示出库单时，双击弹出出库单ID对应的出库单操作窗口；datagridview在显示出库货物信息时，双击转到显示该出库货物对应的出库单。
全部代码如下：

Imports System.ComponentModel
Imports System.Data.OleDbPublic Class FormStorageOutDim connection As OleDbConnectionDim ds As DataSetDim adapter As OleDbDataAdapterDim dt As DataTable'每页显示记录数Const pagesize As Integer = 50'总的页数Dim maxPage As Integer'当前页数Dim currentPage As IntegerDim F_Main As FormMain'出库单查询相关sql语句Dim sqlOrderSelect As StringDim sqlOrderFrom As StringDim sqlOrderOrder As StringDim sqlOrderWhere As String'出库货物查询相关sql语句Dim sqlFoodsSelect As StringDim sqlFoodsFrom As StringDim sqlFoodsOrder As StringDim sqlFoodsWhere As String'自定义查询相关语句Dim sqlQuerySelect As StringDim sqlQueryFrom As StringDim sqlQueryOrder As StringDim sqlQueryWhere As StringDim sqlFlag As String'Public Event RefreshData()Private Sub FormStorageOut_Load(sender As Object, e As EventArgs) Handles MyBase.LoadMe.WindowState = FormWindowState.Maximizedconnection = New OleDbConnection(databaseConnString)connection.Open()F_Main = CType(Me.MdiParent, FormMain)'sqlOrderSelect = "SELECT 出库单.订单ID, 出库单.雇员ID as 操作员编号,操作员.姓名 AS 操作员, 出库单.订购日期, 出库单.发货日期, 快递公司.公司名称 as 快递公司, 出库单.快递费, 出库单.买家姓名, 出库单.买家手机号码, 出库单.买家地址 "sqlOrderSelect = "SELECT 出库单.订单ID, 操作员.姓名 AS 操作员, 出库单.订购日期, 出库单.发货日期, 快递公司.公司名称 as 快递公司, 出库单.快递费, 出库单.买家姓名, 出库单.买家手机号码, 出库单.买家地址 "sqlOrderFrom = "FROM 快递公司 INNER JOIN (出库单 INNER JOIN 操作员 ON 出库单.雇员ID = 操作员.ID) ON 快递公司.运货商ID = 出库单.快递公司 "sqlOrderWhere = "where 出库单.是否删除='否'"sqlOrderOrder = "order by 出库单.订单ID"sqlFoodsSelect = "select 出库单明细.订单ID,货物信息.产品名称,出库单明细.单价,出库单明细.数量,操作员.姓名 as 操作员,出库单.订购日期,出库单.发货日期,出库单.买家姓名,出库单.买家手机号码,出库单.买家地址 "sqlFoodsFrom = "FROM 货物信息 INNER JOIN (操作员 INNER JOIN (出库单 INNER JOIN 出库单明细 ON 出库单.订单ID = 出库单明细.订单ID) ON 操作员.ID = 出库单.雇员ID) ON 货物信息.产品ID = 出库单明细.产品ID "sqlFoodsWhere = "where 出库单.是否删除='否'"sqlFoodsOrder = "order by 出库单明细.订单ID"sqlQuerySelect = "SELECT 出库单.订单ID, 操作员.姓名 AS 操作员, 出库单.订购日期, 出库单.发货日期, 快递公司.公司名称 as 快递公司, 出库单.快递费, 出库单.买家姓名, 出库单.买家手机号码, 出库单.买家地址 "sqlQueryFrom = "FROM 快递公司 INNER JOIN (出库单 INNER JOIN 操作员 ON 出库单.雇员ID = 操作员.ID) ON 快递公司.运货商ID = 出库单.快递公司 "sqlQueryWhere = ""sqlQueryOrder = "order by 出库单.订单ID"sqlFlag = "出库单"Call showGrid(sqlFlag)End Sub'显示查询的数据信息Public Sub showGrid(ByVal tableFlag As String)ds = New DataSet(tableFlag)'建立OleDbCommand，传入Sql语句求要查询记录的总数Dim command As New OleDbCommand()Dim sqlSelect As String = ""Dim sqlFrom As String = ""Dim sqlWhere As String = ""Dim sqlOrder As String = ""Select Case tableFlagCase "出库单"sqlSelect = sqlOrderSelectsqlFrom = sqlOrderFromsqlWhere = sqlOrderWheresqlOrder = sqlOrderOrderCase "出库物"sqlSelect = sqlFoodsSelectsqlFrom = sqlFoodsFromsqlWhere = sqlFoodsWheresqlOrder = sqlFoodsOrderCase "自定义"sqlSelect = sqlQuerySelectsqlFrom = sqlQueryFromsqlWhere = sqlQueryWheresqlOrder = sqlQueryOrderEnd Selectcommand.CommandText = "select count(*) " & sqlFrom & sqlWherecommand.Connection = connectionDim count As Integer = command.ExecuteScalarF_Main.tsslInfo.Text = "数据总数：" & count & " 条"If count < pagesize ThentsbFirstPage.Enabled = FalsetsbPrevPage.Enabled = FalsetsbNextPage.Enabled = FalsetsbLastPage.Enabled = FalseElsetsbFirstPage.Enabled = TruetsbPrevPage.Enabled = TruetsbNextPage.Enabled = TruetsbLastPage.Enabled = TrueEnd Ifcommand.CommandText = sqlSelect &sqlFrom &sqlWhere &sqlOrderadapter = New OleDbDataAdapter(command)Console.WriteLine(command.CommandText)'根据记录总数得到总的页数，其中Math.Ceiling返回大于或等于指定的数的最小整数值maxPage = Math.Ceiling(count / pagesize)currentPage = 0adapter.Fill(ds, currentPage * pagesize, pagesize, tableFlag)'防止列顺序与查询顺序不一致，需要加入以下一行代码dgv.DataSource = Nothingdgv.DataSource = ds.Tables(tableFlag)tslRecord.Text = (currentPage + 1).ToString & "/" & maxPage.ToStringEnd SubPrivate Sub tsbFirstPage_Click(sender As Object, e As EventArgs) Handles tsbFirstPage.ClickcurrentPage = 0'先清除已经填入的表，否则会将数据追加到已有表ds.Tables(sqlFlag).Clear()adapter.Fill(ds, currentPage * pagesize, pagesize, sqlFlag)dgv.DataSource = ds.Tables(sqlFlag)tslRecord.Text = (1).ToString & "/" & maxPage.ToStringEnd SubPrivate Sub tsbPrevPage_Click(sender As Object, e As EventArgs) Handles tsbPrevPage.ClickIf currentPage = 0 ThenMessageBox.Show("已经是第一页了")Exit SubEnd IfcurrentPage -= 1ds.Tables(sqlFlag).Clear()adapter.Fill(ds, currentPage * pagesize, pagesize, sqlFlag)dgv.DataSource = ds.Tables(sqlFlag)tslRecord.Text = (currentPage + 1).ToString & "/" & maxPage.ToStringEnd SubPrivate Sub tsbNextPage_Click(sender As Object, e As EventArgs) Handles tsbNextPage.ClickIf currentPage = maxPage - 1 ThenMessageBox.Show("已经是最后一页了")Exit SubEnd IfcurrentPage += 1ds.Tables(sqlFlag).Clear()Dim recordcount As Integer = adapter.Fill(ds, currentPage * pagesize, pagesize, sqlFlag)dgv.DataSource = ds.Tables(sqlFlag)tslRecord.Text = (currentPage + 1).ToString & "/" & maxPage.ToStringEnd SubPrivate Sub tsbLastPage_Click(sender As Object, e As EventArgs) Handles tsbLastPage.ClickcurrentPage = maxPage - 1ds.Tables(sqlFlag).Clear()adapter.Fill(ds, currentPage * pagesize, pagesize, sqlFlag)dgv.DataSource = ds.Tables(sqlFlag)tslRecord.Text = (currentPage + 1).ToString & "/" & maxPage.ToStringEnd SubPrivate Sub tsbStockOutOrder_Click(sender As Object, e As EventArgs) Handles tsbStockOutOrder.ClicksqlFlag = "出库单"Call showGrid(sqlFlag)'在查询出库物品单时，才允许增改删tsbAdd.Enabled = TruetsbEdit.Enabled = TruetsbDelete.Enabled = TrueEnd SubPrivate Sub tsbStockOutFoods_Click(sender As Object, e As EventArgs) Handles tsbStockOutFoods.ClicksqlFlag = "出库物"Call showGrid(sqlFlag)'在查询出库物品时，禁止增改删tsbAdd.Enabled = FalsetsbEdit.Enabled = FalsetsbDelete.Enabled = FalseEnd Sub'增加出库单Private Sub tsbAdd_Click(sender As Object, e As EventArgs) Handles tsbAdd.ClickDim F_StorageOutOrder As New FormStorageOutOrder(0)F_StorageOutOrder.ShowDialog()End Sub'查看或修改出库单Private Sub tsbEdit_Click(sender As Object, e As EventArgs) Handles tsbEdit.ClickIf dgv.SelectedRows.Count = 0 ThenMessageBox.Show("请先选择一条出库单")Exit SubEnd IfDim orderid As Integerorderid = CType(dgv.SelectedRows(0).Cells(0).Value, Integer)Dim F_StorageOutOrder As New FormStorageOutOrder(orderid)F_StorageOutOrder.ShowDialog()End Sub'删除出库单。。只能删除登录操作员本人的Private Sub tsbDelete_Click(sender As Object, e As EventArgs) Handles tsbDelete.ClickIf dgv.SelectedRows.Count = 0 ThenMessageBox.Show("请先选择一条出库单")Exit SubEnd IfDim orderid As Integerorderid = CType(dgv.SelectedRows(0).Cells(0).Value, Integer)Dim command As New OleDbCommand()command.Connection = connection'先查询该出库单记录是否当前操作员保存command.CommandText = "select 雇员ID from 出库单 where 订单ID=" & orderidDim odReader As OleDbDataReaderodReader = command.ExecuteReader(CommandBehavior.SingleResult)odReader.Read()Dim recordUserID As Integer = odReader.GetInt32(0)If recordUserID <> loginId ThenMessageBox.Show("不允许删除其它操作员的出库单")Exit SubEnd IfodReader.Close()If MessageBox.Show("确定要删除此条记录？", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) = DialogResult.Cancel ThenExit SubEnd If'将该出库单标记为删除（实际未删除）command.CommandText = "update 出库单 set 是否删除='是' where 订单ID=" & orderid'删除不用返回值，直接使用ExecuteNonQuery。command.ExecuteNonQuery()'从dgv中删除该行dgv.Rows.Remove(dgv.SelectedRows(0))End SubPrivate Sub FormStorageOut_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closingconnection.Close()End Sub'在dgv中双击某行Private Sub dgv_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles dgv.MouseDoubleClickDim dgvhti As DataGridView.HitTestInfo = dgv.HitTest(e.X, e.Y)Dim selectedIndex As IntegerIf dgvhti.Type = DataGridViewHitTestType.Cell Or dgvhti.Type = DataGridViewHitTestType.RowHeader ThenselectedIndex = dgvhti.RowIndexDim orderid As Integerorderid = CType(dgv.Rows(selectedIndex).Cells(0).Value, Integer)If sqlFlag = "出库物" Then'当在出库物 表格时，双击转到查询对应的订单sqlQueryWhere = "where (出库单.订单ID=" & orderid & ") and (出库单.是否删除='否')"sqlFlag = "自定义"Call showGrid(sqlFlag)'在查询出库物品单时，才允许增改删tsbAdd.Enabled = TruetsbEdit.Enabled = TruetsbDelete.Enabled = TrueElse'当在 出库单、自定义 时，双击同选中某行后按下“修改”按钮的效果Dim F_StorageOutOrder As New FormStorageOutOrder(orderid)F_StorageOutOrder.ShowDialog()End IfElseExit SubEnd IfEnd Sub'自定义查询，需要从FormStockOutQuery返回查询条件Public customWhere As String'自定义查询Private Sub tsbQuery_Click(sender As Object, e As EventArgs) Handles tsbQuery.ClickDim F_StockOutQuery As New FormStorageOutQueryF_StockOutQuery.Owner = MeF_StockOutQuery.ShowDialog()If customWhere = "" ThenExit SubEnd IfsqlQueryWhere = "where " & customWhere & " and (出库单.是否删除='否')"sqlFlag = "自定义"Call showGrid(sqlFlag)End SubPrivate Sub tsbHome_Click(sender As Object, e As EventArgs) Handles tsbHome.ClickMe.Close()End Sub
End Class

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供的参考。

学习更多vb.net知识，请参看 vb.net 教程目录

查看全文

http://www.jmfq.cn/news/4760479.html