药物
管理系统 第一章
课程设计的题目
1.1数据库技术与应用课程设计的题目
本次为期一周的课程设计的题目为设计一个药物管理系统。
第二章课程设计的要求及目的
2.1数据库技术与应用课程设计的要求及目的2.1.1课程设计的要求
1.符合课题要求,实现相应功能。可以加以其他功能或修饰,使
程序更加完善、合理;2.要求界面友好美观,操作方便易行;3.注意程序的实用性、安全性;4.随时记录设计情况(备查,也为编写设计说明书作好准备);
2.1.2课程设计的目的
本课程设计其目的在于加深对《数据库技术与应用》的原理和程序的理解、巩固、提高,让学生做到学以致用,把所学的理论知识应用于实际
问题的解决、编制出完整的应用程序,为以后的实际编制大型的应用
软件打下基础。
课程设计的说明介绍第三章课程设计的说明介绍
3.1数据库技术与应用课程设计的说明介绍
先建立一览、基本信息、详细信息、管理员四个表,在数据库中建立关联,以便后面建立表单使用。
3.1.1进入界面
“进入”代码如下:进入”代码如下:
doform
登陆界面thisform.release
“退出”代码如下:退出”代码如下:
quit
3.1.2登录界面
“进入”代码如下:进入”代码如下:
*设置密码不能为空,如允许为空则不需此步骤IfLen(Alltrim(Thisform.text2.Value))=0Messagebox('请输入密码!')ReturnEndifUsegly.dbfLocateForAlltrim(用户名)==Alltrim(Thisform.text1.Value)*如果没有找到相同记录时执行下面代码IfEof()UseMessagebox('没有此用户!')Thisform.text1.Value=''Thisform.text2.Value=''
Thisform.text1.SetFocusi=i+1ifi<=3messagebox("密码或用户名错,请重新输入!")thisform.text2.value=""thisform.text2.setfocuselseMessagebox('连续三次输入错误,系统将退出!')UseQuitEndifReturnENDIF*找到后执行的动做IfAlltrim(Thisform.text2.Value)==Alltrim(密码)doform
查询界面thisform.release*在这里添加在正确登录后你要继续执行的程度ElseUseMessagebox('密码错误!')Thisform.text2.Value=''
Thisform.text2.SetFocusi=i+1ifi<=3messagebox("密码错,请重新输入!")thisform.text2.value=""thisform.text2.setfocuselseMessagebox('连续三次输入错误,系统将退出!')UseQuitEndifReturnENDIF
“取消”代码如下:取消”代码如下:
thisform.text1.value=""thisform.text2.value=""thisform.refresh
“退出”代码如下:退出”代码如下:
doform进入界面thisform.release
3.1.3查询界面
3.1.3.1浏览
3.1.3.2基本查询
“
搜索”代码如下:搜索”代码如下: