［作品演示］图书管理系统的制作--原创：喜爱易表
建立图书信息库
第一步：鼠标右键点击窗口底端的“表1”，选择“重命名”，修改为“图书登记”。
第二步：执行“表→设计表”，选中“第一列”，在列名称中输入“行号”，并在“列类型”中选择好其数据所属类型“字符型”。
第三步：依次选中“第二列”到“第八列”，输入“流水号”、“书名”、“正题名”、“副题名”、“丛书名”、“作者”、“翻译”、“摘要”，除“摘要”为“备注型”外，其他均为“字符型”，用鼠标选中到“正题名”，单击设计表框中的“→”按钮，使“正题名”成为书名的第二级列标题。“副题名”、“丛书名”也同样操作。
第四步：单击“添加列”按钮。在列名称中录入“出版社”，选择列类型为“字符型”。
第五步：重复第四步操作，分别添加“版本次”，列类型为“字符型”；“书价”，列类型为“数字型”；“购书日期”，列类型为“时间型”；“一级分类”、“一级代码”、“二级分类”、“二级代码”，列类型均为“字符型”；“级数”，列类型为“字符型”；“编号过渡”，列类型为“数值型”（“级数”和“编号过渡”是因编程需要而设置的过渡列，设好公式后，选择隐藏列，并不会显示在主表中）；“图书编号”、“图书类型”、“排架号”，列类型为“字符型”。最后按“确定”退出。
第六步：设置列表项目及公式
1、“流水号”列：执行“列→刷新公式”，在公式生成器中写入公式：Format([行号],"000000")。
2、“一级分类”列：执行“列→列表项目→动态生成→来源于某一列”，在设置框中，在“根据指定列的内容生成列表项目”前打上勾；在“来源表”中选择“中图法分类”，“来源列”中选择“一级类目”。
3、“一级代码”列：执行“列→刷新公式”，在公式生成器中写入公式：FindText("类目代码","分类号","类名","=",[一级分类])。
4、“二级分类”列：执行“列→列表项目→动态生成→来源于某一列”，在设置框中，在“根据指定列的内容生成列表项目”前打上勾；在“来源表”中选择“中图法分类”，“来源列”中选择“利用表达式返回列名称…”，然后点击…按钮，在公式生成器中写入“［一级分类］”。
5、“二级代码”列：执行“列→刷新公式”，在公式生成器中写入公式：FindText("类目代码","分类号","类名","=",[二级分类])。
6、“级数”列：执行“列→刷新公式”，在公式生成器中写入公式：selcase([二级代码] <> "","2"+[二级代码],[一级代码]<>"","1"+[一级代码])。
7、“编号过渡”列：执行“列→刷新公式”，在公式生成器中写入公式：if(row=1,1,MaxFor("图书登记","编号过渡","级数","=",[级数],0,row-1)+1)。
8、“图书编号”列：if([二级代码] <> "",[二级代码]+"/"+text(FORMAT([编号过渡],"000")),[一级代码]+"/"+text(FORMAT([编号过渡],"000")。
9、“图书类型”列：执行“列→列表项目→自定于”，写入“可借出|在馆阅读|只能复印”，单击“确定”按钮。
第七步：分别选择“级数”和“编号过渡”两列，执行“列→隐藏列”。
这样一个图书信息库就建好了，逐行录入图书信息即可。
小提示：如果行数不够，则可执行“行→添加行”，添加新行，再输入数据。同时要注意对每册图书根据系统自动生成的“流水号”标记，使得图书上的编号与系统上记录的图书流水号相对应。
建立借阅管理库
第一步：在“图书登记”表中，执行“表→复制表”，在“表名”框中写入“借阅管理”，选择“空白表”复选框，单击“确定”。
第二步：在“借阅管理”表中，执行“表→设计表”，分别选择“行号”、“一级分类”、“一级代码”、“二级分类”、“二级代码”、“级数”、“编号过渡”、“图书类型”、“排架号”，单击“删除列”按钮，删除这些列，然后使用“添加列”按钮增加行，分别录入“借阅证号”（字符型）、“姓名”（字符型）、“判断列”（逻辑型）、“借出日期”（时间型）、“还书日期”（时间型）、“验证编号”（字符型）、“提示”（字符型）、“预约人”（字符型）、“电话”（字符型）、“预约借书”（逻辑型）。单击“确定”按钮。
第三步：设置公式
1、“借阅证号”列：执行“列→刷新公式”，在公式生成器中写入公式：if([提示]="在库","",[借阅证号])。
2、“姓名”列：执行“列→刷新公式”，在公式生成器中写入公式：if([提示]="在库","",[借阅证管理!姓名])； 执行“列→操作公式”，在公式生成器中写入公式：if([借阅证号] <> "" and [姓名]="",msgbox("请核实下列信息："+char(13)+"1、借阅证已过期"+char(13)+"2、无此借阅证",1),"")
3、“判断列”列：执行“列→刷新公式”，在公式生成器中写入公式：if([借阅证号] > "" and [姓名] = "",-1,0)。
4、“验证编号”列：执行“列→刷新公式”，在公式生成器中写入公式：if(text([借出日期])="","",ukey())。
5、“提示”列：执行“列→刷新公式”，在公式生成器中写入公式：if(text([还书日期]) > "","在库",if(Days360([借出日期],Today()) >=[%图书借阅期限%],"已超过规定期限未还书","已借出"))。
6、“预约借书”列：执行“列→刷新公式”，在公式生成器中写入公式：if([预约人] <> "",-1,0)。
设置验证公式
选择“图书登记”表，执行“表→公式设置→验证公式”，写入公式：if([流水号]>"" and findtext("借阅管理","流水号","流水号","=",[流水号])="" and [图书类型]="可借出",addrow("借阅管理&qu
加好友 
发短信
Post By：2006/8/13 16:17:00 [只看该作者]
Post By：2006/8/18 9:56:00 [只看该作者]
Post By：2006/8/18 11:38:00 [只看该作者]
Post By：2006/8/20 13:03:00 [只看该作者]
Post By：2006/10/4 11:22:00 [只看该作者]
Post By：2006/10/6 10:30:00 [只看该作者]
Post By：2006/10/26 14:16:00 [只看该作者]
