样本
(样本只提供该系统的基本情况介绍,若需要完整的设计和论文,建议您购买本系统,凡是购买本站系统的,本站均会在该系统的基础上,根据您的要求,修改成一个切实适合您的系统)

本系统开发工具：vfp6.0
本设计包含内容：源代码+可执行程序+毕业论文+开题报告+答辩稿
论文大概：
 

 

名      称： 图书租赁管理系统 

 

 

 

 

 

 

 

                          目录
一、 开发目的………………………………….………………………………………………………2
二、 开发背景…………………………………………………………………………………………...2
三、 系统规划图………………………………………………………………………………………….3
四、 开发具体过程及操作...……………………………………………………………………………….3
1,建立项目管理器……………………………………………………………….3
2,建立数据库表…………………………………………………………………3
3,建立交互表单…………………………………………………………………4
4,建立主菜单……………………………………………………………………14
5,设计主程序……………………………………………………………………14
6,编译及调试……………………………………………………………………17
五、 结尾…………………………………………………………………………………………………..18

 

图书租赁管理系统
一 开发目的
更好地掌握ＶＩＳＵＡＬ ＦＯＸＰＲＯ６．０的实际应用等基本技巧．
二 开发背景
随着社会的进步,人们对知识的需求就更上一层楼,图书馆成了人们茶余饭后的好去处,那么,为了更好的管理好各种图书的借,还等情况,特别开发了这样的一个系统．供大家使用．
三 系统总体规划与设计

四 开发过程
建立项目管理器；
建立数据库表；
建立交互表单；
建立主菜单；
设计主程序；
编译及调试；
五 建立项目管理器
在命令窗口中输入ＣＲＥＡＴＥ ＰＲＯＪ ＴＳＺＬ直接建立ＴＳＺＬ项目管理器窗口．
六 建立数据库表
在项目管理器窗口的数据选项卡中选择数据库,单击右边的新建按钮,在弹出的新建数据库对话框在选择新建数据库,进入到数据库设计器环境之后,在空白处单击右键,从弹出的快捷菜单中选择新建表,进入到表设计器环境,具体的表结构如下表所示．
 
将此表以ＳＹＳＴＥＮ为名保存,再次回到数据库设计器环境当中,再次单击右键,再次选择新建表,将进入一个新的表设计器窗口,输入各个字段,具体如下．
 
将此表以ＴＳＺＬ为名保存．
经过上述步骤,整个数据库文件就建立好了．
七 建立交互表单
１ 回到项目管理器窗口中,单击文档选项卡,从中选择表单选项,单击右边的新建按钮,从弹出的新建表单对话框中选择新建表单按钮,从表单菜单中选择创建表单集,在ＦＯＲＭ２表单设计器窗口中添加一个组合框,一个文本框,三个图片框,二个标签．设计好的界面如图所示．（其中退出和进入两个都是图片框）
 
在ＦＯＲＭ１的表单设计器窗口中添加三个文本框,七个标签,二个图片框,界面如下图所示．
 
其中具体的代码如下：
ＴＥＸＴ１的ＬＯＳＴＦＯＣＵＳ代码：
thisform.image2.click()
ＩＭＡＧＥ的ＣＬＩＣＫ代码：clear events
ＩＭＡＧＥ的ＣＬＩＣＫ代码：
czz=allt(thisform.combo1.value)
mm=allt(thisform.text1.value)
mi=0
n=len(czz)
m=len(mm)
for i=1 to n
 mi=mi+asc(substr(czz,i,1))*2.698
endfor
 for j=1 to m
 mi=mi+asc(substr(mm,j,1))/1.3
endfor
if str(mi,9,4)==str(mima,9,4)
ZOOM WINDOW SCREEN Max
_screen.visible=.t. 
 thisformset.release  
do  main.mpr else
=messagebox("操作者或密码不正确,请重新输入！",16,"提示")
endif
Formset1的destroy事件中的代码：
set classlib to ('tszl')
   kj=creat('tszl')  
   kj.dock(0)           
   kj.show
Formset1的init事件代码：
if empt(xm)
 this.form2.hide
 this.form1.show
 else
 this.form1.hide
 this.form2.show
endif
Text3的lostfocus事件代码：
thisform.image1.click()
最后关闭所创建的表单集,将表单集以ＬＯＧＯ为名保存到＼ＦＯＲＭS目录下．
２ 再次回到项目管理器窗口中,选择文档选项卡下的表单,同样单击右边的新建按钮,选择新建表单,向空白表单中添加三个标签,三个文本框,两个命令按钮,一个图片框,界面如下所示．
 
具体的代码：
ＴＥＸＴ２的ＬＯＳＴＦＯＣＵＳ代码：
if !empt(this.value)
locate for allt(xm)==allt(czz)

mm=allt(thisform.text2.value)
mi=0
n=len(czz)
m=len(mm)
for i=1 to n
 mi=mi+asc(substr(czz,i,1))*2.698
endfor
  for j=1 to m
   mi=mi+asc(substr(mm,j,1))/1.3
  endfor

if str(mi,9,4)==str(mima,9,4)
  thisform.text3.enabled=.t.
  thisform.text4.enabled=.t.
  thisform.command1.enabled=.t.
else
   =messagebox("密码错误请重新输入！",16,"提示")
   thisform.text2.setfocus
endif
endif
ＣＯＭＭＡＮＤ１（确认）的ＣＬＩＣＫ代码：
if empt(thisform.text3.value)
   =messagebox("新密码不能为空,请输入新密码",16,"提示")
   return
endif  
if allt(thisform.text3.value)==allt(thisform.text4.value)
   locate for allt(xm)==allt(czz)
     if  found()
      mm=allt(thisform.text3.value)
       mi=0
       n=len(czz)
       m=len(mm)
         for i=1 to n
          mi=mi+asc(substr(czz,i,1))*2.698
         endfor
       for j=1 to m
        mi=mi+asc(substr(mm,j,1))/1.3
       endfor
           repl mima with mi for allt(xm)==allt(czz)
           thisform.release
         endif    
    else
        =messagebox("新密码检测未通过,两次输入的密码必须相同！",16,"提示")
endif
ＣＯＭＭＡＮＤ２（退出）的ＣＬＩＣＫ代码：
thisform.release
最后关闭表单设计器窗口,将表单以ＭＩＭＡ为名保存到＼ＦＯＲＭＳ目录下．
３ 回到项目管理器窗口,从文档选项卡下重新选择表单,单击右边的新建按钮,选择新建表单按钮,在空白表单中添加控件,界面如图所示．