VB+SQL Server药房管理系统 第8页
【参考文献】
[1] 黄梯云. 管理信息系统[M]. 高等教育出版社, 1999.
[2] 甘仞初. 信息系统开发[M]. 经济科学出版社, 1996.
[3] 王汝涌. 管理信息系统[M]. 中国财经经济, 2001.7.
[4] 黄文劭, 杨宗璟. Visual Basic.Net 2003实践进销存系统[M]. 中国铁道出版社, 2004.11.
[5] 曹衍龙, 四维科技. Visual Basic系统开发实例精粹[M]. 人民邮电出版社, 2005.8.
[6] 段兴, 吴德胜, 齐晓亮, 肖仁华. Visual Basic 6.0数据库实用程序设计100例[M]. 人民邮电出版社, 2002.10.
[7] F. B. Vernadat.Enterprise Modeling and Integration (EMI): Current Status and Research Perspectives [J]. Annual Reviews in Control, 2002(26): 216-222.
[8] K.Kosanke, J. G. Nell. Standardization in ISO for enterprise engineering and integration [J]. Computers in Industry, 1999(40): 311-319.
[9] H. S. Gill. The Case for
[10] 张巨俭, 甘仞初. 管理信息系统的发展方向及实现技术[J]. 计算机应用研究, 2003(1) : 21-23.
[11] 韩燕, 李随成. 生产方式与管理信息系统发展[J]. 成组技术与生产现代化, 2001(3) : 87-91.
[12] 王晟. Visual Basic.Net 数据库开发经典案例解析[M]. 清华大学出版社, 2005.3.
[13] 罗朝盛. Visual Basic 6.0 程序设计教程[M]. 人民邮电出版社, 2002.9.
[14] 尚北城, 方丽莎, 庞云丽, 等1“军卫一号”门诊药房管理子系统呆滞药品相关问题的讨论[J]. 军队医药, 2001, 11(1): 22.
[15] 尚北城, 唐冰, 刘江, 段慧琼, 何献花. 计算机药房管理系统中积压和呆滞药品分析及处理方法[J]. 药学实践杂志, 2001, 19(6): 371-372.
[16] 陈勇, 蔡淑琴. 管理信息系统的发展动因及趋势研究[J].商业研究, 2005, 322(14): 4-6.
[17] 杜梅雅,郑文辉.仓储式销售特点及其在我国的发展前景[J].商业研究, 1999, 208(8): 58-59.
[18] 尚北城, 韦丽佳, 方丽莎. “军卫一号”门诊药房管理子系统进行药品建账时药品准备值高限量和低限量确定的意义和方法[J]. 军队医药, 2000, 10(4): 4.
[19] W illiam J. Stevenson. Production Operations Management. Sixth Edition. TheMcGraw-H ill Company [J], 1999, 322-345.
[20] 萨师煊, 王珊. 数据库系统概论(第三版)[M]. 高等教育出版社, 2000.
1) 文本框Text与MSFlexGrid控件同步代码:
Private Sub msgSell_EnterCell() '确定txtInput在msgSell表中的位置
Dim x, Y, P As String
If msgSell.CellWidth <= 0 Or msgSell.CellHeight <= 0 Then Exit Sub
x = msgSell.TextMatrix(msgSell.FixedRows, msgSell.Col)
Y = msgSell.TextMatrix(msgSell.Row, 0)
If Y <> "" Then
If msgSell.Col - msgSell.LeftCol <= 3 Then
msgSell.LeftCol = msgSell.LeftCol + 1
End If
If msgSell.CellWidth > 0 And msgSell.CellHeight > 0 Then
txtInput.Width = msgSell.CellWidth
txtInput.Height = msgSell.CellHeight
txtInput.Left = msgSell.CellLeft + msgSell.Left
txtInput.Top = msgSell.CellTop + msgSell.Top
End If
x = msgSell.TextMatrix(msgSell.FixedRows, msgSell.Col)
Y = msgSell.TextMatrix(msgSell.Row, 0)
P = msgSell.TextMatrix(msgSell.Row, msgSell.Col)
txtInput.Text = msgSell.Text
txtInput.SelStart = 0
txtInput.SelLength = Len(txtInput.Text)
End If
End Sub
2) 采用Datareport打印输出代码：
Private Sub Command2_Click()
On Error GoTo errhandler:
Set DataEnvironment1 = New DataEnvironment1
DataEnvironment1.rsCommand4.Open "select * from tb_sell_main where 日期='" + Str(DTPicker1.Value) + "' order by 销售单据号"
If DataEnvironment1.rsCommand4.RecordCount > 0 Then
DataReport4.Show
Else
MsgBox "没有可以打印的信息！"
DataEnvironment1.rsCommand4.Close
End If
Exit Sub
errhandler:
MsgBox "error: " & err.Description & "", , "错误"
Resume Next
End Sub
3) 权限不同登录的界面不同的代码：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case Is = "药品销售"
If ypxs.Enabled = True Then main_rcyw_sell.Show
Case Is = "药品入库"
If Yprk.Enabled = True Then main_rcyw_warehouse.Show
Case Is = "销售退货"
main_rcyw_sellth.Show
Case Is = "入库退货"
main_rcyw_stocked.Show
Case Is = "库存查询"
If kccxx.Enabled = True Then main_kcgl_stockfindx.Show
Case Is = "库存盘点"
If Kcpd.Enabled = True Then main_kcgl_stockpd.Show
Case Is = "价格管理"
main_kcgl_price.Show
Case Is = "销售日报表"
If Xsrbb.Enabled = True Then main_tjbb_sellday.Show
Case Is = "销售月报表"
main_tjbb_sellmonth.Show
Case Is = "客户销售报表"
main_tjbb_client.Show
Case Is = "应收款管理"
If Qkgl.
Case Is = "收款查询"
main_ysyf_chargefind.Show
Case Is = "销售查询"
If Xscx.Enabled = True Then main_cxtj_sellfind.Show
Case Is = "入库查询"
main_cxth_warehousefind.Show
Case Is = "销售退货查询"
main_cxtj_sellthfind.Show
Case Is = "入库退货查询"
main_cxtj_stockedfind.Show
Case Is = "药品信息管理"
main_jbxx_medicine.Show
Case Is = "客户管理"
If Jbxx.Enabled = True Then main_jbxx_client.Show
Case Is = "供应商管理"
main_jbxx_provide.Show
Case Is = "载操作员管理"
main_xtsz_czysz.Show
Case Is = "密码设置"
main_xtsz_klsz.Show
Case Is = "退出系统"
Unload Me
frmLgoin.Show
End Select
End Sub
4) 药品排行代码：
Private Sub Command1_Click()
On Error GoTo errhandler:
Set rs6 = New ADODB.Recordset
If Option1.Value = True Then
rs6.Open "select 药品名称 as '药品名称',sum(数量) as '药品数量' from tb_sell_detailed group by all 药品名称 order by sum(数量) desc ", conn, adOpenStatic, adLockOptimistic
ElseIf Option2.Value = True Then
rs6.Open "select 药品名称 as '药品名称',sum(数量) as '药品数量' from tb_sell_detailed where datediff(day,销售日期,'" & Date$ & "') <=365 group by all 药品名称 order by sum(数量) desc ", conn, adOpenStatic, adLockOptimistic
ElseIf Option3.Value = True Then
rs6.Open "select top 10 药品名称 as '药品名称',sum(数量) as '药品数量' from tb_sell_detailed where datediff(day,销售日期,'" & Date$ & "') <=30 group by all 药品名称 order by sum(数量) desc ", conn, adOpenStatic, adLockOptimistic
ElseIf Option4.Value = True Then
rs6.Open "select top 10 药品名称 as '药品名称',sum(数量) as '药品数量' from tb_sell_detailed where datediff(day,销售日期,'" & Date$ & "') <=7 group by all 药品名称 order by sum(数量) desc ", conn, adOpenStatic, adLockOptimistic
ElseIf Option5.Value = True Then
rs6.Open "select 药品名称 as '药品名称',sum(数量) as '药品数量' from tb_warehouse_detailed group by all 药品名称 order by sum(数量) desc ", conn, adOpenStatic, adLockOptimistic
ElseIf Option6.Value = True Then
rs6.Open "select 药品名称 as '药品名称',sum(数量) as '药品数量' from tb_warehouse_detailed where datediff(day,进货日期,'" & Date$ & "') <=365 group by all 药品名
ElseIf Option7.Value = True Then
rs6.Open "select top 10 药品名称 as '药品名称',sum(数量) as '药品数量' from tb_warehouse_detailed where datediff(day,进货日期,'" & Date$ & "') <=30 group by all 药品名称 order by sum(数量) desc ", conn, adOpenStatic, adLockOptimistic
ElseIf Option8.Value = True Then
rs6.Open "select top 10 药品名称 as '药品名称',sum(数量) as '药品数量' from tb_warehouse_detailed where datediff(day,进货日期,'" & Date$ & "') <=7 group by all 药品名称 order by sum(数量) desc ", conn, adOpenStatic, adLockOptimistic
End If
rs6.Requery
Set MSHFlexGrid1.DataSource = rs6
Dim x(1 To 25) As Variant
For i = 1 To rs6.RecordCount
x(i) = MSHFlexGrid1.TextMatrix(i, 1)
Debug.Print MSHFlexGrid1.TextMatrix(i, 1)
Next i
MSChart1 = x
For i = 1 To rs6.RecordCount
MSChart1.Column = i
MSChart1.ColumnLabel = "第" & i & "名" & ": " & MSHFlexGrid1.TextMatrix(i, 0)
Next i
Exit Sub
errhandler:
MsgBox "error: " & err.Description & "", , "错误"
Resume Next
End Sub
上一页 [1] [2] [3] [4] [5] [6] [7] [8]