“确定”按钮的CLICK代码为：
yhm =thisform.combo1.value
mm=allt(thisform.text1.value)
locate for S2操作员=yhm
do case
allt(密码表.S1编码)=="00000".and.mm==allt(密码表.S3密码)
messagebox("程序员，你有权修改数据!"+chr(13)+"请按'确定'进入"，0+48，"欢迎进入!")
store 1 to K1，K2，K3，K4，K5，K6，K7，K8，K9，K10，K11，K12，K13，K14，K15，K16，k18
thisform.release
DO FORM MAIN
case allt(密码表.S1编码)=="00001".and.mm==allt(密码表.S3密码)
messagebox("普通用户，可以浏览数据!"+chr(13)+"请按'确定'进入"，0+48，"欢迎进入!")
store 1 to k6，k7，K8，K9，K10，K11，K12，K13，K14，K15，K16
thisform.release
case allt(密码表.S1编码)=="00002".and.mm==allt(密码表.S3密码)
messagebox("普通用户，可以浏览数据!"+chr(13)+"请按'确定'进入"，0+48，"欢迎进入!")
store 1 to K6，K7，K9，K10，K11，K12，K13，K14，K15
thisform.release
otherwise
n=n+1
if n<=3
messagebox("口令错误，请重新输入!你还有"+allt(str(4-n))+"次机会"，0+48，"口令最多3次")
thisform.text1.value=""
thisform.text1.setfocus
else
messagebox(""，0+48，"")
quit
*thisform.release
endif
endcase
5.3主界面表单
1.建立一个表单.在项目管理器的文档页中选择表单，单击“新建”，弹出表单设计器，设置“Caption”属性“功能功能选择界面”
2.在该表单上添一个“容器”控件“Container1”.“容器”控件是可包含其他控件的空间，并且允许访问被包含控件
3.在“Container1”控件上添加辣个“按钮”控件.他们的“Caption”属性分别为“浏览”、 “查询”、 “统计”、 “编辑”、 “打印”、 “退出”
4.在表单上添加“图象”控件“Image1”，并设置“Stretch”属性为“2—Stretch”、“Picture”属性为图片所在位置.
5.双击按钮控件可以弹出代码编辑器
浏览 DO FORM LN
查询 DO FORM JMCX
编辑 DO FORM DABJ
统计 DO FORM TJ
打印 DO FORM DADY
退出 THISFORM.RELEASE
6.表单名为”MAIN”
5.4浏览表单
1.新建一个表单， Caption属性为“浏览档案”然后在表单加一个“表格”控件。
2.用“表格生成器”为表格设定数据源.右击“表格”控件弹出快捷菜单.选择“生成器”，弹出“表格生成器”对话框。
3.在“数据库和表”中选择“人事管理”数据库，在选“人事档案”表. 单击向左的单箭头，排除“简历”。
4.单击“确定”按钮。
5.为表单添加按钮控件，“Caption”属性“确定”， 代码为release thisform
6.调整后.将表单取名LN
5.5查询表单
1. 有项目管理器建一个表单.设置“CAPTION” 属性为“查询”.添加一个选项按钮设置“AUTOSIZE”属性“T.-真”，设置“BOTTONCOUNT”属性为“2”。
2.将两个选项按钮的“CAPTION”属性修改为“按编号查询”和“按姓名查询”；设置“AUTOSIZE”属性“T.-真”，设置”按编号查询”按钮的”VALUE “属性为1。
3.在表单中添加一个按钮和一个文本框控件.“Caption”属性改为“开始查询”.这样，当单击“开始查询”按钮时，系统将根据选项按钮的值，即是“按编号查询”还是“按姓名查询”
“开始查询“按钮的CLICK 事件代码
select
go top
if thisform.OPTIONgroup1.value=1
locate for 编号=val(trim(thisform.text1.value))
else
locate for 姓名=trim(thisform.text1.value)
endif
thisform.refresh
if.not.found()
wait window’没有找到所要的记录!按任意键或鼠标继续….’
Endif
4. 查到记录显示出来.先右击表单，选择“生成器”命令，或从“表单”菜单选择“快速表单”，弹出“表单生成器”，在“数据库和表”中选择“人事管理”数据库，其下选“人事档案”表.单击向右的双箭头，选所有的字段.
5. 为表单添加一个“退出”，“ Caption” 属性为“退出”，其CLICK事件代码
THISFORM.RELEASE
6. 表单名字为CX 保存
5.6编辑表单
5.6.1 dabj表单
1.建立一个表单。在项目管理器的文档页中选择表单，单击“新建”，1弹出表单设计器，设置“Caption”属性“档案编辑”。在表单中添加一个Lable1，设置其“Caption”属性“请先选择要更新的档案”，其“Backstyle”属性为“0-透明”。
2.在表单中添加“Optiongroup1”其“backstyle”属性为“0-透明”，“Buttoncount”属性为“3”，“Value”值为“1”单击“单选按钮组”选择编辑，3个按钮的“Caption”分别设置为“人事卡片编辑”，“家庭成员表编辑”，“社会关系表编辑”。
3.在表单中添加4个按钮 分别为“添加”、“删除”、“修改”、“退出”
代码如下：
添加代码：
do case
case thisform.optiongroup1.option1.value=1
do form bj
case thisform.optiongroup1.option2.value=1
do form jtbj
case thisform.optiongroup1.option3.value=1
do form shehuln
endcase
删除代码：
do case
case thisform.optiongroup1.option1.value=1
do form bj
case thisform.optiongroup1.option2.value=1
do form jtbj
case thisform.optiongroup1.option3.value=1
do form shehuln
endcase
修改代码：
do case
case thisform.optiongroup1.option1.value=1
do form bj
case thisform.optiongroup1.option2.value=1
do form jtbj
case thisform.optiongroup1.option3.value=1
do form shehuln
endcase
4. 保存表单名为dabj.
5.6.2 BJ表单
1.在项目管理器的文档页中选择表单，单击“新建”，弹出表单设计器，设置“Caption”属
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页