毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VF人事管理系统 第4页

更新时间:2008-6-23:  来源:毕业论文

VF人事管理系统 第4页

 “确定”按钮的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 K1K2K3K4K5K6K7K8K9K10K11K12K13K14K15K16k18

     thisform.release

     DO FORM MAIN  

     case allt(密码表.S1编码)=="00001".and.mm==allt(密码表.S3密码)

     messagebox("普通用户,可以浏览数据!"+chr(13)+"请按'确定'进入"0+48"欢迎进入!")

     store 1 to k6k7K8K9K10K11K12K13K14K15K16

     thisform.release

     case allt(密码表.S1编码)=="00002".and.mm==allt(密码表.S3密码)

     messagebox("普通用户,可以浏览数据!"+chr(13)+"请按'确定'进入"0+48"欢迎进入!")

     store 1 to K6K7K9K10K11K12K13K14K15

     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] 下一页

VF人事管理系统 第4页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。