锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net仓储系统源码 怎么做vb仓储系统

IT技术text

求vb.net的源代码，最好说明其解决问题，越多越好，满意加50分 。下面这段代码 ， 是我用来计算每个月存500元进银行，连续30年，最后连本带利能有多少钱 。这里面涉及复利计算 。界面中右边的文本框用来输出每一次计算的结果 。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nianxian As Integer '年限变量
Dim dingcun As Integer '定存变量
Dim fuli_big As Long '大复利
Dim fuli_small As Long '小复利
Dim i As Integer '循环变量
Dim DATAstring As String '数据字符串
nianxian = Val(年限_TextBox.Text)
dingcun = Val(定存_TextBox.Text)
DATAstring = ""
For i = 1 To nianxian
fuli_small = dingcun * (10.1875)
dingcun = fuli_small
fuli_big = fuli_bigfuli_small
DATAstring = DATAstring"["Trim(Str(i))"]"Str(fuli_big)Chr(13)Chr(10)
'DATAstring = DATAstring"["Trim(Str(i))"]"Str(fuli_small)Chr(13)Chr(10)
Next
'fuli_big = fuli_small
TextBox1.Text = DATAstring
结果_TextBox.Text = Str(fuli_big)"元"
End Sub
谁有vb.net sqlserver开发的《库存管理系统》的源码和源文件？？1.显示直观 ， 点击“名称”中的“加号”展开下拉菜单 ， 显示装备的详细情况和维修情况，简洁清楚；
2.更为实用的搜索功能；
3.数据库防远程下载；
4.后台操作简简洁，信息录入非常方便；
5.管理员分为三个等级；
6.出于好玩，添加了万年历、手机号码查询、邮编查询功能；
7.所有在系统中使用到的广告图片的源文件（png格式，fireworks制作）均保存于（fire文件夹中） 。
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
'显示记录
【vb.net仓储系统源码 怎么做vb仓储系统】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 = https://www.04ip.com/post/Val(Text1.Text)
'保存产品名称
myRecord.Fields("ProductName").Value = https://www.04ip.com/post/Text2.Text
'保存供应商编号
myRecord.Fields("SupplierID").Value = https://www.04ip.com/post/Val(Text3.Text)
'保存类别编号
myRecord.Fields("CategoryID").Value = https://www.04ip.com/post/Val(Text4.Text)
'保存单位数量
myRecord.Fields("QuantityPerUnit").Value = https://www.04ip.com/post/Text5.Text
'保存单价
myRecord.Fields("UnitPrice").Value = https://www.04ip.com/post/Val(Text6.Text)
'保存库存数量
myRecord.Fields("UnitsInStock").Value = https://www.04ip.com/post/Text7.Text
'保存订单数量
myRecord.Fields("UnitsOnOrder").Value = https://www.04ip.com/post/Val(Text8.Text)
'保存重订等级
myRecord.Fields("ReorderLevel").Value = https://www.04ip.com/post/Val(Text9.Text)
'调用Recordset对象Update方法保存数据
myRecord.Update
'显示数据
ShowData
End Sub
关于vb.net仓储系统源码和怎么做vb仓储系统的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：林依轮直播间助理叫什么，林依轮直播间助理女的是谁

    下一篇：制作烘焙工具直播视频大全，烘培直播