第一条记录代码
thisform.grd病人就诊情况表.setfocus
go top
messagebox('记录已经在第一条',   0   ,'记录信息')
thisform.refresh

前一条记录代码：
thisform.grd病人就诊情况表.setfocus
if recno()<>1
skip -1
thisform.refresh
else
messagebox('记录已经在第一条了',    0    ,'记录信息')
endif

最后一条记录代码：
thisform.grd病人就诊情况表.setfocus
go bottom
thisform.refresh
messagebox('记录在未尾了',  0  ,  '记录信息')


if '添加'
thisform.grd病人就诊情况表.readonly=.f.
'保存'




appe blan
else
'添加'
thisform.grd病人就诊情况表.readonly=.t.




endif
thisform.grd病人就诊情况表.setfocus
thisform.grd病人就诊情况表.refresh
编辑铵钮代码：
if '编辑'
thisform.grd病人就诊情况表.readonly=.f.
'保存'


else
'编辑'
thisform.grd病人就诊情况表.readonly=.t.


endif
thisform.grd病人就诊情况表.setfocus
thisform.grd病人就诊情况表.refresh
删除铵钮代码：
sele 病人就诊情况表
thisform.grd病人就诊情况表.setfocus
if messagebox("是否删除当前记录! " ,32+4+256,"删除记录")=6
this.tag=thisform.grd病人就诊情况表.recordsource
delete next 1
pack
thisform.grd病人就诊情况表.recordsource=this.tag
thisform.refresh
endif
打印铵钮代码：
IF sys(102)!="OFF"
ELSE
    =messagebox("打印机没有准备好！",0+48,"警告")
ENDIF
查询铵钮代码：
do form 医院病历管理系统\病人就诊情况查询表单.scx
thisform.refresh