docasecasethisform.optiongroup1.value=1select*fromjbxxwhere代码=allt(thisform.text1.value);intocursoraathisform.grid1.recordsource="aa"casethisform.optiongroup1.value=2select*fromjbxxwhere类型=allt(thisform.text1.value);intocursoraathisform.grid1.recordsource="aa"thisform.refreshendcase
3.1.3.3基本信息打印
“确定”代码如下:确定”代码如下:
docasecasethisform.optiongroup1.value=1reportformjbxxenvironmenttoprinterpromthisform.refreshcasethisform.optiongroup1.value=2reportformjbxxenvironmentpreviewthisform.refreshendcase
3.1.3.4添加
“添加”代码如下:添加”代码如下:
usexxxxappendblankthisform.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
“确定”代码如下:确定”代码如下:
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