原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
数据库应用模仿试卷答案
没有特别阐明，涉及数据库是：TSGL_DBC（图书管理_数据库），其涉及有如下三个表，表构造分别是：
（1）reader.dbf（表文献名含义：读者表）
数据构造：学号 (C,9)、姓名(C,8)、性别(C,2)，出生日期 D(8)
（2）book.dbf（表文献名含义：图书表）
数据构造：书号(C,5)、书名(C,30)、作者(C,8)、出版日期(D)、价格(N,6,2)、复本数(N,1)、新书否(L)
（3）borr_retu.dbf（表文献名含义：借还书表）
数据构造：学号(C,9)、书号(C,5)、借书日期(D)
表中均已录入多条数据。book.dbf（图书表）中：“书号”共5位，用最高三位表达图书类别，如用“com”表达计算机类、用“for”表达外语类、用“law”表达法律类、用“lit”表达文学类等，同一类书高三位相似；用低二位表达同类图书序号。如：计算机类第一种图书编号为“com01”。
答案：
1 （1）quit（2）项目管理器（3）主文献（4）clear event（5）？
? （6）子表中相应核心字做相应修改（7）普通索引（8）select 2
?? （9）go 6 （10）skip 5 （11）go top （12）4 （13）235 （14）16
?? （15）人（16）4 （17）exit （18）fontsize（19）thisform.label1.forecolor=rgb(255,0,0)
（20）backstyle（21）parent（22）setfocus（23）windowstate（24）controlcount
（25）buttoncount （26）thisform.timer1.enabled=.f.（27）default（28）picture
（29）recordsource （30）report form bb1 preview
2 选取题
（1）
（2）
（3）
（4）
（5）
（6）
（7）
（8）
（9）
（10）
C
D
A
A
C
B
B
A
A
B
（11）
（12）
（13）
（14）
（15）
（16）
（17）
（18）
（19）
（20）
A
B
C
A
C
C
B
D
B
D
3 写SQL
（1）insert into borr_retu (学号,书号,借书日期) values(“11085”,”com02”,{^/04/24})
（2）select count(*),sum(价格*复本数) as 金额 from book where 新书否=.t.
（3）update book set 新书否=.f. where 出版日期{^/12/31}
（4）Select * from book? where 作者= ”张三*” and year(出版日期)=
（5）select reader.学号，reader.姓名，book.书号，book.书名，borr_retu.借书日期 where reader.学号= borr_retu. 学号 and borr_retu. 书号= book.书号
4
myexcel=createobject(“excel.application”)
myexcel.visible=.t.
myexcel.workbooks.add
myexcel.worksheets(“sheet1”).activate
use reader
do while not eof()
myexcel.cells(i,1)= 学号
myexcel.cells(i,2)= 姓名
myexcel.cells(i,3)= 性别
myexcel.cells(i,4)=出生年月
skip
I=I+1
Enddo
use
5 （1）在表单Init事件中写入代码
bo1.rowsourcetype=3
bo1.rowsource=select distinct substr(book.书号,1,3)from book into cursor tmp1
（2）在command1.click中写入代码
tmpyear=val(alltrim(thisform.text1.text))
tmpmonth=val(alltrim(thisform.text2.text))
tmptslb=alltrim(bo1.value)
if tmpyear=0 then
?? messagebox(请输入要记录日期:年（如:）,提示)
??? thisform.text1.setfocus
??? return
?endif
?if tmpmonth=0 then
?? messagebox(请输入要记录日期:月（如:04）,提示)
??? thisform.t
文档评论（0）