标题:谁能帮我看看这个问题
只看楼主
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
得分:0 
不会哦,把你相关的代码全都发出来..

飘过~~
2007-02-13 19:20
YSKING
Rank: 5Rank: 5
来 自:中国绿城
等 级:贵宾
威 望:16
帖 子:1380
专家分:25
注 册:2006-11-11
得分:0 

直接把当前dataGrid中左边的那个小三角游标所在的位置的数据添加到销售表里不是行了吗?


仍然自由自我,永远高唱我歌,走遍千里...
2007-02-13 20:45
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
得分:0 

Imports System.Data.SqlClient
Public Class frmXiaoShou
Inherits System.Windows.Forms.Form
Dim ds As New DataSet
Dim sqlDa As New SqlDataAdapter
Dim sqlCmd As New SqlCommand
销售按钮:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Module1.sqlconn.Open()
Try
Dim str As String
sqlCmd.Connection = Module1.sqlconn
str = "insert into 销售表(名称,尺寸,颜色,金额,数量) values ('" & txtShoesID.Text & "','" & CombNoID.SelectedItem & "','" & combColorID.SelectedItem & "','" & txtTotalMoney.Text & "','" & NumericUpDown2.Text & "')"
sqlCmd.CommandType = CommandType.Text
sqlCmd.CommandText = str
sqlDa.InsertCommand = sqlCmd
sqlCmd.ExecuteNonQuery()
MessageBox.Show("销售成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

' Dim row As DataRow
' row = Me.ds.Tables("销售表").NewRow
' ' row("名称") = Me.txtShoesID.Text
' row("尺寸") = Me.CombNoID.Text
' row("价格") = Me.txtUnitPrice.Text
' row("颜色") = Me.combColorID.Text
' row("折扣") = Me.NumericUpDown1.Text
' row("数量") = Me.NumericUpDown2.Text
' Me.ds.Tables("销售表").Rows.Add(row)
' If Me.ds.Tables("销售表").Rows.Count > 0 Then
' Me.txtTotalMoney.Text = Me.ds.Tables("销售表").Compute("sum(金额)", "")
' End If
' DataGrid1.DataSource = Me.ds.Tables("销售表")
'DataGrid1.DataBindings()
Module1.sqlconn.Close()
下面是更新库存表,这段代码还没有完成,这个步骤也要是把在datagrid中的数量通过点击销售来更新库存表
Module1.sqlconn.Open()
sqlCmd.CommandText = "update 库存表 set 数量 =数量-'" & NumericUpDown2.Text.Trim & "' where 名称='" & txtShoesID.Text & "' and 尺寸='" & CombNoID.SelectedItem & " and 颜色='" & combColorID.SelectedItem & "'"
sqlCmd.Connection = Module1.sqlconn
sqlCmd.CommandType = CommandType.Text
sqlDa.SelectCommand = sqlCmd
If sqlconn.State = ConnectionState.Open Then
Module1.sqlconn.Close()
End If
下面是把销售的情况打印出来
Dim printFrm As New Printfrmshoes
Dim printDoc As New CrystalReport2
printDoc.SetDataSource(ds.Tables("销售表"))
printFrm.CrystalReportViewershoes.ReportSource = printDoc
printFrm.Show()
End Sub
而下面这段代码是当我把鞋名和尺寸都输入后在输入颜色时会自动查询库存表里面的东西显示在

图片5上面

Private Sub txtColorID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combColorID.SelectedIndexChanged
If Me.txtShoesID.Text.Trim.Length = 0 And Me.txtShoesID.Text.Trim.Length Then
MsgBox("请输入正确的数据!", MsgBoxStyle.Information, "提示")
Me.txtShoesID.Focus()
Me.CombNoID.Focus()
Exit Sub
End If
sqlCmd.CommandText = "select 名称 ,尺寸 ,颜色,价格,数量 from 库存表 where 名称='" & txtShoesID.Text & "' and 尺寸='" & CombNoID.SelectedItem & "' and 颜色='" & combColorID.SelectedItem & "'"
sqlCmd.Connection = Module1.sqlconn
sqlCmd.CommandType = CommandType.Text
sqlDa.SelectCommand = sqlCmd
Dim sqlDr As SqlDataReader
Try
If Module1.sqlconn.State <> ConnectionState.Open Then
Module1.sqlconn.Open()
End If
sqlDr = sqlCmd.ExecuteReader(CommandBehavior.CloseConnection)
If sqlDr.Read Then
Me.txtUnitPrice.Text = sqlDr("价格")
Me.txtStockQuantity.Text = sqlDr("数量")
End If
sqlDr.Close()
Module1.sqlconn.Close()
Catch ex As Exception
MsgBox("发生错误:" & ex.Message)
End Try

End Sub
下面的代码是确定按钮下的代码,通过点击可以把数据从在图片5上输入数据

点击确定显示在datagrid中的.
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If Me.txtShoesID.Text.Trim.Length = 0 Then
MsgBox("请输入鞋名!", MsgBoxStyle.Information, "提示")
Me.txtShoesID.Focus()
Exit Sub
End If
If Me.CombNoID.Text.Trim.Length = 0 Then
MsgBox("请输入号码!", MsgBoxStyle.Information, "提示")
Me.CombNoID.Focus()
Exit Sub
End If
If Me.combColorID.Text.Trim.Length = 0 Then
MsgBox("请输入颜色!", MsgBoxStyle.Information, "提示")
Me.combColorID.Focus()
Exit Sub
End If
Dim row As DataRow
row = Me.ds.Tables("销售表").NewRow
row("名称") = Me.txtShoesID.Text
row("尺寸") = Me.CombNoID.Text
row("价格") = Me.txtUnitPrice.Text
row("颜色") = Me.combColorID.Text
row("折扣") = Me.NumericUpDown1.Text
row("数量") = Me.NumericUpDown2.Text
Me.ds.Tables("销售表").Rows.Add(row)
If Me.ds.Tables("销售表").Rows.Count > 0 Then
Me.txtTotalMoney.Text = Me.ds.Tables("销售表").Compute("sum(金额)", "")
End If
End Sub
这段代码是我要运行这个界面时会自动把下面的字段显示在datagrid中的

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dt As New DataTable("销售表")
dt.Columns.Add("名称", System.Type.GetType("System.String"))
dt.Columns.Add("尺寸", System.Type.GetType("System.Int16"))
dt.Columns.Add("颜色", System.Type.GetType("System.String"))
dt.Columns.Add("价格", System.Type.GetType("System.Decimal"))
dt.Columns.Add("折扣", System.Type.GetType("System.Single"))
dt.Columns.Add("数量", System.Type.GetType("System.Int16"))
dt.Columns.Add("金额", System.Type.GetType("System.Decimal"), "价格*折扣*数量")
Me.ds.Tables.Add(dt)
Me.DataGrid1.DataSource = dt
End Sub
2007-02-14 00:38
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
得分:0 

其实我的毕业设计就差这一步了,做的不好,请不要见怪哦``

qwTXdo6V.rar (72.7 KB) 谁能帮我看看这个问题

数据库
现在上传的是我个人的整个销售系统
如果大哥高手们还是看不懂```那我只能希望大哥们去看看我的这个系统咯```
然后帮帮改改哦```
然后在把他发个我好吗```我的邮箱是:poo88ooq@126.com

b5ouuakm.rar (205.82 KB) 谁能帮我看看这个问题

2007-02-14 00:53
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
得分:0 
请大哥帮帮小弟我怎么做``小弟现在是被这个问题搞得很糊涂哦````已经一个礼拜了``这个死问题还没有解决哦```
2007-02-14 02:44
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
得分:0 
可惜我没有时间哦...

飘过~~
2007-02-14 15:21
YSKING
Rank: 5Rank: 5
来 自:中国绿城
等 级:贵宾
威 望:16
帖 子:1380
专家分:25
注 册:2006-11-11
得分:0 
忙着过年呀

仍然自由自我,永远高唱我歌,走遍千里...
2007-02-14 17:03
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
得分:0 
怎么会没有人帮我哦``
我等得很辛苦哦```
我的毕业设计就差这个咯```````希望有哪位好心的高手帮帮我这个笨蛋的问题```
2007-02-14 21:42
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
得分:0 
大哥就这么一下下````我的大功就要告成咯`````
2007-02-14 21:44
YSKING
Rank: 5Rank: 5
来 自:中国绿城
等 级:贵宾
威 望:16
帖 子:1380
专家分:25
注 册:2006-11-11
得分:0 
我想多问一下,你现在想问的是如何把datagrid中的数据通过按销售按钮加载到销售表中,是这样吗?

[此贴子已经被作者于2007-2-14 22:47:04编辑过]



仍然自由自我,永远高唱我歌,走遍千里...
2007-02-14 22:45



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-120832-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.157326 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved