VF课程设计Word格式文档下载.docx

VF课程设计Word格式文档下载.docx

《VF课程设计Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VF课程设计Word格式文档下载.docx（21页珍藏版）》请在冰豆网上搜索。

）

thisform.text1.value="

thisform.text2.value="

thisform.text1.setfocus（）

else

cyonghu=allt（thisform.text1.value）

cmima=allt（thisform.text2.value）

domenu.mpr

thisform.release

endif

“退出”按钮的代码：

thisform.release

cleaevent

quit

DZLR.SCX表单：

“读者编号”文本的代码：

thisform.text1.setfocus

“性别”文本的代码：

this.displayvalue="

男"

this.additem（"

女"

usereaderinfo

请输入完整的必要信息！

ifallt（thisform.text4.value）=="

thisform.text3.setfocus

ifallt（thisform.text5.value）=="

thisform.text4.setfocus

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压金withval（allt（thisform.text6.value））

repl备注withallt（thisform.edit1.value）

repl注册日期withdate（）

ifallt（bo1.value）=="

repl性别withallt（bo1.displayvalue）

repl性别withallt（bo1.value）

mand2.click

use

“重填”按钮的代码：

thisform.text1.value="

thisform.text2.value="

thisform.text3.value="

thisform.text4.value="

thisform.text5.value="

bo1.value="

bo1.displayvalue="

thisform.edit1.value="

“返回”按钮的代码：

DZXG.SCX表单：

“快速定位”按钮的代码：

selereaderinfo

ifallt（thisform.text6.value）=="

请输入姓名或编号！

thisform.text6.setfocus

locateforallt（姓名）=allt（thisform.text6.value）;

.or.allt（读者编号）=allt（thisform.text6.value）

没有此记录，请重新输入！

gonhere

thisform.init

nhere=recno（）

“第一条”按钮的代码：

gotop

nhere=recno（）

mand4.enabled=.t.

mand6.enabled=.t.

thisform.init

“最后一条”按钮的代码：

gobottom

mand3.enabled=.t.

mand5.enabled=.t.

“上一条”按钮的代码：

skip-1

ifbof（）

gotop

this.enabled=.f.

mand3.enabled=.f.

已经到第一条记录了！

“下一条”按钮的代码：

skip1

ifeof（）

gobottom

mand4.enabled=.f.

已经到最后一条记录了！

“修改”按钮的代码：

thisform.text1.readonly=.f.

thisform.text2.readonly=.f.

thisform.text3.readonly=.f.

thisform.text4.readonly=.f.

thisform.text5.readonly=.f.

bo1.readonly=.f.

thisform.edit1.readonly=.f.

“删除”按钮的代码：

usereaderinfoexclusive

gonhere

mb=messagebox（"

确定要删除吗？

1+64,"

ifmb==1

delete

pack

countalltonum

ifnhere>

num

JHCX.SCX表单：

“查询”按钮的代码：

请输入读者编号！

selereaderinfo

locatefor读者编号=allt（thisform.text1.value）

编号错误，请重新输入！

thisform.label9.caption=allt（thisform.text1.value）

thisform.label11.caption=allt（姓名）

sele书号,借阅日期,归还日期fromlendinfointocursorlendls;

whereallt（读者编号）=allt（thisform.text1.value）;

.and.（allt（借阅情况）="

借阅"

.or.allt（借阅情况）="

已还"

thisform.grid1.init

日期标识label12的代码：

this.caption="

今天是：

+allt（str（year（date（））））+"

年"

;

+allt（str（month（date（））））+"

月"

+allt（str（day（date（））））+"

日"

表格Grid1按钮的代码：

this.columncount=4

this.column1.header1.caption="

书号"

this.column2.header1.caption="

借阅日期"

this.column3.header1.caption="

归还日期"

this.column4.header1.caption="

是否延期"

if!

allt（thisform.text1.value）=="

this.recordsource="

lendls"

this.recordsourcetype=1

this.column1.controlsource="

this.column2.controlsource="

this.column3.controlsource="

*thisform.text1.value=day（归还日期）

*dd=day（date（））-day（借阅日期）

*daycount=dd

*mm=month（date（））-month（借阅日期）

*mon=month（借阅日期）

*forn=0tomm

*docase

*casemon=1,3,5,7,8,10,12

*daycount=daycount+31

*casemon=4,6,9,11

*daycount=daycount+30

*casemon=2

*daycount=daycount+28

*endcase

*endfor

“归还”按钮的代码：

selelendinfo

ifallt（thisform.text5.value）=="

请选择要归还的图书！

locateforallt（读者编号）=allt（thisform.text1.value）;

.and.allt（书号）=allt（thisform.text5.value）;

.and.allt（借阅情况）="

if!

eof（）

repl归还日期withdate（）

repl借阅情况with"

whereallt（读者编号）=allt（thisform.label9.caption）;

.and.allt（借阅情况）="

TSCX.SCX表单：

查询选择框Optiongroup1的代码：

ifthis.option1.value==1

thisform.label2.caption="

请输入要查询的书名：

ifthis.option2.value==1

请输入要查询的作者：

ifthis.option3.value==1

请输入要查询的出版社：

借书选择框Optiongroup2的代码：

LPARAMETERScName,cClass

表格grid1的代码：

LPARAMETERSnColIndex

shuhao=allt（thisform.grid1.column1.text1.value）

thisform.text2.value=shuhao

locateforallt（书号）=shuhao.and.allt（借阅情况）=="

预约"

thisform.check1.value=1

thisform.optiongroup2.option2.value=1

thisform.optiongroup2.option1.value=0

thisform.check1.value=0

thisform.optiongroup2.option1.value=1

thisform.optiongroup2.option2.value=0

selebooksinfo

请输入要查询的内容！

ifthisform.optiongroup1.option1.value==1

sele书号,书名,作者,出版社frombooksinfointocursorbooksls;

whereallt（书名）=allt（thisform.text1.value）

ifthisform.optiongroup1.option2.value==1

whereallt（作者）=allt（thisform.text1.value）

ifthisform.optiongroup1.option3.value==1

whereallt（出版社）=allt（thisform.text1.value）

selebooksinfo

selebooksls

ifallt（thisform.text3.value）=="

请输入你的编号！

locateforallt（读者编号）=allt（thisform.text3.value）

您还没有注册，请先注册..."

48,"

警告"

thisform.text3.value="

selelendinfo

ifthisform.optiongroup2.option2.value==1

countforallt（读者编号）=allt（thisform.text3.value）;

tocn

ifcn<

3

locateforallt（读者编号）=allt（thisform.text3.value）;

.and.allt（书号）=allt（thisform.text2.value）;

repl书号withallt（thisform.text2.value）

repl读者编号withallt（thisform.text3.value）

repl预约日期withdate（）

您已经预约此本书！

最多只能预约3本图书，您已经预约3本了！

ifthisform.optiongroup2.option1.value==1

ifthisform.check1.value==0

repl借阅日期withdate（）

您没有预约此本图书！

最多只能借3本图书，您已经借了3本图书！

endif

“取消”按钮的代码：

请输入您的编号！

您没有预约此本书！

thisform.ch