VFP图书管理系统程序设计思路

VFP图书管理系统程序设计思路 图书管理系统设计思路系统简介 1、本图书管理系统，包含了对图书、读者等基本信息的管理，也包含了借书信息，还书信息等的查询和管理。 本系统具有如下功能能够修改、输入、查询、与图书有关的信息，如图书信息、读者信息。 能打印图书信息，读者信息等。 本系统的初始登录用户名为万鹏密码为 12342、本系统的总体设计树状图具体操作步骤 1、创建项目，名为图书管理系统系统图图书信息读者信息信息报表图书读者借书还书读者读者图书读者图书图书 2、数据库设计 （1）在项目中新建三个自由表，各自由表的字段值如下表名字段一字段二字段三字段四字段五字段六图书图书编号作者图书名称价格现存数量出版社读者读者编号读者姓名性别籍贯联系电话专业用户读者编号用户名密码 3、界面设计 （1）系统启动表单在项目中创建一个表单。 如下图添加相应控件并在登录按钮的Click事件下写入如下代码use用户.dbf logcount=logcount+1locate foralltrim(用户.用户名)=alltrim(thisform.text2.value)if found()and alltrim(用户.密码)=alltrim(thisform.text3.value)messagebox(登陆成功！欢迎进入图书管理系统,0+64,恭喜)do form等待启动.scx release thisform else if logcount4then=messagebox(密码错误，请重新输入！,48,提示)else=messagebox(对不起，您无权访问，系统将自动退出！,48,警告)releasethisformendif endif双击退出按钮，并在它的Click事件写下如下代码Clear event设置Form1对象的init事件代码为thisform.label9.caption=ALLTRIM(STR(YEAR(DATE()+年+ALLTRIM(STR(MONTH(DATE()+月+ALLTRIM(STR(DAY(DATE()+日+time()public logcountas integerlogcount=0thisform.text2.setfocus （3）创建主表单创建一个表单保存为“主表单”并且设置它的ShowWindows属性为“2作为顶层表单”如图设置它的其他控件属性。 设置主界面对象的init事件代码为DO菜单1.mpr withthis,.T. （4）创建主菜单如下图创建主菜单表单，并且选择“显示”“常规选项”“顶层表单”分别设置各个子菜单如下信息录入读者服务信息维护信息查询报表打印然后分别在各自的过程中写入相应的调用表单的命令。 例如在读者登记菜单的过程中写入Do form读者信息 (5)创建主程序文件创建主程序文件，将其保存为“程序1”在代码窗口中，输入以下代码clear allset talkoff setdefault toe:计算机学习vfpvfp教学vf60中文帮助版.insvfp98图书管理系统_screen.visible=.f.do form登录.scx modifywindows screentitle图书管理系统read eventquit 4、表单设计 （1）图书登记表单如下图，创建一个名为读者录入的表单，在他的数据环境中添加表。 然后拖动相应的字段到表单中，按如图所示的位置放好。 （2）借书登记表单如图新建一个表单，把相应的字段拖入表单中。 按如图所示的位置放好如图添加一个命令按钮并在他的click事件中写入如下代码USE图书借阅locat allfor图书名称=alltrim(thisform.text4.value)if found()update tushuziliaoset借阅日期=date(),截止日期=借阅日期+45where图书编号=thisform.Text1.value m=alltrim(thisform.text1.value)n=alltrim(thisform.text2.value)update图书借阅set读者姓名=m,读者编号=n where图书名称=alltrim(thisform.Text4.value)=messagebox(恭喜,借书成功！,64,提示)endif （3）读者信息维护表单创建一个表单，在其数据环境设计器中添加读者表，在表单上添加一个表格对象，一个命令按钮组对象，如图设置按钮的Click事件代码为dzbh=allt(thisform.bo1.value)zy=allt(thisform.text2.value)lxdh=allt(thisform.text4.value)xm=allt(thisform.Text1.value)xb=allt(thisform.bo2.value)jg=allt(thisform.Text3.value)locate for读者编号=dzbh iffound()messagebox(读者编号不能为空,16,错误)else ifempty(xm)messagebox(姓名不能为空,16,错误)else ifempty(xb)messagebox(性别不能为空,16,错误)else ifempty(jg)messagebox(籍贯不能为空,16,错误)else ifempty(zy)messagebox(专业不能为空,16,错误)elseifempty(lxdh)messagebox(联系电话不能为空,16,错误)else APPEBLAN REPL读者编号WITH THISFORM.bo1.VALUE REPL姓名WITH THISFORM.TEXT1.VALUE REPL性别WITH THISFORM.bo2.VALUE REPL籍贯WITH THISFORM.TEXT3.VALUE REPL专业WITH(THISFORM.TEXT2.VALUE)REPL联系电话WITH VAL(THISFORM.TEXT4.VALUE)messagebox(添加成功,64,提示)thisform.bo1.value=thisform.Text2.value=thisform.Text4.value=thisform.Text1.value=thisform.bo2.value=thisform.Text3.value=endif endif endif endifendife