第14节 数据库的应用系统开发.ppt

第二类员工考核数据录入界面 第二类员工考核数据界面 14.4.2 几个主要程序代码段的实现 1．系统登录过程 系统登录是封面表单的基本功能，作用是为了验证用户身份，防止未授权用户的使用。下面的程序段运行前需要建立一个用户密码表（yhmm.dbf），有3个字段： yhmm(yhm，yhmm，sm) 即（用户名、用户密码、说明），系统设计时，应给出一个最初的用户名及用户密码，并设计一个表单对这一个数据表进行专门处理（增加用户、删除用户、修改用户名及密码等。）这里不讨论这一过程而只讨论怎样应用该数据表来实现用户身份认证工作。 “确认”按钮的代码如下： USE yhmima user1=Trim(ThisForm.user.Value) 通过表单的文本框对象接受用户名与用户密码 pass1=Trim(ThisForm.password.Value) LOCATE ALL FOR yhm=user1 IF FOUND() AND mima=pass1 DO gzjsgl.mpr 验证通过，启动系统菜单 ELSE MESSAGEBOX(′用户名或密码错误，请查证后再登录′) ENDIF ThisForm.Release 2．Comgrop_gz 类的设计 Comgrop_gz 是一个子类，其基类是命令按钮组，该命令组包含“加入数据”、“删除”等6个按钮，由其生成了4个对象分别置于“员工基本信息维护”、“第一类员工工资考核数据维护”、“第二类员工工资考核数据维护”、“第三类员工工资考核数据维护”等4个表单中，这也充分反映了面向对象程序设计方法的优点，一次设计，多处使用。下面列出该类中“加入数据”命令按钮的 Click事件响应代码。其他几个按钮的相应代码请读者根据前面讲述的总体设计思想自行补充并上机调试运行。 SELECT (ThisForm.DataEnvironment.Cursor1.Alias) kh=Trim(ThisForm.khfl) IF recc()=0 Append From jbxxb FOR fl=kh Goto Top ELSE =MessageBox(′你已经追加了数据′) ENDIF ThisForm.Refresh 3．Comgrop_gzff 类的设计 Comgrop_gzff 类也是一个基于命令按钮组的子类，包含了“追加工资数据”、“工资计算”、“打印工资表”、“编制汇总表”等6个命令按钮组。在整个工资计算系统中，该类只应用在“工资发放”一个表单中，因此，仅对于本系统的而言，也可以不专门设计这样一个类而在“工资发放”表单中直接设计一个命令按钮组对象，其设计过程与工作量是大致相同的，但是，这里独立设计的“类”可以供其他应用系统使用，而与某一固定表单捆绑在一起的对象是不能直接供其他应用系统使用的。 下面列出该类中“追加工资数据”和“工资计算”两个命令按钮的Click事件代码： （1） 追加工资数据 SELECT (ThisForm.DataEnvironment.Cursor1.Alias) IF RECC()0 MessageBox(′你本月已追加数据或未清除上月数据，请返回处理′) ELSE SELECT (ThisForm.DataEnvironment.Cursor1.Alias) APPEND FROM jbxxb 追加员工基本信息 以下几个语句的作用是把三类不同员工的考核数据追加到当前表中 SELECT 5 USE khb1 SELECT (ThisForm.DataEnvironment.Cursor1.Alias) UPDATE ON bh FROM E REPLACE khgz WITH e-khgz RANDOM SELECT 5 USE khb2 SELECT (This Form.Data Environment.Cursor1.Alias) UPDATE ON bh FROM E REPLACE khgz WITH e-khgz RANDOM SELECT 5 USE khb3 SELECT (This Form.Data Environment.Cursor1.Alias) UPDATE ON bh FROM E REPLACE khgz WITH e-khgz RANDOM SELECT 5 USE SELECT (This Form.Data Environment.Cursor1.Alias) ENDIF This Form.Refresh RETURN