()
Text5.SelStart=0
Text5.SelLength=Len(Text5.Text)
EndSub
PrivateSubText6_GotFocus()
Text6.SelStart=0
Text6.SelLength=Len(Text6.Text)
EndSub
PrivateSubText7_GotFocus()
Text7.SelStart=0
Text7.SelLength=Len(Text7.Text)
EndSub
PrivateSubText17_GotFocus()
Text17.SelStart=0
Text17.SelLength=Len(Text17.Text)
EndSub
PrivateSubText1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
EndSub
PrivateSubText18_GotFocus()
Text18.SelStart=0
Text18.SelLength=Len(Text18.Text)
EndSub
PrivateSubText6_Change()
GoToerr0
WithAdodc3
.RecordSource="select名称,代码fromothercodewhere代码='"&Text6.Text&"'"
.Refresh
If.Recordset.AbsolutePosition<>adPosUnknownThen
Text6.Text=.Recordset.Fields("名称")
EndIf
EndWith
ExitSub
err0:
MsgBox"数据库连接失败!"
EndSub
PrivateSubText18_Change()
GoToerr5
WithAdodc2
.RecordSource="select*from"&frmmain.kcode&"where代码='"&Text18.Text&"'"
.Refresh
If.Recordset.AbsolutePosition<>adPosUnknownThen
Text1.Text=.Recordset.Fields(1)
Text1.Locked=True
Else
Command1.Enabled=False
EndIf
EndWith
ExitSub
err5:
MsgBox"数据库连接失败!"
EndSub
6:主界面设计:
代码设计:
PrivateSubmenu22_Click()
frmsercho.Show
EndSub
PrivateSubmenu31_Click()
Iffrmlogin.userright="0"Then
frmclear.Show
Else
MsgBox"只能超级用户才能执行此操作!"
EndIf
EndSub
PrivateSubmenu33_Click()
Iffrmlogin.userright="0"Then
frmchange.Show
Else
MsgBox"只能超级用户才能执行此操作!"
EndIf
EndSub
PrivateSubmenu34_Click()
chpwd.Show
EndSub
PrivateSubmenu41_Click()
Me.ArrangevbCascade
EndSub
PrivateSubmenu43_Click()
Me.ArrangevbTileVertical
EndSub
PrivateSubmenu44_Click()
Me.ArrangevbArrangeIcons
EndSub
PrivateSubmenu51_Click()
DimhelpAsLong
help=StartDoc(App.Path&"\help.chm")
EndSub
PrivateSubmenu52_Click()
frmAbout.Show
EndSub
结束语
本软件的设计目的是为医院药方管理人员提高效率提供方便和帮助。通过这几个月的毕业设计,我学到很多以前没有学到的visualbasic开发技术,在软件工程学上更是取得了很大的进步。经过大量的测试和试用,作者深信本软件达到了方便和实用的设计目的,并在软件界面和易用实用等方面有着独到之处。
虽然软件基本达到设计要求并且达到同行的先进水平,但由于作者水平有限,软件存在bug也是在所难免的,您的意见和建议将极大的帮助我改进并完善软件。真诚的希望你的参与。
致谢
我首先感谢我的指导老师吕老师,在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做,这样会有好的创意,才能更有作为。
在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年,在生活和学习上给了我很大的帮助。
参考文献
1陈明.软件工程学教程.科技出版社,2002
2萨师煊,王珊.数据库系统概论.第三版.高等教育出版社,2000
3飞思科技产品研发中心.visualbasic6.0数据库应用开发.电子工业出版社,2003
4飞思科技产品研发中心.visualbasic6.0开发者手册.电子工业出版社,2002
5申旻.visualbasic6.0高手突破.清华大学出版社,2002,302
6SteveTeixeira,XaviverPacheco著,龙劲松,王瑜,谢尚书译.visualbasic6.0开发人员指南.机械工业出版社.2003
7乔林.参透Delphi/Kylix.中国铁道出版社.2003
8李维.Inside深入核心VCL架构剖析.电子工业出版社.2004
9张立科编写组.WindowsAPI函数参考手册.人民邮电出版社.2002
严蔚敏,吴伟民.数据结构.第二版.清华大学出版社.2001
10王珍玲。实用软件工程教程高等教育出版社2004
11(英)IanSommerville机械工业出版社2003
12美Cantu,U.王辉等译visualbasic6.0从入门到精通电子工业出版社2003
13李维面向对象开发实践之路(visualbasic6.0版)(BORLAND资深顾问著名visualbasic6.0专家李维最新力作)电子工业出版社2005.4
14秦斌等visualbasic6.0数据库系统开发与应用中国水利水电出版社2006.1
15刘艺visualbasic6.0面向对象编程思想机械工业出版社2003
16.visualbasic程序设计第二版谭浩强清华大学出版社2003
17.visualbasic6.0程序设计教程.胡同森赵剑锋等.浙江科学技术出版社,2002.1
18.软件工程学教程(第二版)周苏王文著科学出版社2003
19.VisualBasic6.0程序设计与开发技术求是科技人民邮电出版社2004.9
上一篇:
VB药品公司进销售存管理系统VC(论文和程序)
下一篇:
陕西师范大学远程教育学院毕业论文