如下:确定”代码如下:
thisform.txt代码.readonly=.f.thisform.txt药名.readonly=.f.thisform.txt类型.readonly=.f.thisform.txt单价.readonly=.f.thisform.txt数量.readonly=.f.thisform.txt厂商.readonly=.f.thisform.txt库号.readonly=.f.thisform.txt管理员.readonly=.f.thisform.txt代码.setfocusm=messagebox("是否保存?",4+48,"信息窗口")ifm=6messagebox("信息已保存",48,"信息窗口")elsedeletepackendifappendblankthisform.txt代码.setfocusthisform.refresh
3.1.3.5修改
“修改”代码如下:修改”代码如下:
usexxxxthisform.txt代码.readonly=.f.thisform.txt药名.readonly=.f.thisform.txt类型.readonly=.f.thisform.txt单价.readonly=.f.thisform.txt数量.readonly=.f.thisform.txt厂商.readonly=.f.thisform.txt库号.readonly=.f.thisform.txt管理员.readonly=.f.thisform.txt代码.setfocus
“保存”代码如下:保存”代码如下:
m=messagebox("是否保存?",4+48,"信息窗口")ifm=6messagebox("信息已保存",48,"信息窗口")thisform.txt代码.readonly=.f.thisform.txt药名.readonly=.f.thisform.txt类型.readonly=.f.thisform.txt单价.readonly=.f.thisform.txt数量.readonly=.f.thisform.txt厂商.readonly=.f.thisform.txt库号.readonly=.f.thisform.txt管理员.readonly=.f.thisform.txt代码.setfocuselsethisform.refreshendif
3.1.3.6删除
“删除”代码如下:删除”代码如下:
m=messagebox("是否删除?",4+32,"信息窗口")ifm=6messagebox("纪录已删除",48,"信息窗口")deletepackelsethisform.refreshendif
3.1.3.7统计
“统计”代码如下:统计”代码如下:
docasecasethisform.optiongroup1.value=1select代码,count(*)as人数fromjbxxgroupby代码intocursoraa
thisform.grid1.recordsource="aa"thisform.refreshcasethisform.optiongroup1.value=2select类型,count(*)as人数bbthisform.grid1.recordsource="bb"thisform.refreshcasethisform.optiongroup1.value=3select库号,count(*)as人数fromjbxxgroupby库号intocursorfromjbxxgroupby类型intocursor
ccthisform.grid1.recordsource="cc"thisform.refreshcasethisform.optiongroup1.value=4select管理员,count(*)as人数fromjbxxgroupby管理员intocursorddthisform.grid1.recordsource="dd"thisform.refreshendcase
“退出”代码如下:退出”代码如下:
doform查询界面thisform.release
课程设计的心得体会第四章课程设计的心得体会
数据库技术与应用课程设计的心得体会4.1数据库技术与应用课程设计的心得体会心得与体会
经过一周的时间,系统开发完毕。通过系统的开发,我对面向对象的程序设计方法又有了更加深刻的认识,Microsoft公司出品的对VisualFoxPro6.0的功能特性有了更多的了解。在开发设计过程中,我为了使所开发软件的功能尽可能完善且更加接近于一个真正的药品管理系统,使其可以充分体现出药品管理
工作的各个方面,以达到我预期设想的系统设计目标。药品管理系统是一款比较专业的最新药品管理软件,它集药品添加管理板块,药品编辑管理板块,药品删除板块等功能为一身,系统界面简