帮我看两个VFP程序啊 150分

来源：百度知道 编辑：UC知道 时间：2024/05/16 20:30:38
是两个小程序，我不知道是什么意思，大家帮看一下，把答案写出来，详细一点就更好了。拜托各位了

第一个程序：

If _user<>"null"
Delete for 用户名=_user
Pack
Dimension uu[1,3]
uu[1,1]=allt(thisform.text2.value)
uu[1,2]=allt(thisform.text3.value)
uu[1,3]=allt(thisform.text1.value)
Append from array uu
Thisform.gb=allt(thisform.text1.value)
Else
If _user="null" and thisform.check1.value=1
Thisform.gb="null"
Else
Thisform.gb=allt(thisform.text1.value)
Endif
Endif
Release thisform

第二个程序：

this.picture="d:\学生管理系统\picture\取消focus.bmp"

main.ole1.simpletext=this.caption

Locate for 用户名=_user
If found()
Thisform.text1.value=(用户.壁纸)
Thisform.text2.value=(用户.用户名)
Thisform.text3.value=(用户.密码)
thisform.text4.value=(用户.壁纸)
If !empty(allt(thisform.text1.value))
Thisform.container1.co

这是两个表单某个事件的代码，不太容易弄清作者的意图，大致说一下：
1
If _user<>"null"
Delete for 用户名=_user
Pack
如果变量 _user不为NULL值，将表（可能是用户表）用户名等于变量_user记录删除。
Dimension uu[1,3]
uu[1,1]=allt(thisform.text2.value)
uu[1,2]=allt(thisform.text3.value)
uu[1,3]=allt(thisform.text1.value)
Append from array uu
Thisform.gb=allt(thisform.text1.value)
定义一个数组UU,将text2，text3，text1的值赋给数组，添加到用户表中，
Thisform.gb，是一个自定义属性（相当于全局变量），将TEXT1的值赋给GB,
Else ,否则（即变量 _user为NULL值），
If _user="null" and thisform.check1.value=1
变量 _user为NULL值，并且复选框（check1）处于选中状态，
Thisform.gb="null"
将NULL值赋给自定义属性GB
Else 否则（即变量 _user为NULL值,复选框（check1）处于未选中状态）
Thisform.gb=allt(thisform.text1.value)
将TEXT1的值赋给GB
Release thisform 释放表单。

2 应是某一控件的事件，没啥意思。

虽然看不太懂 但应该会输出一些图片吧