图书馆管理系统VF报告.doc

VF设计报告图书馆借阅系统目录一、设计目的2二、系统设计总体结构框图2）数据项3)数据流3）处理过程3三、系统实现，源代码清单4建立借书表单（xk.sck）6建立学生表单15建立书籍表单18建立主表单（main.scx）21四、操作方法简介23五、设计总结23一、设计目的设计图书馆借阅系统，实现书籍录入，学生查找，学生借书，退书等要求。二、系统设计总体结构框图学生借书的数据流图如下所示：图学生借书数据流）数据项数据项名 含义 数据类型 长度 小数位数学生学号 字符 10学生姓名 字符 8学生年龄 数值 2 0学生性别 字符 2学生系别 字符 20书籍号 字符 2书籍名 字符 20书籍所在楼层 数值 4 1书籍余量 数值 1 0)数据流数据流名 说明 数据流来源 数据流去向 组成f1 学生数据流 学生 借书（处理） 学号f2 借书数据流 借书（处理 ） 借书 学号+书籍编号+借书本数f3 书籍数据流 书籍 借书（处理） 书籍编号）处理过程处理过程名 说明 输入 输出 处理借书 学生的借书处理 f1+f3 f2 输入学生的学号，输出书籍的书籍号，进行借书三、系统实现，源代码清单建立借书表单（xk.sck）借书表单的属性：CAPTION：学生借书情况表AUTOCENTER：.T.CLOSABLE: .F.MAXBUTTON: .F.MINBUTTON: .F.Showwindow:1-在顶层表单中借书表单的过程：Activate event()（ thisform.grid3.linkmaster= thisform.grid3.recordsource=thisform.grid3.recordsourcetype=1thisform.grid3.relationalexpr= thisform.grid3.childorder= thisform.refresh ）load event()(select 1if used(s)select suse s exclusiveendifselect 2if used(sc)select scuse sc exclusiveendifselect 3if used(course)select courseuse course exclusiveendif)表格控件GRID1：此表格显示学生的详细信息表格控件GRID2：显示书籍的详细信息表格控件GRID3：显示借书的详细信息，grid3.recordsource=sc,grid3.readonly=.t.文本框TEXT1：用来输入学号或单击学生信息表中某一个学号来完成输入；文本框TEXT2：用来输入学生的书籍号或单击书籍表中某一个书籍号来完成输入。学生信息表和书籍信息表的代码如下：学生信息表：属性:grid1.controlsource=sgrid1.readonly=.t.thisform.grid1.afterRowColChange Event()代码如下：thisform.text1.value=thisform.grid1.column1.text1.value书籍信息表：grid2.controlsource=coursegrid2.readonly=.t.thisform.grid2. afterRowColChange Event()代码如下：thisform.text2.value=thisform.grid2.column1.text1.value有五个命令按钮：查询、借书、退书、关闭、清除按钮查询按钮：用户在文本框TEXT1 输入学号，或在文本框在TEXT2 输入书籍号，可查询相关借书信息，查询结果在GRID3 中显示。其click()代码如下:num1=alltrim(thisform.text1.value)num2=alltrim(thisform.text2.value)if num1=.and.num2=messagebox(请输入查询条件)elseif num2=.and.not.num1thisform.grid3.linkmaster=sthisform.grid3.recordsource=scthisform.grid3.relationalexpr=学号thisform.grid3.childorder=scxhindexselect slocate for s.学号=num1if .not.found()messagebox(无此学生)elsethisform.refreshthisform.grid1.setfocusendifendifif num1= .and.not.num2thisform.grid3.linkmaster=coursethisform.grid3.recordsource=scthisform.grid3.relationalexpr=书籍编号thisform.grid3.childorder=scchindexselect courselocate for 书籍编号=num2if .not. found()messagebox(没有此书籍)elsethisform.refreshthisform.grid2.setfocusendifendifendif借书按钮：用户输入学号和书籍号，单击借书，在借书信息表中显示该学生借书的详细信息。其CLICK（）代码如下：num1=alltrim(thisform.text1.value)num2=alltrim(thisform.text2.value)if num1=.and.num2=messagebox(请输入借书的学号和书籍号)elseselect slocate for s.学号=num1if .not.found()messagebox(此学号不存在请重新输入学号)elsenum1=alltrim(thisform.text1.value)select courselocate for course.书籍编号=num2if .not.found()messagebox(此书籍号不存在请重新输入书籍号)elsenum2=alltrim(thisform.text2.value)thisform.grid3.linkmaster= thisform.grid3.recordsource=thisform.grid3.recordsourcetype=1thisform.grid3.relationalexpr= thisform.grid3.childorder= thisform.refreshselect sclocate for sc.学号=num1 and sc.书籍编号=num2if found()messagebox(此借书记录已存在)elseinsert into sc(学号,书籍编号) values(num1,num2)thisform.grid3.linkmaster= thisform.grid3.recordsource=scthisform.grid3.recordsourcetype=1thisform.grid3.relationalexpr= thisform.grid3.childorder= thisform.refreshthisform.grid3.setfocusendifendifendifendif退书按钮：用户输入相应的学号和书籍号，单击退书，可实现学生的退书。其CLICK（）代码如下：num1=alltrim(thisform.text1.value)num2=alltrim(thisform.text2.value)if num1=.and.num2=messagebox(请输入退书的学号和书籍号)elsenum1=alltrim(thisform.text1.value)num2=alltrim(thisform.text2.value)thisform.grid3.linkmaster= thisform.grid3.recordsource=thisform.grid3.recordsourcetype=1thisform.grid3.relationalexpr= thisform.grid3.childorder= thisform.refreshselect sclocate for sc.学号=num1 and sc.书籍编号=num2if .not.found()messagebox(此借书记录不存在)elsedelete from sc where sc.学号=num1 and sc.书籍编号=num2messagebox(退书完成)use sc exclusivepackthisform.grid3.linkmaster= thisform.grid3.recordsource= thisform.grid3.recordsourcetype=1thisform.grid3.relationalexpr= thisform.grid3.childorder= thisform.refreshthisform.grid3.setfocusendifendif关闭按钮：单击关闭，可关闭借书表单。其CLICK（）代码如下：y=.f.z=.f.thisform.release清除按钮：单击清除，可清除TEXT1、TEXT2 和借书信息表格的内容。其CLICK（）代码如下：thisform.text1.value=thisform.text2.value=thisform.grid3.linkmaster= thisform.grid3.recordsource=thisform.grid3.recordsourcetype=1thisform.grid3.relationalexpr= thisform.grid3.childorder= thisform.refreshthisform.grid3.setfocus_建立学生表单学生表单的属性：CAPTION：学生基本信息AUTOCENTER：.T.CLOSABLE: .F.MAXBUTTON: .F.MINBUTTON: .F.Showwindow:1-在顶层表单中借书表单的过程：Activate event()（ thisform.grid1.readonly=.t. ）load event()(if used(s)select suse s exclusiveendif)在学生表单上添加如下控件：表格控件grid1：显示学生基本信息属性：recordsource: sVALID():(thisform.grid1.readonly=.t.)命令按钮：新增、删除、修改、关闭新增按钮：单击“新增“，用户在表格中新增一个学生记录，其CLICK（）代码如下：thisform.grid1.readonly=.f.append blankthisform.grid1.setfocus删除按钮：用户选中表格一记录，单击“删除“可删除此记录，其CLICK（）代码如下：thisform.grid1.linkmaster= thisform.grid1.recordsource=thisform.grid1.recordsourcetype=1thisform.grid1.relationalexpr= thisform.grid1.childorder= thisform.refreshdeletepackthisform.grid1.linkmaster= thisform.grid1.recordsource=sthisform.grid1.recordsourcetype=1thisform.grid1.relationalexpr= thisform.grid1.childorder= thisform.refreshthisform.grid1.setfocusthisform.grid1.readonly=.t.修改按钮：单击“修改“，用户可修改表格中的任一记录，其CLICK（）代码如下：thisform.grid1.readonly=.f.关闭按钮：单击“关闭“，用户可关闭学生表单，其CLICK（）代码如下：x=.f.thisform.release建立书籍表单书籍表单的属性：CAPTION：书籍基本信息表AUTOCENTER：.T.CLOSABLE: .F.MAXBUTTON: .F.MINBUTTON: .F.Showwindow:1-在顶层表单中借书表单的过程：Activate event()（ thisform.grid1.readonly=.t. ）load event()(if used(course)select courseuse course exclusiveendif)在学生表单上添加如下控件：表格控件grid1：显示学生基本信息属性：recordsource: courseVALID():(thisform.grid1.readonly=.t.)命令按钮：新增、删除、修改、关闭新增按钮：单击“新增“，用户在表格中新增一个学生记录，其CLICK（）代码如下：thisform.grid1.readonly=.f.append blankthisform.grid1.setfocus删除按钮：用户选中表格一记录，单击“删除“可删除此记录，其CLICK（）代码如下：thisform.grid1.linkmaster= thisform.grid1.recordsource=thisform.grid1.recordsourcetype=1thisform.grid1.relationalexpr= thisform.grid1.childorder= thisform.refreshdeletepackthisform.grid1.linkmaster= thisform.grid1.recordsource=sthisform.grid1.recordsourcetype=1thisform.grid1.relationalexpr= thisform.grid1.childorder= thisform.refreshthisform.grid1.setfocusthisform.grid1.readonly=.t.修改按钮：单击“修改“，用户可修改表格中的任一记录，其CLICK（）代码如下：thisform.grid1.readonly=.f.关闭按钮：单击“关闭“，用户可关闭学生表单，其CLICK（）代码如下：x=.f.thisform.release建立主表单（main.scx）该主表单的作用是用来向其添加菜单。其主要属性为：CAPTION：学生借书信息管理系统CLOSABLE: .F.MAXBUTTON: .F.MINBUTTON: .F.Showwindow: 2Windowstate: 2相应事件代码如下：ini