仓储vb点虐 源码 vb仓库管理系统

谁有vb点虐 +sqlserver开发的《库存管理系统》的源码和源文件??

1.显示直观,点击“名称”中的“加号”展开下拉菜单,显示装备的详细情况和维修情况,简洁清楚;

创新互联建站-专业网站定制、快速模板网站建设、高性价比怒江州网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式怒江州网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖怒江州地区。费用合理售后完善,十载实体公司更值得信赖。

2.更为实用的搜索功能;

3.数据库防远程下载;

4.后台操作简简洁,信息录入非常方便;

5.管理员分为三个等级;

6.出于好玩,添加了万年历、手机号码查询、邮编查询功能;

7.所有在系统中使用到的广告图片的源文件(png格式,fireworks制作)均保存于(fire文件夹中)。

求vb点虐 的源代码,最好说明其解决问题,越多越好,满意加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 * (1 + 0.1875)

      dingcun = fuli_small

      fuli_big = fuli_big + fuli_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获取需要登录后的源码

很简单的。这个最基本的了。

就是从数据库表中 找出一个记录,名称和密码都和你输入的一样的记录,就表示登陆成功。

简单的思路:(密码也没有加密等)

dim dt As New DataTable

dim cmd As New SqlCommand

With cmd

.CommandText = "Select * From Users Where UserName=@UserName and UserPwd=@UserPwd"

.Parameters.Add(New SqlClient.SqlParameter("@UserName", "=你输入的用户名TextBox1.Text"))

.Parameters.Add(New SqlClient.SqlParameter("@strColorNo", "=你输入的密码TextBox2.Text"))

End With

dt =SqlHelper.GetDatatable(cmd)

if dt.rows.count0 then

msgbox "ok"

else

msgbox "error"

end if


标题名称:仓储vb点虐 源码 vb仓库管理系统
链接URL:http://azwzsj.com/article/ddiicco.html