:黎能武、李珍香、朱林立、魏雄
出版社:中国水利水电出版社
[5]用Access2000和VisualFoxpro6.0管理公司和个人数据
作者:肖勇波、梁冰
出版社:清华大学出版社
附录
在表单tslr属性中autocenter为.t.,borderstyle为2,titlebar为0,backcolor为16.176.133
添加booksinto表,lable1-lable8,其中caption属性为图。
添加shape1和shape2,其height属性值为2,specialeffect属性为0.
确定按钮command1,其clickevent功能实现的代码为
usebooksinfo
ifallt(thisform.text1.value)==""
messagebox("请输入完整的必要信息!",64,"提示")
thisform.text1.setfocus
else
ifallt(thisform.text2.value)==""
messagebox("请输入完整的必要信息!",64,"提示")
thisform.text2.setfocus
else
ifallt(thisform.text3.value)==""
messagebox("请输入完整的必要信息!",64,"提示")
thisform.text3.setfocus
else
ifallt(thisform.text4.value)==""
messagebox("请输入完整的必要信息!",64,"提示")
thisform.text4.setfocus
else
ifallt(thisform.text5.value)==""
messagebox("请输入完整的必要信息!",64,"提示")
thisform.text5.setfocus
else
ifallt(thisform.text6.value)==""
messagebox("请输入完整的必要信息!",64,"提示")
thisform.text6.setfocus
else
ifallt(thisform.text7.value)==""
messagebox("请输入完整的必要信息!",64,"提示")
thisform.text7.setfocus
else
appendblank
repl编号withallt(thisform.text1.value)
repl编号withallt(thisform.text2.value)
repl编名withallt(thisform.text3.value)
repl作者withallt(thisform.text4.value)
repl出版社withallt(thisform.text5.value)
repl定价withallt(thisform.text6.value)
repl册数withallt(thisform.text7.value)
repl备注withallt(thisform.edit1.value)
repl入库日期withdate()
thisform.command2.click
endif
endif
endif
endif
endif
endif
endif
use
重写按钮command2,其clickevent功能实现的代码如下;
thisform.text1.value=""
thisform.text2.value=""
thisform.text3.value=""
thisform.text4.value=""
thisform.text5.value=""
thisform.text6.value=""
thisform.text7.value=""
thisform.edit1.value=""
thisform.text1.setfocus
退出按钮command3,其clickevent功能实现的代码如下;
thisform.release
修改模块
表单tsxg属性autocenter为.t.,borderstyle为2,titlebar为0,backcolor为16.176.133.
label1-label10,其caption属性值如图,backstyle为0,label1用于统计图编记录的总数,label8用于显示当前是第几条记录.label1的initevent实现代码为;
countalltonum
thisform.label11.caption=allt(str(num))
gotop
文本框text1-text7和编辑框edit1,其中text1-text6和edit1用于显示图编信息text7用于输入要查询的图编名乏,属性maxlength为20
初始化文本框text1-text6和编辑框edit1,表单form1的initevent实现代码为
publicnhere,num
thisform.text1.readonly=.t.
thisform.text2.readonly=.t.
thisform.text3.readonly=.t.
thisform.text4.readonly=.t.
thisform.text5.readonly=.t.
thisform.text6.readonly=.t.
thisform.edit1.readonly=.t.
thisform.text1.value=allt(编号)
thisform.text2.value=allt(编名)
thisform.text3.value=allt(编号)
thisform.text4.value=allt(作者)
thisform.text5.value=allt(出版社)
thisform.text6.value=allt(定价)
thisform.edit1.value=allt(备注)
thisform.label8.caption=allt(str(recno()))
修改按钮command1其功能是text1-text6和edit1处于编辑状态,它的clickevent功能实现代码;
thisform.text1.readonly=.f.
thisform.text2.readonly=.f.
thisform.text3.readonly=.f.
thisform.text4.readonly=.f.
thisform.text5.readonly=.f.
thisform.text6.readonly=.f.
thisform.edit1.readonly=.f.
删除按钮command2,功能是删除当前记录,其clickevent功能实现代码为;
usebooksinfoexclusive
gonhere
mb=messagebox("确定要删除吗?",1+64,"提示")
ifmb==1
delete
pack
thisform.label11.init
ifnhere>num
gobottom
thisform.init
else
gonhere
thisform.init
endif
endif
第一条按钮command3,其clickevent功能实现代码;
gotop
nhere=recno()
thisform.label8.caption=allt(str(recno()))
thisform.command4.enabled=.t.
thisform.command6.enabled=.t.
thisform.init
最后一条按钮command4,其clickevent功能实现代码;
gobottom
nhere=recno()
thisform.label8.caption=allt(str(recno()))
thisform.command3.enabled=.t.
thisform.command5.enabled=.t.
thisform.init
上一条按钮command5,其clickevent功能实现代码;
skip-1
ifbof()
this.enabled=.f.
thisform.command3.enabled=.f.
messagebox("已经到第一条记录了!",48,"提示")
gotop
nhere=recno()
else
thisform.init
nhere=recno()
endif
thisform.command4.enabled=.t.
thisform.command6.enabled=.t.
下一条按钮command6,其clickevent功能实现代码;
skip1
ifeof()
this.enabled=.f.
thisform.command4.enabled=.f.
messagebox("已经到最后一条记录了!",48,"提示")
gobottom
nhere=recno()
else
nhere=recno()
thisform.init
endif
thisform.command3.enabled=.t.
thisform.command5.enabled=.t
??
??
??
??
1
上一篇:
VFP空调售后服务系统(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施