你的代码暴漏了你的年龄(毕业设计)--技术文档+程序源代码

现在社会上最流行的一句话：你的脖子暴露你的年龄；听过一首歌你就暴露了你的年龄；说了一句广告语暴漏了你的年龄；看过一部电影或电视剧暴漏了你的年龄；你最常用的表情包暴露了你的年龄；暴漏了你的年龄；暴漏了你的年龄；…
对于码农呢，或许你写的代码暴漏了你的年龄，或许你用的开发工具暴漏了你的年龄，或许你用的电脑暴漏了你的年龄…，这里两天整理资料，发现了一个骨灰级的东西，估计现在的小年轻的听可能都没有听说过的东西，感觉很意外，经历了那个没有网盘，没有优盘的时代居然保留了下来，特意拿出来与大家分享，如果真的有程序博物馆的话，他应该可以排上号了。
下面说重点：先上图：

我截了一段代码如下：

其中 
n2=alltrim(this.parent.parent.Text2.value)
n3=alltrim(this.parent.parent.Text3.value)
n4=alltrim(dtoc(this.parent.parent.Text4.value))
n5=alltrim(this.parent.parent.Text5.value)
程序段的作用是去掉编辑框的空格；
do case
case n1=''
messagebox('不能输入空值!',48,'注意!')
this.parent.parent.Text1.setfocus
case n2=''
messagebox('不能输入空值!',48,'注意!')
this.parent.parent.Text2.setfocus
case n3=''
messagebox('不能输入空值!',48,'注意!')
this.parent.parent.Text3.setfocus
case n4=''
messagebox('不能输入空值!',48,'注意!')
this.parent.parent.Text4.setfocus
case n5=''
messagebox('不能输入空值!',48,'注意!')
this.parent.parent.Text5.setfocus
otherwise 
a=messagebox('确认添加新纪录到学生表!',1+64+0,'提示信息')
……
endcase的作用是判断编辑框是否填写为空的安全性检查;
if a=1
use student
go bottom
insert into student values (n1,n2,n3,CTOD(n4),n5)
messagebox('新纪录添加成功!',64,'提示信息')
endif程序段的作用是如果是第一个页面，打开学生表完成插入操作。

有朋友能认出来这个是什么开发工具，使用的什么语言么？
对，我想有的朋友已经猜出来了，狐狸头，Visual Foxpro 6.0

当年它可也是红火过一阵子的，Visual Foxpro 6.0+Access数据库当年也是很受程序界爱戴的，现在都成老古董了，是我的大学毕业设计，文档程序都有，有感兴趣的同学可以下载下来，回味或者了解一下当年的程序开发。
下载地址：https://download.youkuaiyun.com/download/hnjzfwy/33518606
非常感谢各位能在百忙之中浏览我的页面。