系统主界面是用户进入系统后主要接触的界面，由它可以进入各个功能模块。分别单击按钮“增加记录”、“修改记录”、“删除记录”、“查询”、“报表打印”可进入与之相对应的功能模块，单击“退出”按钮退出本系统。为使界面不至于单调，可以为主界面加入背景。
在“增加记录”按钮的“Click”事件中添加代码如下：
do form 增加记录
thisform.release
在“修改记录”按钮的“Click”事件中添加代码如下：
do form 修改记录
thisform.release
在“删除记录”按钮的“Click”事件中添加代码如下：
do form 删除记录
thisform.release
在“查询”按钮的“Click”事件中添加代码如下：
do form 查询
thisform.release
在“报表打印”按钮的“Click”事件中添加代码如下：
do form 报表打印
thisform.release
在“退出”按钮的“Click”事件中添加代码如下：
thisform.release
clear events
“增加记录”模块
企业新进职员都要为其建立人事档案，该模块的功能就是添加新职员信息。操作很简单，按需要输入完数据后，单击“确定”按钮即可，同时系统会弹出对话框提示输入成功。“取消”按钮的功能是清空所有文本框。该模块做了些限制性设计，以防用户误操作。如：将输入“职员号”、“进本单位年份”的文本框的Format和InputMask属性都设为“9999”，使用户只能输入四位数字，输入其它字符无效。同样在输入“生日”的文本框的Format和InputMask属性都设为“9999/99/99”。单击“确定”后，如果没有输入“职员号”或输入的“职员号”已存在，系统都会弹出提示信息，以便用户改正。
在“确定”按钮的“Click”事件中添加代码如下：
* 检查“职员号”是否为空
if empty(alltrim(thisform.txtID.value))
messagebox("职员号不能为空",48,"错误")
thisform.txtID.setfocus
else
* 获取各输入值
inID=alltrim(thisform.txtID.value)
inName=alltrim(thisform.txtName.value)
inSex=alltrim(thisform.txtSex.value)
inBirth=alltrim(thisform.txtBirth.value)
inLearn=alltrim(thisform.txtLearn.value)
inPolitics=alltrim(thisform.txtPolitics.value)
inPhone=alltrim(thisform.txtPhone.value)
inAddress=alltrim(thisform.txtAddress.value)
inDepartment=alltrim(thisform.txtDepartment.value)
inFunction=alltrim(thisform.txtFunction.value)
inDate=alltrim(thisform.txtDate.value)
inMemo=alltrim(thisform.edtMemo.value)
* 检查输入的“职员号”是否已存在
set order to 职员号
seek inID
if !found()
insert into 职员信息表 value(inID,inName,inSex,inBirth,inLearn,inPolitics,inPhone,inAddress,inDepartment,inFunction,inDate,inMemo)
messagebox("添加成功！",48,"信息")
* 添加完毕后清空各文本框
thisform.txtID.value=''
thisform.txtName.value=''
thisform.txtSex.value=''
thisform.txtBirth.value=''
thisform.txtLearn.value=''
thisform.txtPolitics.value=''
thisform.txtPhone.value=''
thisform.txtAddress.value=''
thisform.txtDepartment.value=''
thisform.txtFunction.value=''
thisform.txtDate.value=''
thisform.edtMemo.value=''
else
messagebox("此职员号已存在，请另输一个",48,"错误")
thisform.txtID.value=''
thisform.txtID.setfocus
endif
endif
在“取消”按钮的“Click”事件中添加代码如下：
