“数据处理”主要功能是处理系统当前的数据，包括添加新记录、修改记录、删除记录等操作。“数据处理”下面的子菜单有：“教师档案”、“教师工资列表”、“任课教师一览表”、“课程表”、“工资设置表”和“教师基本信息表”。“教师档案”、“教师工资列表”和“工资设置表”是系统的骨干内容。
数据查询：
“数据查询”：其主要功能是查询系统当前的数据。
“数据查询”下面的子菜单有：“个人工资查询”、“课程表查询”和“任课教师查询”、其功能是分别对“教师档案”、“教师工资列表”、“任课教师一览表”、“课程表”、“工资设置表”等进行查询。
上图显示的是“报表打印”窗口。在进行报表打印之前应在“选择报表”后面的下拉列表框中选择要打印的报表，然后在下面的选项组里选择打印条件，并在后面输入打印条件，如果要打印全部记录的话，则应选择“打印全部”。图中最下在的两个按钮的作用分别是：“打印预览”打印报表，如果没有连接打印机，则会出现错误提示；和预览要打印的报表；“取消”取消打印。
系统帮助：
“系统帮助”是提供系统帮助及显示关于学生管理系统的信息。
“系统帮助”共有4个子菜单：“帮助主题”、“备忘录”和“关于本系统”。其中“系统帮助”的功能是显示系统帮助文件，帮助用户了解系统功能、各种操作及提供帮助等，解除用户在使用本软件过程中遇到的问题。它位于系统根目录下的ELSE文件夹中，如果帮助文件意外丢失，系统将会给出错误提示。“关于本系统”显示系统名称、版本、作者信息等，其中的“系统信息”则显示用户当前使用计算机的各类相关信息。
七、开发难点：
更换背景的实现：
表单1
thisform init
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.image2.visible=.t.
Thisform.container1.image2.picture=allt(thisform.text1.value)
Else
Thisform.container1.image2.visible=.f.
Endif
Endif
确定按钮 click
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
表单2
thisform init
Public e,_every
e=1
If _user="null"
Thisform.image1.visible=.f.
Else
Use xtdbf\用户.dbf share
Locate for 用户名=_user
Thisform.text1.value=(用户.壁纸)
Use in 用户
Endif
Public main
Main=this
Public gcReport,_for,_forwhat
gcReport=""
_for=4
_forwhat=""
thisform refresh
If empty(thisform.text1.value)
Thisform.image1.visible=.f.
Else
Public v
v=allt(thisform.text1.value)
If file(v)
Thisform.image1.visible=.t.
Thisform.image1.picture=allt(thisform.text1.value)
Else
Thisform.image1.visible=.f.
Messagebox("背景图片丢失！",48+0,"教师工资管理系统")
Endif
Endif
Thisform.image1.left=(sysmetric(1)-thisform.image1.width)/2
If thisform.image1.height>=sysmetric(2)
Thisform.image1.top=0
Else
Thisform.image1.top=(sysmetric(2)-120-thisform.image1.height)/2
Endif
Command1 click
do form form\ghbj2 to gb
if _user="null"
if !empty(gb) and allt(gb)="null"
thisform.text1.value=""
thisform.image1.visible=.f.
else
if !empty(gb) and allt(gb)<>"null"
thisform.text1.value=gb
thisform.image1.visible=.t.
endif
endif
else
thisform.text1.value=gb
thisform.image1.visible=.t.
endif
thisform.refresh
系统对主程序的设置过程：
main.prg
Set safety off
Set talk off
Set deleted on
Clear memo
Close all
set sysmenu off
_screen.windowstate=2
_Screen.visible=.F.
do form form\dl to hfyh
if hfyh
do form form\ghbj
Read events
