进销存vb源码(进销存vba代码)
VB仓库管理系统源代码
晕，楼上的回答怎么没有一个写代码的啊，我代码写好了dim myConn as object
dim myRecord aS OBJECT
Dim mySQL As String
Dim strSQL As String
SET myConn CreateObject("ADODB.Connection") '创建对象
SET myConn CreateObject("ADODB.Connection") '创建对象
Private Sub Form_Load()
Dim mySQL As String
Dim strSQL As String
'设定连接字符串
mySQL = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;"
mySQL = mySQL + "Data Source=" App.Path "\Product.mdb"
myConn.ConnectionString = mySQL '设定连接字符串
'MsgBox mySQL
myConn.Open '打开连接
myRecord.ActiveConnection = myConn '设定RecordSeet的连接对象为Connection
strSQL = "select * from Products" '设定查询字符串
'打开myRecord
myRecord.Open strSQL, , adOpenDynamic, adLockOptimistic
'显示数据
ShowData
End Sub
Private Sub ShowData()
On Error Resume Next
'产品编号
Text1.Text = myRecord.Fields("ProductID").Value
'产品名称
Text2.Text = myRecord.Fields("ProductName").Value
'供应商编号
Text3.Text = myRecord.Fields("SupplierID").Value
'类别编号
Text4.Text = myRecord.Fields("CategoryID").Value
'单位数量
Text5.Text = myRecord.Fields("QuantityPerUnit").Value
'单价
Text6.Text = myRecord.Fields("UnitPrice").Value
'库存数量
Text7.Text = myRecord.Fields("UnitsInStock").Value
'订单数量
Text8.Text = myRecord.Fields("UnitsOnOrder").Value
'重订等级
Text9.Text = myRecord.Fields("ReorderLevel").Value
End Sub
'后一条按钮单击事件
Private Sub Command8_Click()
'移动记录到下一条的方法是MoveNext
'在调用MoveNext方法之前，首先需要判断，当前是不是已经超出尾纪录
'若超出尾记录，再执行MoveNext会出错
If Not myRecord.EOF Then
myRecord.MoveNext
Else
'超出尾记录，使用MoveLast恢复指向尾记录
myRecord.MoveLast
End If
'显示数据
ShowData
End Sub
'前一条按钮单击事件
Private Sub Command7_Click()
'判断是否超出头记录
'若超出头记录，再执行MovePrevious会出错
If Not myRecord.BOF Then
myRecord.MovePrevious
Else
'超出头记录
'使用MoveFirst恢复到指向第一条记录
myRecord.MoveFirst
End If
'显示数据
ShowData
End Sub
'尾记录按钮单击事件
Private Sub Command9_Click()
'调用MoveLast
myRecord.MoveLast
'显示记录
ShowData
End Sub
Private Sub Command5_Click()
'调用Recordset对象cancelUpdate方法取消数据保存
myRecord.CancelUpdate
myRecord.MoveFirst
'显示数据
ShowData
End Sub
'首记录按钮单击事件
Private Sub Command6_Click()
'调用MoveFirst移动
myRecord.MoveFirst
'显示记录
ShowData
End Sub
Private Sub Command4_Click()
On Error Resume Next
'保存数据，这里需要通过编程来实现
'产品编号
'产品编号不能为空
If Text1.Text = "" Then
MsgBox "产品编号不能为空!"
Text1.SetFocus
Exit Sub
End If
'其他文本框的判断类似，这里省略
'保存产品编号
myRecord.Fields("ProductID").Value = Val(Text1.Text)
'保存产品名称
myRecord.Fields("ProductName").Value = Text2.Text
'保存供应商编号
myRecord.Fields("SupplierID").Value = Val(Text3.Text)
'保存类别编号
myRecord.Fields("CategoryID").Value = Val(Text4.Text)
'保存单位数量
myRecord.Fields("QuantityPerUnit").Value = Text5.Text
'保存单价
myRecord.Fields("UnitPrice").Value = Val(Text6.Text)
'保存库存数量
myRecord.Fields("UnitsInStock").Value = Text7.Text
'保存订单数量
myRecord.Fields("UnitsOnOrder").Value = Val(Text8.Text)
'保存重订等级
myRecord.Fields("ReorderLevel").Value = Val(Text9.Text)
'调用Recordset对象Update方法保存数据
myRecord.Update
'显示数据
ShowData
End Sub
如何用VB编写销售管理系统
我毕业的时候做个超市管理系统,其中就包括前台销售系统...你可以在网上去找一些这样的系统,带源码的就好了,CSDN里面很多这样的系统.
超市进销存管理信息系统用VB来写
建议你直接查看Office中Access自带的一个示例数据库NorthWind.mdb，一般安装后会在Office安装文件夹里的Sample文件夹里，如果没有我可以发一份给你。
它就是一个典型的进销存管理信息系统，从这个数据库中，你可以学到很多，而且里面的都是VBA代码，跟VB一样的。
求一套vb+access的进销存管理软件源代码
本次毕业设计的题目是进销存管理系统，要求利用Visual Basic完成管理平台设计，构造所用的类库；使用Access数据库存储数据，限单机使用。 企业的物资供应管理往往是很复杂，繁琐的，由于掌握的物资种类众多，订货，管理，发放的渠道各有差异，各个企业之间的管理体制不尽相同，各类统计计划报表繁多，因此物资管理必须实现计算机化，而且必须根据企业的具体情况制定便提高工作效率，
下载地址
vb 进销存
是这样：你的入库数据保存在 入库表 中，出库数据保存在 出库表 中，库存数可以通过sql语句 用入库数-出库数 自动计算出来。数据库里不用设置一个库存表。不明白HI我吧。
谁能帮我把VB 的代码打包好,直接成可以安装的文件?
外接程序--外接程序管理器---打包和展开向导（点选加载）---继续点外接程序---打包和展开向导 按提示操作即可打包