Office中国论坛/Access中国论坛

标题: 《一个医药收费系统》请帮一下忙 [打印本页]

作者: beibeijia 时间: 2004-1-10 00:44
标题: 《一个医药收费系统》请帮一下忙
要求如下：

[attach]3102[/attach]
[attach]3115[/attach]

[此贴子已经被作者于2004-1-10 10:09:51编辑过]

作者: beibeijia 时间: 2004-1-10 00:48
注意
1、每个项目有若干品种：如西药有上百个品种。

2、开单后此表中各项显示为该类(如西药——开出西药的合计款)合计款。

3、单据编号为：时间和序列号生成。

[此贴子已经被作者于2004-1-9 16:52:32编辑过]

作者: sxgaobo 时间: 2004-1-10 00:50
含糊！

作者: beibeijia 时间: 2004-1-10 00:50
附一个简单的大写转换函数：

一个大写转换的小程序。
Function Dx(ysz) As String
Dim dxxz As String
Dim dws As String
Dim lss As String
Dim ss As String
Dim i, ii As Long
ysz = Int(ysz * 10) / 10

If ysz = 0 Then

Dx = "零"
GoTo dx_exit
End If
ss = ""
i = 1
lss = Right(Str(100000000 + ysz * 10), 8)
dxxz = "零壹贰叁肆伍陆柒捌玖"
dws = "佰拾万仟佰拾元角"
Do
ii = Val(Mid(lss, i, 1))
If ii <> 0 Then Exit Do
If ii = 0 Then
i = i + 1
End If
Loop
Do While i <= 8
ss = ss + Mid(dxxz, Val(Mid(lss, i, 1)) + 1, 1) + Mid(dws, i, 1)
i = i + 1
Loop
Dx = ss + "整"
dx_exit:
End Function

作者: swo 时间: 2004-1-10 02:32
不懂你说的什么意思？是要别人帮你一个完整程序的还是什么做还是什么？如果只是生成你要的表，那就用查询生成各类的合计不就行了？单号好解决

作者: swo 时间: 2004-1-10 03:19
看看这是不是你想要的单据编号方式？

作者: swo 时间: 2004-1-10 03:21
不好意思，忘记点上传了。
[attach]3103[/attach]

作者: swo 时间: 2004-1-10 03:36
[attach]3106[/attach]

作者: swo 时间: 2004-1-10 03:37
[attach]3107[/attach]
不好意思，看来今晚大有灌水之嫌啊：）

作者: beibeijia 时间: 2004-1-10 03:57
感谢中……

编号前8位为时间转换而成，
——————————————
随日期变化而变化……

不知该用哪一个转换函数？？

作者: beibeijia 时间: 2004-1-10 04:44
dd = CStr(Format(Date,"yyyymmdd"))

作者: beibeijia 时间: 2004-1-10 04:51
[attach]3108[/attach]

我做的基本表,

请修改指正,
有兴趣的网友请跟进……

[此贴子已经被作者于2004-1-9 20:52:35编辑过]

作者: beibeijia 时间: 2004-1-10 08:58
序列号问题已解决:

欢迎继续参与, 最终打印如一开始提到的表格一样,
且需支持退单!
有日报表,月报表……
[attach]3110[/attach]

[此贴子已经被作者于2004-1-10 0:58:58编辑过]

作者: beibeijia 时间: 2004-1-10 09:03
退单问题即增加负值，
是否在订单中应有关于订单类型的字段……

作者: swo 时间: 2004-1-12 18:42
理解错了，我原来以为你是每天要从头生成流水号，所以每天都是从1开始，看了你的例子，原来是一直按自动编号生成流水号。

作者: beibeijia 时间: 2004-1-12 23:50
下面是最终稿:

希望大家多提修改建议:

[attach]3147[/attach]

[此贴子已经被作者于2004-1-12 15:51:48编辑过]

作者: wdyb001 时间: 2006-11-30 22:57
我也正在编写呢，不太完善，大家共同学习吧，不过你要用得自己改一改

作者: wdyb001 时间: 2006-11-30 23:00
怎么传作品啊

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)