w高分求一简单的Visual FoxPro程序设计，图书管理系统 尀通讯录管理系统 尀学生成绩管理系统....要源码和论文

设计一个图书管理系统的登录表单，要求用户输入正确的用户名（supper）和密码（123）。

（1） 表单的标题为“图书管理系统”，表单的宽度为500，高度为350，其中label4：“为了您和他人的合法权益，请注册……”，字体宋体、大小28.

○1创建表单步骤及属性设置

文件|新建|表单

表单属性：Caption   图书管理系统

          Width     500

         Height     350

○2标签label4属性设置

Caption   “为了您和他人的合法权益，请注册……”

Fontname   宋体

Fontsize   28

Forecolor   grb(255,0,0)

(2)用户名对应的文本框text1，用户密码对应的文本框为text2，计时器控件timer1，label5用来显示提示信息。

○1表单初始化：定义变量用来保护登录次数，一开始label5不可见，写出对应事件代码。

Thisform.label5.visible=.F.

Public n

n=1

○2单击“确定”按钮，如果用户名和密码均正确，显示“欢迎使用”；用户名错误显示“非法用户，请重新输入”；如果密码错误显示“密码错，请重新输入”，并且只有三次机会。超过三次，显示“对不起，你不能进入系统”

同时“用户名”和“密码”对应的文本框不可用，编写“确定”事件代码：

if alltrim(thisform.text1.value)=="super"

   if alltrim(thisform.text2.value)=="123"

     thisform.label5.caption="欢迎使用"

         else

     thisform.label5.caption="密码错误，请重新输入"

      n=n+1

    endif

else

    thisform.label5.caption="非法用户，请重新输入"

    n=n+1

endif

   thisform.label5.visible=.t.

if n>3

    thisform.label5.caption="对不起，你不能进入系统"

    thisform.text1.enabled=.f.

    thisform.text2.enabled=.f.

endif

○3编写timer1的timer事件代码，是label4中的文字方向自右向左循环移动。

设置Interval属性值为：200

if thisform.label4.left+thisform.label4.width>=0

  thisform.label4.left=thisform.label4.left-20

else

  thisform.label4.left=thisform.width

endif

○4“退出”按钮，关闭表单

thisform.release

可以根据要求自己进行改动

要不要我帮你做？可以从我的联系方式里Q我。

我也不会- =