金箍棒变长

编程代码如下:

Dim Step As Integer
Private Sub Command1_Click()
Timer1.Enabled = False

Step = Step + 150

Line (1000, 1000)-(30 + Step, 1000), QBColor(Int(Rnd * 15))

End Sub


Private Sub Timer1_Timer()
Timer1.Enabled = True
Step = Step + 150

Line (1000, 1000)-(30 + Step, 1000), QBColor(Int(Rnd * 15))

End Sub


 孙悟空的金箍棒可随意变,我们的也可以的

找区别,结果数据不一样。金箍棒变长变长变长变长长长长

01-14

[code=sql]rnselect c.编码||b.名称 as 药品名称,rn b.规格,rn decode (/*B3*/1/*E3*/,1,c.售价单位,2,c.门诊单位,3,c.住院单位,4,c.药库单位,c.售价单位) as 单位,rn g.实际数量/decode(/*B3*/1/*E3*/,2,c.门诊包装,3,c.住院包装,4,c.药库包装,1) as 实际数量,rn to_char(g.零售价,'9999990.00') as 零售价 ,rn to_char(g.零售金额,'9999990.00') as 零售金额rn rnfrom (select 药品id,sum(实际数量) as 实际数量,avg(零售价) as 零售价,sum(零售金额) as 零售金额 from 药品收发记录 group by 药品id) g ,rn药品收发记录 a,收费项目目录 b, 药品目录 crnwhere b.id = a.药品id rn and g.药品id = a.药品idrn and c.药品id = a.药品idrn and a.审核日期 between /*B0*/TO_DATE('2015-12-01 00:00:00','YYYY-MM-DD HH24:MI:SS')/*E0*/ and /*B1*/TO_DATE('2016-01-14','YYYY-MM-DD')/*E1*/rn and a.单据 in (8,9,10) and a.发药方式 in (1,2,3)rn and a.库房id /*B2*/is not null/*E2*/ rn[/code]rnrn——————————————————————————————————————————rn[code=sql]select rn a.编码||a.名称 as 药品名称,a.规格,rn gg.实际数量/decode (/*B3*/1/*E3*/,2,a.门诊包装,3,a.住院包装,4,a.药库包装,1) as 实际数量,rn decode(/*B3*/1/*E3*/,1,a.售价单位,2,a.门诊单位,3,a.住院单位,4,a.药库单位,a.售价单位) as 单位,rn gg.零售价,gg.零售金额 rnfromrn (selectrn 药品id ,库房id,rn sum(实际数量) as 实际数量,rn avg(零售价) as 零售价,rn sum(零售金额) as 零售金额rn from rn 药品收发记录 rnwhere rn 单据 in (8,9,10) and 发药方式 in (1,2,3) rn and 审核日期 between /*B1*/TO_DATE('2015-12-01 00:00:00','YYYY-MM-DD HH24:MI:SS')/*E1*/ and /*B2*/TO_DATE('2016-01-14 23:59:59','YYYY-MM-DD HH24:MI:SS')/*E2*/rn group by 药品id,库房id) GG,药品目录 a , 部门表 b rn where rn b.id /*B0*/is not null/*E0*/ and a.药品id = gg.药品id and b.id=gg.库房idrn[/code]

没有更多推荐了,返回首页

私密
私密原因:
请选择设置私密原因
  • 广告
  • 抄袭
  • 版权
  • 政治
  • 色情
  • 无意义
  • 其他
其他原因:
120
出错啦
系统繁忙,请稍后再试

关闭