易表在线答疑技术与交流精华分享 → 图书管理系统的制作


  共有13913人关注过本帖树形打印复制链接

主题:图书管理系统的制作

帅哥哟,离线,有人找我吗?
喜爱易表
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:天使 帖子:178 积分:0 威望:0 精华:0 注册:2006/8/11 11:09:00
图书管理系统的制作  发帖心情 Post By:2006/8/13 15:16:00 [只看该作者]

建立图书信息库
   
   第一步:鼠标右键点击窗口底端的“表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)。
   设置好上面这个公式,在进行图书登记时,只要图书类型选择为“可借出”,该书信息自动被添加到“借阅管理”表。


 回到顶部
帅哥哟,离线,有人找我吗?
surgeme
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:2 积分:202 威望:0 精华:0 注册:2015/4/17 10:07:00
  发帖心情 Post By:2015/4/17 10:36:00 [只看该作者]

找了很久,不管有没有用,首先支持!

 回到顶部
帅哥哟,离线,有人找我吗?
surgeme
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:2 积分:202 威望:0 精华:0 注册:2015/4/17 10:07:00
  发帖心情 Post By:2015/4/17 10:39:00 [只看该作者]

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

 回到顶部
美女呀,离线,留言给我吧!
dancedy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:2721 积分:4555 威望:0 精华:0 注册:2011/5/12 17:20:00
  发帖心情 Post By:2015/4/17 14:43:00 [只看该作者]

以下是引用surgeme在2015/4/17 10:39:00的发言:
可惜没有我要找的菜单方案

 

自己设计更灵活


 回到顶部
帅哥哟,离线,有人找我吗?
whx_sd
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:8 积分:270 威望:0 精华:0 注册:2014/3/20 8:20:00
  发帖心情 Post By:2017/6/13 8:27:00 [只看该作者]

赞一个

 回到顶部