亲，您未登录哦！ 登录 | 注册
首页  |  社区  |  工具箱  |  代码库  |  博客  |  招聘  |  文章  |  新闻  |  下载  |  读书
回 帖 发 新 帖 刷新版面

主题：[讨论]路过的兄弟姐妹帮我看看这个代码有什么问题(vb.net方面知识)

clarksjtv [专家分：0] 发布于 2006-12-02 15:35:00

我用VB.NET编写一个进销存管理系统，有一个小问题一直没有办法解决。想请大家帮我看看，欢迎讨论。

怎么不能上传图片了？？？？那我把问题复述出来吧。

当我只启动frmSellList.vb窗体时，我在窗体上面的mainmenu1上面的三个菜单可以正常显示。但是当我运行整个程序后，frmSellList上面添加的三个菜单选项会移到最顶上与其他五个窗体在同一栏上面，
我的五个窗体是资料管理，进货管理，销售管理，库存管理，系统管理。当我点击销售管理后，我添加的mainmenu1上面的三个菜单选项会跑到五个窗体上面变成了
资料管理，进货管理，销售管理，库存管理，系统管理 添加  修改  删除。
但是单独运行销售管理，正常显示 添加  修改  删除，但是运行整个程序就会变成和上面一讲的。资料管理，进货管理，销售管理，库存管理，系统管理 添加  修改  删除。
大家帮我想想是什么原因吗？我附代码如下：
 Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        If e.Button Is Me.tbbSave Then
            If Me.dtSellList.Rows.Count = 0 Then
                Exit Sub
            End If
            Dim db As DataBase = New DataBase

            ' 获取单据ID
            Dim dvTemp As DataView = db.RunSelectSQL("select max(编号) as 编号 from 销售单历史")
            Dim sId As String = "0000000001"
            If dvTemp.Table.Rows(0).IsNull(0) = False Then
                sId = (CType(dvTemp.Table.Rows(0)("编号"), Integer) + 1).ToString
            End If
            Dim count As Integer
            For count = sId.Trim.Length To 9
                sId = "0" + sId

            Next
            ' 删除已有数据
            db.RunDelOrInsSQL("delete from 销售单明细 where 销售单号='" + sId + "'")
            db.RunDelOrInsSQL("delete from 销售单 where 编号='" + sId + "'")
            ' 写入销售单
            Dim strSQL As String = "insert into 销售单(编号,客户编号,销售日期, 制单人,业务员,"
            strSQL += "税价合计,不含税价,税额,保管员) values('" + sId + "','"
            strSQL += Me.txbClientId.Text.Trim + "','" + Me.txbOrderDate.Text + "','" + Me.txtListMaker.Text.Trim + "','"
            strSQL += CType(Me.cbbWorker.SelectedItem("姓名"), String).Trim() + "'," + Me.txbTotal.Text.Trim() + "," + Me.txbWithoutTax.Text.Trim
            strSQL += "," + Me.txbTax.Text + ",'sys')"
            db.RunDelOrInsSQL(strSQL)

            ' 写入明细
            Dim sId1 As String = "0000000000"
            dvTemp = db.RunSelectSQL("select max(编号) as 编号  from 销售单明细历史")
            If dvTemp.Table.Rows(0).IsNull(0) <> True Then
                sId1 = dvTemp.Table.Rows(0)(0)
            End If

            Dim i As Integer
            For i = 0 To dtSellList.Rows.Count - 1
                sId1 = (CInt(sId1) + 1).ToString
                For count = sId1.Trim.Length To 9
                    sId1 = "0" + sId1
                Next
                strSQL = "insert into 销售单明细(编号,销售单号,货号,销售数量,销售价,仓库,"
                strSQL += "税价合计,税率,不含税价,税额) values('" + sId1 + "','"
                strSQL += sId + "','" + dtSellList.Rows(i)("货号") + "','"
                strSQL += dtSellList.Rows(i)("数量") + "','" + dtSellList.Rows(i)("单价") + "','"
                strSQL += dtSellList.Rows(i)("仓库") + "','" + dtSellList.Rows(i)("税额") + "','"
                strSQL += dtSellList.Rows(i)("税率") + "','" + dtSellList.Rows(i)("不含税价") + "','"
                strSQL += dtSellList.Rows(i)("税额") + "')"
                db.RunDelOrInsSQL(strSQL)
            Next
            db.Dispose()
        End If
        If e.Button Is Me.tbbConfirm Then
            If MessageBox.Show("是否记帐确认销售单", "提示", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                Dim db As DataBase = New DataBase
                Try
                    db.RunDelOrInsSQL("exec sf_销售单")
                    db.Dispose()
                    Me.txbClientId.Text = ""
                    Me.txbClientName.Text = ""
                    Me.txbGoodsCount.Text = ""
                    Me.txbGoodsName.Text = ""
                    Me.txbGoodsId.Text = ""
                    Me.txbGoodsUnit.Text = ""
                    Me.txbPrice.Text = ""
                    Me.txbTax.Text = "0"
                    Me.txbTotal.Text = "0"
                    Me.txbWithoutTax.Text = "0"
                    Me.dtSellList.Clear()
                Catch ex As Exception
                    MessageBox.Show(ex.ToString()) '("提交销售单出错")
                End Try
            End If
        End If
    End Sub
    Private Sub SetTaxForAdd(ByVal total As Integer)
        Try
            Dim iAll As Integer = total + CInt(Me.txbTotal.Text.Trim())
            Me.txbTotal.Text = iAll.ToString
            Me.txbTax.Text = (iAll - iAll / (1 + CInt(Me.lblRateValue.Text.Trim()) / 100)).ToString("f")
            Me.txbWithoutTax.Text = (iAll / (1 + CInt(Me.lblRateValue.Text.Trim()) / 100)).ToString("f")
        Catch ex As Exception
            MessageBox.Show("数据格式不正确")
        End Try
    End Sub
    Private Sub Clear()
        'Me.txbGoodsName.Text = ""
        'Me.txbGoodsUnit.Text = ""
        'Me.txbGoodsId.Text = ""
        Me.txbPrice.Text = ""
        Me.txbGoodsCount.Text = ""
        Me.txbDepot.Text = ""
    End Sub
本帖地址：  http://bbs.pfan.cn/post/207286.html

回复列表 （共2个回复）

沙发

clarksjtv [专家分：0] 发布于 2006-12-02 15:36:00



    Private Sub txbClientId_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If Me.txbClientId.Text.Trim.Length > 0 Then
            Dim db As DataBase = New DataBase
            Dim dv As DataView = db.RunSelectSQL("select 名称 from 客户清单 where 客户编号 = '" + Me.txbClientId.Text.Trim + "'")
            If dv.Table.Rows.Count > 0 Then
                Me.txbClientName.Text = dv.Table.Rows(0)("名称")
            Else
                Me.txbClientId.Text = ""
                Me.txbClientName.Text = ""
            End If
            db.Dispose()
        End If
    End Sub

    Private Sub txbGoodsId_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txbGoodsId.Leave
        If Me.txbGoodsId.Text.Trim.Length > 0 Then
            Dim db As DataBase = New DataBase
            Dim dv As DataView = db.RunSelectSQL("select 品名,单位 from 商品清单 where 货号 = '" + Me.txbGoodsId.Text.Trim + "'")
            If dv.Table.Rows.Count > 0 Then
                Me.txbGoodsName.Text = dv.Table.Rows(0)("品名")
                Me.txbGoodsUnit.Text = dv.Table.Rows(0)("单位")
                Me.txbGoodsId.Text = dv.Table.Rows(0)("单位")
                Me.txbGoodsUnit.Text = dv.Table.Rows(0)("单位")
            Else
                Me.txbGoodsId.Text = ""
                Me.txbGoodsName.Text = ""
                Me.txbGoodsUnit.Text = ""
            End If
            db.Dispose()
        End If
    End Sub


    Private Sub SetTaxForDelOrUpgrade()

        Dim total As Integer = 0
        Dim i As Integer
        Dim rate As Integer = CInt(Me.lblRateValue.Text.Trim)
        Dim s As String
        For i = 0 To Me.dtSellList.Rows.Count - 1
            s = Me.dtSellList.Rows(i)("税价合计")
            total = total + CInt(s.Trim)
        Next
        Me.txbTax.Text = (total - total / (1 + rate / 100)).ToString("f")
        Me.txbTotal.Text = total.ToString
        Me.txbWithoutTax.Text = (total / (1 + rate / 100)).ToString("f")
    End Sub

    Private Sub dgdOrderList_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles dgdOrderList.MouseDown
        Dim hti As DataGrid.HitTestInfo = Me.dgdOrderList.HitTest(New Point(e.X, e.Y))
        If hti.Type = DataGrid.HitTestType.Cell Then
            Dim iRow As Integer = Me.dgdOrderList.CurrentRowIndex
            Me.txbPrice.Text = Me.dtSellList.Rows(iRow)("单价")
            Me.txbGoodsCount.Text = Me.dtSellList.Rows(iRow)("数量")
            Me.txbGoodsId.Text = dtSellList.Rows(iRow)("货号")
            Me.txbGoodsName.Text = dtSellList.Rows(iRow)("品名")
            Me.txbDepot.Text = dtSellList.Rows(iRow)("仓库")

        End If
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        If Me.ValidateNew() = False Then
            MessageBox.Show("数据错误")
            Exit Sub
        End If
        Dim dr As DataRow = Me.dtSellList.NewRow
        dr("货号") = Me.txbGoodsId.Text.Trim
        dr("品名") = Me.txbGoodsName.Text.Trim()
        dr("数量") = Me.txbGoodsCount.Text.Trim
        dr("单位") = Me.txbGoodsUnit.Text.Trim
        dr("单价") = Me.txbPrice.Text.Trim
        dr("仓库") = Me.txbDepot.Text.Trim
        Try

            Dim total As Integer = CInt(Me.txbPrice.Text.Trim) * CInt(Me.txbGoodsCount.Text.Trim)
            Dim rate As Integer = CInt(Me.lblRateValue.Text.Trim)
            dr("税价合计") = total.ToString
            dr("税率") = Me.lblRateValue.Text.Trim
            dr("税额") = (total - total / (1 + rate / 100)).ToString("f")
            dr("不含税价") = (total / (1 + rate / 100)).ToString("f")
            Me.dtSellList.Rows.Add(dr)

            SetTaxForAdd(CInt(Me.txbPrice.Text.Trim) * CInt(Me.txbGoodsCount.Text.Trim))
        Catch ex As Exception
            MessageBox.Show("数据格式不正确")
        End Try
        Clear()
    End Sub

板凳

clarksjtv [专家分：0] 发布于 2006-12-02 15:37:00

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Try
            Dim i, total As Integer
            Dim s As String = "0"
            Dim rate As Integer = CInt(Me.lblRateValue.Text.Trim)
            If Me.dgdOrderList.CurrentRowIndex <> -1 Then
                Dim iRow As Integer = Me.dgdOrderList.CurrentRowIndex
                Me.dtSellList.Rows(iRow)("货号") = Me.txbGoodsId.Text.Trim
                Me.dtSellList.Rows(iRow)("单价") = Me.txbPrice.Text.Trim
                Me.dtSellList.Rows(iRow)("数量") = Me.txbGoodsCount.Text.Trim
                Me.dtSellList.Rows(iRow)("单位") = Me.txbGoodsUnit.Text.Trim
                Me.dtSellList.Rows(iRow)("品名") = Me.txbGoodsName.Text.Trim
                Me.dtSellList.Rows(iRow)("单价") = Me.txbPrice.Text.Trim
                Me.dtSellList.Rows(iRow)("仓库") = Me.txbDepot.Text.Trim
                total = CInt(Me.txbPrice.Text.Trim) * CInt(Me.txbGoodsCount.Text.Trim)
                Me.dtSellList.Rows(iRow)("税率") = Me.lblRateValue.Text.Trim

                Me.dtSellList.Rows(iRow)("税额") = (total - total / (1 + rate / 100)).ToString("f")
                Me.dtSellList.Rows(iRow)("不含税价") = (total / (1 + rate / 100)).ToString("f")
                Me.dtSellList.Rows(iRow)("税价合计") = total.ToString
            End If
            SetTaxForDelOrUpgrade()
        Catch ex As Exception
            MessageBox.Show("数据错误")
        End Try

        Clear()
    End Sub

    Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
        Try
            '获得DataGrid当前被选中的行号
            Dim iRow = dgdOrderList.CurrentRowIndex
            '弹出对话框让用户确认要删除记录
            '如果用户确认要删除记录
            If MessageBox.Show("你确认要删除此条记录吗？", "Confirm", MessageBoxButtons.YesNo) = DialogResult.Yes Then
                '从商品清单表删除当前被选中记录()
                dtSellList.Rows(iRow).Delete()
                SetTaxForDelOrUpgrade()
            Else
                Exit Sub
            End If
        Catch ex As Exception
            MessageBox.Show("删除数据出错")
        End Try
    End Sub


End Class

我来回复

您尚未登录，请登录后再回复。点此登录或注册

程序员工具箱 new

  • 更多工具

    • 代码片段

  • 模拟键盘（不可按）
  • 碰撞的唐三
  • 精彩奥运热点赛事的实时采集
  • 获取天气动态信息
  • 文件查找
  • python大数据抓取京东电脑销量数据
  • 爬虫技术不仅仅支持数据采集
  • 抓取脉脉APP上的职业信息
  • 爬虫中多线程的运用
  • 四则运算以及一元二次方程
  • 欢迎来共享你的NB代码

    • 本版新帖

  • 请教各位高手,怎么样把.net程序编译并做成安装程序
  • 如何合并两张表？
  • 请问学习asp.net需要什么基础啊？
  • [讨论]我怎么才能成为一个成才的程序员呢
  • 请各位帮忙，这句话 “automation服务器不能创建对象”是什么意思？
  • 请教关于c#和c++通信的问题
  • 都来瞧一瞧！
  • SOS:如何访问richtextbox中OLE对象的默认编辑器
  • [原创]学习园地
  • 用ATL设计一个ACTIVE控件,控件功能电子钟(用VC.NET)
  • 关于图片问题！可以帮我吗？
  • 进来瞧瞧
  • [原创]急招web程序员有意者请进来看一看。
  • 连接好数据库后，怎样返回所有的表到组合框?
  • 介绍几本windows程序设计的经典书籍!