| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 447 人关注过本帖
标题:好久没来论坛了,这次几个问题一起问
只看楼主 收藏
yflovevb01
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2017-4-28
结帖率:75%
  已结贴   问题点数:20  回复次数:5   
好久没来论坛了,这次几个问题一起问
问题一:
如何返回某一个月最后一天的日期,只需要返回“日”,年月不需要
我知道怎么返回本月的最后一天日期
Label1.Caption = Day(DateAdd("m", 1, Format(Date, "yyyy-mm-01")) - 1)
但是我要返回其他的月份就不知道该怎么计算了。

问题二:
我用下面的这一段代码查询出某一个月的所有数据
Adodc1.RecordSource = "select*from 营业表 where month(日期)  = '" + _
                           Trim(Combo1.Text) + "'order by 日期"
但是问题是,我这个代码,只返回了日期里面的月份,如果我用这一段代码的话,我查询5月,可能会出现所有年份的5月,我想问一下怎么才能返回一下年份
代码里面的combo1  是1到12月

问题三:
我建了一个商品出售的表,access的。
我现在需要实现的是
我每出售一件商品,库存会减1
然而我入库的话
数据库里的数据会增加
如果我有20瓶矿泉水
我卖一瓶剩下19瓶
但是我现在要入20瓶进去
数据库能进行计算吗?
搜索更多相关主题的帖子: 如何  where  
2017-06-09 19:46
xiangyue0510
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:75
帖 子:803
专家分:4715
注 册:2015-8-10
  得分:10 
问题一:

  sDateVal = "2013-06-24"
  Label1.Caption= DateAdd("D", -1, DateAdd("M", 1, Format(sDateVal, "YYYY-MM-" & "01")))


问题二:

select  *  from   营业表  where  convert(varchar(7),日期,120)= '1998-05 '


问题三:
不清楚这个问题代码上有什么问题。
如果不需要历史记录的话,直接update矿泉水的这条记录就可以
如果要详细历史记录,每次进货一条记录,为正数。 每次卖出一条记录,为负数。 统计的时候SUM就可以
2017-06-09 23:08
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:51
帖 子:545
专家分:3134
注 册:2016-5-10
  得分:10 
问题1
程序代码:
Private Sub Command1_Click()
If IsDate(Text1.Text) = False Then
    MsgBox "你输入的日期格式不正确,请检查!", 16, "错误!"
    Exit Sub
End If
Dim RQX As Date
RQX = CDate(Text1.Text)    '这个变量必须将Text1.Text的内容转换为日期格式
Label1.Caption = Year(RQX) & "" & Month(RQX) & "月的最后一天是:" & Day(DateAdd("d", -1, DateAdd("m", 1, Format(RQX, "yyyy-mm-" & "01")))) & "号。"
Text2.Text =  Day(DateAdd("d", -1, DateAdd("m", 1, Format(RQX, "yyyy-mm-" & "01"))))
End Sub


问题二
Adodc1.RecordSource = "select * from 营业表 where year(日期)=" & val(Trim(Combo1.Text)) & " And month(日期)=" & val(Trim(Combo2.Text)) & " order by 日期"
Combo1是年份的下拉框,Combo2是月份的下拉框

问题三
销售时:库存量=库存量-销售量
进货时:库存量=库存量+进货量

QQ    2653043392
2017-06-10 08:59
yflovevb01
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2017-4-28
  得分:0 
回复 2楼 xiangyue0510
谢谢版主!
问题一完美的解决了
我在您给的代码基础上前面加了个Day就实现了我想要的东西。
但是问题二我不太明白
我用了三楼的版主答案  也完美的解决了
谢谢你们!
问题三我再自己想想办法
2017-06-10 12:47
yflovevb01
Rank: 1
等 级:新手上路
帖 子:21
专家分:0
注 册:2017-4-28
  得分:0 
回复 3楼 ZHRXJR
谢谢版主
问题一你给的代码我仔细看了一下
但是我觉得二楼版主给我代码更简单并且也能实现我想要的
所以我用了那个
然后问题二是根据您给我的代码解决的
问题三我再自己想想
谢谢你们!
2017-06-10 12:49
xiangyue0510
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:75
帖 子:803
专家分:4715
注 册:2015-8-10
  得分:0 
回复 5楼 yflovevb01
问题3主要是看你数据库如何架构。一般情况下,还是一条一条的加,这样不容易出现问题,可以追踪料单
举个例子: 实际销售采办中可能价格浮动,还有批发等等,复杂的多,这里只是一个示例
编号   品类            商品编码    交易类型     数量       单价       日期
1     农夫山泉500ml   1233323321    采购        6000        0.8       2017.06.03
2     农夫山泉500ml   1233323321    售出          -2        1.0       2017.06.04
……
100   农夫山泉500ml   1233323321    售出         -10        1.0       2017.06.03

查采购量
Select Sum(数量) from 库存表 where 品类 ='农夫山泉500ml' and  交易类型='采购'
查销售量
Select Sum(数量) from 库存表 where 品类 ='农夫山泉500ml' and  交易类型='售出'
查库存
Select Sum(数量) from 库存表 where 品类 ='农夫山泉500ml'
2017-06-11 12:05







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

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