码表示自动识别数据库路径。
PrivateSubCommand1_Click()
Data1.RecordSource="select*fromkcwherekc.库存>0"
Data1.Refresh
MS1.Col=9:MS1.Sort=flexSortNumericAscending
以上代码表示查询库存中药品数量大于零的药品并显示,按照'第9行按升序排序
4.2.3价格管理主要操作界面
图4-4价格管理
说明:价格管理实现的是药品价格调整的过程,在市场中药品价格会有起伏,价格管理功能方便了用户调整价格。避免了手动在入库单中改动。
其主要代码如下:
PrivateSubForm_Load()
Data1.DatabaseName=App.Path&"\yyjxc.mdb"
Data2.DatabaseName=App.Path&"\yyjxc.mdb"
以上代码表示数据控件自动识别数据库路径。
PrivateSubForm_Activate()
Combo1.AddItem("商品名称")
Combo1.AddItem("简称")
Combo1.AddItem("批号")
Combo1.ListIndex=0
以上代码表示向combo1添加查询项目列表。
Data2.RecordSource="selectcount(*)as品种,sum(库存)as合计库存,sum(库存金额)as合计库存金额fromkc"
Data2.Refresh
以上代码表示初始化查询统计库存商品信息。
4.2.4库存报警操作界面
图4-5库存报警
说明:在药品存储过程中常常由于某些原因而使某些药品储量较低,有可能造成药品短缺,报警功能的设计能及时的提醒用户。
其主要代码如下:
GoToerrEnd
dbName=App.Path
IfRight(dbName,1)<>"\"ThendbName=dbName+"\"
dbName=dbName+"yyjxc.mdb"
connSTR="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&dbName&";PersistSecurityInfo=False"
Adodc1.ConnectionString=connSTR
Adodc1.CommandType=adCmdText
Adodc1.RecordSource="select*from[kc]where[库存]<30"
Adodc1.Refresh
SetDataGrid1.DataSource=Adodc1
DataGrid1.Refresh
ExitSub
errEnd:
MsgBoxErr.Description,vbOKOnly+vbExclamation,"打开数据库出错"
以上代码主要利用查询语句实现了库存中药品数量小于30的药品。
4.3查询统计模块
查询模块实现了药品入库与销售的即时查询。其中包括四个小的分支:入库单查询操作界面,入库退货查询操作界面,销售查询操作界面,销售退货查询操作界面。四个分支所设计的操作界面相似。
4.3.1入库查询操作界面
图4-6日期选择
说明:使用查询功能模块首先选择查询时间,然后进入以下查询主界面。
图4-7入库查询
主要代码如下:
PrivateSubForm_Activate()
Combo1.AddItem("商品名称")
Combo1.AddItem("批号")
Combo1.AddItem("票号")
Combo1.ListIndex=1
以上代码表示向combo1添加查询项目列表,combo1中默认查询项目是批号。
Data1.RecordSource="select*fromrkdwhere((rkd.日期between"+Chr(35)+rq1.Text+Chr(35)+"and"+Chr(35)+rq2.Text+Chr(35)+"))"
Data1.Refresh
PrivateSubForm_Load()'自动识别数据库路径
Data1.DatabaseName=App.Path&"\yyjxc.mdb"
PrivateSubForm_Unload(CancelAsInteger)
frm_main.Enabled=True
PrivateSubCommand1_Click()'入库查询
Data1.RecordSource="select*fromrkdwhere((rkd.日期between"+Chr(35)+rq1.Text+Chr(35)+"and"+Chr(35)+rq2.Text+Chr(35)+")and(rkd."&Combo1.Text&""&"like"+Chr(34)+Text1.Text+"*"+Chr(34)+"))"
Data1.Refresh
以上代码表示当进入查询窗体时通过第一个询语句将所有的在此时间段里的所有入库药品显示在窗体中,当在文本框中输入要查询的药品时,利用第二个查询语句实现查询。
ResumeNext
Data1.Recordset.Delete
Data1.Refresh
EndSub
PrivateSubCommand3_Click()
frm_main.Enabled=True
UnloadMe
以上代码表示删除药品信息。
由于入库退单查询、销售单查询、销售退单查询与入库单查询执行窗体相同,代码相似,不再重复阐述。
第五章系统测试与维护
管理信息系统在完成系统实施、投入正常运行之后,就进入了系统测试与维护阶段[6]。系统测试与维护的目的是保证管理信息系统正常而可靠地运行,并能使系统不断得到改善和提高,以充分发挥作用。因此,系统维护就是为了保证系统中的各个要素随着环境的变化始终处于最新的、正确的工作状态。
5.1系统测试
该系统经过了单元测试、集成测试、系统测试、验收测试。其中,在验收测试中出现了一些主要问题。
1.用DBGrid控件报错"该部件的许可信息没有找到。在设计环境中,没有合适的许可证使用该功能"。
此问题曾经困扰了系统的开发,经过一系列的分析,终于找出原因。解决办法是在VBCD1中找到目录\COMMON\TOOLS\VB\CONTROLS下的DBGRID.REG文件,运行即可。其他部件类似,把此目录中的三个注册表全部导入即可。其中DBGrid部件的添加方法是在部件中把MiscrosoftDataBoundGridControl选项勾上即可,若没有此选项,可以浏览\WINDOWS\SYSTEM32\DBGRID32.OCX;把它添加上,若没有DBGRID32.OCX那就只能下载或者从别人那里拷一个放到系统目录下了。
2.数据库连接问题
当用VB中的控件与ACCESS进行连接时,有时会出现"数据库无法识别"的问题,这时检查不出那里出错,只有重建数据库。
5.2系统维护
系统维护是面向系统中各种构成因素的,按照维护对象的不同,系统维护的内容可分为以下几类:
1.系统应用程序维护:系统的业务处理过程是通过应用程序的运行而实现的,一旦程序发生问题或业务发生变化,就必然地引起程序的修改和调整,因此系统维护的主要活动是对程序进行维护。
2.数据维护:业务处理对数据的需求是不断发生变化的,除了系统中主体业务数据的定期正常更新外,还有许多数据需要进行不定期的更新,或随环境或业务的变化而进行调整,以及数据内容的增加、数据结构的调整。此外,数据的备份与恢复等,都是数据维护的工作内容。
3.代码维护:随着系统应用范围的扩大、应用环境的变化,系统中的各种代码都需要进行一定程度的增加、修改、删除,以及设置新的代码。
4.硬件设备维护:主要是指对主机及外设的日常维护和管理,如机器部件的清洗、润滑,设备故障的检修,易损部件的更换等,都应由专人负责,定期进行,以保证系统正常有效地运行。
结论
本文是结合运用软件开发工具visualbasic6.0开发的一款药品供销存系统----销售系统的实例,详细论述了面向对象方法及其在信息系统开发中的应用和一个系统开发的过程和步骤。
在本设计中我主要完成了以下工作。
1.学习相关软件知识,熟悉面向对象开发环境。
2.调查药品供销存的业务流程,分析现行系统,制定本系统的管理职能流程图。
3.根据所要设计的模块规划出设计方案,划分用例,完成需求分析。
4.设计窗体编写相应代码,完成系统功能设计。
5.将小组其他成员的模块组合,完成整个系统的整和,实现整个系统的功能。
6.测试系统的可执行性与稳定性,修改完善系统。
7.完成毕业设计论文。
通过药品供销存管理系统的开发和毕业论文的写作,把以前所学的各种独立的课程融合起来,使我的理论知识和实际操作能力都有了一定程度的提高。加深了我对管理信息系统的了解、认识,巩固了以前学习的软件开发知识,尤其是对面向对象方法和快速原型法的认识,提高了开发水平,积累了经验,为今后学习、使用计算机打下了坚实基础。
另外我发现自己在软件开发的规范化和编程技巧方面还有很大的不足,特别是面向对象方法的运用还不够熟练,仍需花大力气去学习和研究。由于本人水平有限,文章中出现差错在所难免,恳请各位老师予以指正
参考文献
[1]周佩德.数据库原理及应用.北京:电子工业出版社,1999.27-478
[2]李光明.VisualBasic6.0编程实例大制作.华东:冶金工业出版社,2001.45-421
[3]黄淼云.VB6.0办公自动化编程.北京:国防工业出版社,2000.67-231
[4]李大友.VisualBasic程序设计.北京:清华大学出版社,1999.67-231
[5]EricBrierley.VisualBasic开发人员指南.北京:机械工业出版社,2001.56-247
[6]陈明.VisualBasic程序设计.北京:中央电大出版,2002.43-278
[7]刘韬,骆娟.VisualBasic6.0实效编程百例.北京:人民邮电出版社,2002.67-302
[8]徐孝凯.数据结构(c++描述).北京:中央电大出版,2003.78-231
[9]萨师煊,王珊.数据库系统概论(第二版).广州:高等教育出版社,2002.65-231
[10]王兴晶.VisualBasic数据库开发典型实例.西安:电子工业出版社,2001.1-234
[11]SorenLauesen.SoftwareRequirementsStylesandTechniques[M].BeiJing:PublishingHouseofElectronicsIndustry,2002.10,25-90.
[12]LauraC.EncyclopediaOfDatabaseTechnologiesAndApplications(Hardcover).Beijing:IdeaGroupPublishing,2002.56-265
致谢
在本文将要结尾的时候,向我最敬爱的指导教师孙坤老师李全用老师致以最真诚最深切的谢意。老师们严谨的治学态度、活跃的学术思想、在科学研究上的献身和进取精神时刻鼓励着我,并对我的研究、学习和生活产生极大影响。
此外感谢在我大学学习生活中帮助过我的师长与同学,这一段美好的学习生活将会令我终生难忘。感谢机房的各位老师,他们为我提供了良好的学习氛围。同组的成员们对我的毕业设计的顺利完成提供了非常多的帮助,我在此表示感谢。
此刻谨向尊敬的导师致以最诚挚的敬意和最衷心的感谢。
XXXVIIXXXVII??
??
??
??
中文摘要
-I-
Abstract
目录
第一章系统概述
-1-
第二章系统分析
第三章数据库设计与实现
第四章系统各模块的编码与实现
第五章系统测试与维护
结论
参考文献
致谢
上一篇:
vb药品库房管理系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt(论文和程序)
下一篇:
应用数学学报编辑部联系方式