13、GEBOX(请输入账号名称,48,学生信息管理系统)THISFORM.txt账号.SetFocusELSE SELECT 用户信息 LOCATE FOR ALLTRIM(账号)=ALLTRIM(THISFORM.txt账号.VALUE) *用户名和密码正确IF FOUND() .AND. ALLTRIM(密码)=ALLTRIM(THISFORM.txt密码.VALUE) cuser=ALLTRIM(THISFORM.txt账号.VALUE)THISFORM.RELEASE()DO FORM logo &执行Logo表单ELSE*用户名和密码错误IF THISFORM.iALLTRIM(THIS 。

14、FORM.txt密码确认.VALUE)MESSAGEBOX(密码与确认密码不一致,48,学生信息管理系统)THISFORM.txt新密码.SetFocusRETURNENDIF*-获取表单中各数据项的值sName=ALLTRIM(THISFORM.txt用户名.Value)sPass=ALLTRIM(THISFORM.txt新密码.Value)sPass=sPass*-确定对话框YN=MESSAGEBOX(确定保存,4+32,学生信息管理系统)*-如果确认IF YN=6*-修改密码UPDATE 用户信息 SET 密码=sPass WHERE 账号=sNameMESSAGEBOX(密码修改成功, 。

15、64, 学生信息管理系统)THISFORM.RELEASEENDIF3、学生信息浏览表单的设计：第一步：创建表单 ， 并保存为CLIENTSELECT.scx；第二步：添加lable1、lable2 ， 其caption的属性如下图所示 ；第三步： 添加文本框text1、text2 ， 并设置相关属性；第四步：在表单上单击鼠标右键 ， 并在弹出菜单中选择“数据环境”项 ， 打开数据环境设计器 ， 添加数据表学生信息.dbf；第五步：将数据环境里的学生信息表拖到表单里；第六步：添加command1、command2 ， 并设置相关属性；第七步：执行运行命令 ， 并进行测试 。
代码如下：*-声明变量 ， 用来保存查询条件Public。

16、FindString*查询条件默认值为逻辑真（.T.）FindString= .T.*如果“客户编号”文本框非空IF .NOT. EMPTY(ALLTRIM(THISFORM.txt学号.Value)FindString=FindString + AND + ALLTRIM(THISFORM.txt学号.Value) + $ 学号ENDIF*如果“企业名称”文本框非空IF .NOT. EMPTY(ALLTRIM(THISFORM.txt姓名.VALUE)FindString=FindString + AND + ALLTRIM(THISFORM.txt姓名.Value)+ $ 姓名ENDIF* 。

17、如果“联系人”文本框非空*选择“产品信息”表所在的工作区SELECT 学生信息*清除工作区中的过滤条件*SET FILTER TO*对工作区设置过滤条件SET FILTER TO &FindString*刷新表单THISFORM.Refresh4、学生成绩浏览表单的设计：第一步：创建表单 ， 并保存为PROSELECT.scx；第二步：添加lable1、lable2 ， 其caption的属性如下图所示 ；第三步： 添加文本框text1、text2 ， 并设置相关属性；第四步：在表单上单击鼠标右键 ， 并在弹出菜单中选择“数据环境”项 ， 打开数据环境设计器 ， 添加数据表学生成绩.dbf；第五步：将数据环境里的学生 。

18、成绩表拖到表单里；第六步：添加command1、command2 ， 并设置相关属性；第七步：执行运行命令 ， 并进行测试 。
代码如下：代码如下：*-声明变量 ， 用来保存查询条件Public FindString*查询条件默认值为逻辑真（.T.）FindString= .T.*如果“学号”文本框非空IF .NOT. EMPTY(ALLTRIM(THISFORM.txt学号.Value)FindString=FindString + AND + ALLTRIM(THISFORM.txt学号.Value) + $ 学号ENDIF*如果“产品名称”文本框非空IF .NOT. EMPTY(ALLTRIM(THIS 。

19、FORM.txt姓名.VALUE)FindString=FindString + AND + ALLTRIM(THISFORM.txt姓名.Value)+ $ 姓名ENDIF*选择“产品信息”表所在的工作区SELECT 学生成绩*清除工作区中的过滤条件*SET FILTER TO*对工作区设置过滤条件SET FILTER TO &FindString*刷新表单THISFORM.Refresh5、学生成绩管理表单的设计：第一步：创建表单 ， 并保存为PROADMIN.scx；第二步：表单上单击鼠标右键 ， 并在弹出菜单中选择“数据环境”项 ， 打开数据环境设计器 ， 添加数据表学生成绩.dbf 第三步： 将数据 。

20、环境里的表的每个字段拖到表单里；第四步：添加commandgroup1、commandgroup2 ， 并设置相关属性；第五步：编写代码；第六步：执行运行命令 ， 并进行测试 。
代码如下：*声明本地变量LOCAL OK,YN*变量赋初值OK=.T.*进行检测DO CASE*如果“学号”为空CASE EMPTY(ALLTRIM(THISFORM.txt学号号.Value)MESSAGEBOX(学号不能为空,48,学生成绩管理系统)THISFORM.txt学号.SetFocusOK=.F.*如果“姓名”为空CASE EMPTY(ALLTRIM(THISFORM.txt姓名.Value)MESSAGEBOX 。

21、(姓名不能为空,48,学生成绩管理系统)THISFORM.txt姓名.SetFocusOK=.F.*如果“电子商务”为0CASE THISFORM.txt电子商务.Value=https://www.renrendoc.com/paper/0MESSAGEBOX(电子商务不能为空,48,学生成绩管理系统)THISFORM.txt电子商务.SetFocusOK=.F.*如果“西方经济学价”为0CASE THISFORM.txt西方经济学.Value=0MESSAGEBOX(西方经济学不能为空,48,学生成绩管理系统)THISFORM.txt西方经济学.SetFocusOK=.F.EndCase*如果条件检测通过IF OK=.T.*确认对话框YN=MESSAG 。

22、EBOX(确定保存记录,4+32,学生成绩管理系统)*如果确认IF YN=6*保存记录SELECT 学生成绩*试图保存记录 ， 如果失败IF TABLEUPDATE(.F.)=.F.MESSAGEBOX(编号错误,48,学生成绩管理系统)THISFORM.txt编号.SetFocusElse*保存成功*回到浏览状态THISFORM.bModify=.F.THISFORM.bBrowse=.F.THISFORM.ModeControlTHISFORM.RefreshEndIfEndIfENDIF6、学生信息管理表单的设计：第一步：创建表单 ， 并保存为CLIENTADMIN.scx；第二步：表单上单击鼠 。

稿源：(未知)

【傻大方】网址：/a/2021/0707/0022751857.html

标题：学生|学生信息管理系统开发与设计( 三 )