标题：图书管理系统的制作

建立图书信息库
   
   第一步：鼠标右键点击窗口底端的“表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("借阅管理","流水号,书名_正题名,书名_副题名,书名_丛书名,图书编号,作者",[流水号],[书名_正题名],[书名_副题名],[书名_丛书名],[图书编号],[作者]),true)。
   设置好上面这个公式，在进行图书登记时，只要图书类型选择为“可借出”，该书信息自动被添加到“借阅管理”表。

找了很久，不管有没有用，首先支持！

可惜没有我要找的菜单方案

 

自己设计更灵活

赞一个