设为首页 加入收藏 广告服务 [关闭广告] 
 上传极速3D  文档中心  极速3D交易  
Delphi极速3D | VB极速3D | VC极速3D | Java极速3D | PB极速3D | .Net极速3D | Python极速3D | Android极速3D | iOS极速3D | ASP极速3D | PHP极速3D | JSP极速3D | JavaScript
 首页 > VB极速3D > 数据库 > 小菜鸟进销存V1.0.1源代码

 热门VB极速3D

小菜鸟进销存V1.0.1源代码

  • 资源等级:
  • 上传会员:
  • liuulang
  • 资源类别:
  • VB极速3D¦数据库
  • 文件大小:
  • 1299KB
  • 原创作者:
  • ciaocainiao
  • 发布时间:
  • 2015-10-28 13:08:12
  • 网友评分:
  • 0.0分 / 0次
  • 下载次数:
  • 1664


    花了大量的时间,终于做完1个勉强可以用的进销存软件.
    可以联查单据,还可以修改单据.
    有些地方不够完善.比如没有添加打印功能
    导出数据最好换成用数组方式填充单元格,能节省很多时间.
    整体代码结构不合理,修改的跟个破衣服似的.
    只能是单机版,网络版的不打算写了.
    这个是我的新手作品,有兴趣的可以跟我交流交流
    我的邮箱ciaocainiao@sina.com
    鉴于精力有限,就不优化.下个版本推到重来.

     

      网友评论(共有6条)
    网友评分           1.0
     不好意思,我上传的时候改了部分代码,导致1个bug发生. 有两种方法解决. 方法一,修改spmx.frm代码 Private Sub MSHF1_DblClick() ID = MSHF1.TextMatrix(MSHF1.row, 1) '原先的数字是2直接修改 Unload Me End Sub 方法二 在SPMX.frm中加1个checkbox控件,他的caption=包含库存为0的商品 直接删掉spmx.frm中的sub fullgrid再重新复制下面的代码
    liuulang,2015-10-28 17:10:18
     超过500不显示.我直接说怎么改.checkbox控件还是像上面一样 在sub fullgrid中删掉str1Mxkc="...这一行 添加代码 If Check1.Value = 1 Then str1Mxkc = "select 库存明细表.仓库,商品资料表.* ,库存明细表.库存数量 from 商品资料表 left join (" & strMxkc & ") as 库存明细表 on 商品资料表.商品编码 = 库存明细表.商品编码" & " " & strsp
    liuulang,2015-10-28 17:17:41
      Else str1Mxkc = strMxkc & strsp End If
    liuulang,2015-10-28 17:18:52
     要是不清楚的可以直接向我发邮件请教.我就不再上传修改过的版本.
    liuulang,2015-10-28 17:20:51
     我也是用VB开发ERP软件,近10来年了,多交流 Q:2576320657刘生
    dayup126,2016-06-05 12:59:26
     极速3D下载
    woainimama,2019-02-20 17:01:15
      → 发表我的评论:

    *字数限制500个字符(一个汉字占三个字符)



    广告服务 -- 关于本站 -- 付款方法 -- 会员指南 -- 联系方法
    E-mail:  
    QQ技术交流群:编程乐园 11807356(VB交流群) 3326898(Delphi交流群) 14230528(VC交流群)
    版权所有 © 2003-2017 极速3D天空 保留所有权力