在项目管理器中,单击ALL选项卡中的Date左边的+号,选择Datebases选项,或者直接在Date选项卡中选择Datebases选项,然后单击New按钮,建立老师信息管理系统数据库,保存后就会进入Datebasedesigner(数据库设计器)。
虽然单独使用自由表,可以存储和查看许多信息。但是,当信息量很大,而且各个数据表之间的关系又非常复杂时,自由表就很难胜任了。为此就需要将若干个表组织到一个数据库中,理清数据间的关系,减少数据冗余存储,保证数据完整性。因此为该数据库创建7数据库表,分别为:教师表、课程表、信息表、科研表、课题表、发表论文表、待遇表。这7个表的结构分别为表1至7所示。
表1教师表
教师编号课程名教室时间
表2 课程表教师编号籍贯现住址办公电话手机号码电子邮箱
表3 信息表教师编号课题编号论文编号
表4 科研表
表5 课题表论文编号论文名称发表时间发表位置获得评价
表6 发表论文表教师编号基本工资奖金公积金福利津贴
表7 待遇表
利用视图设计器创建本地视图,在项目管理器中选择本地视图,新建视图khcsd。
1.选择数据源,教师表,课程表。
2.视图设计
选取字段:教师表.教师编号、教师表.姓名、课程表.课程名、课程表.教室、课程表.时间;
设置连接:教师表.教师编号=课程表.教师编号;
排序依据:课程表.时间,升序;
分组依据:教师表.教师编号;
系统启动是由系统启动表单begin.scx负责,该表单被执行后,出现教师信息管理系统,和进入、退出两个按钮。单击进入按钮可以进入下一级权限认证表单,单击退出就退出系统了。相关代码如下:进入,DOformD:教师信息管理教师信息管理系统formspassword.scx;退出,thisform.Release CLEAREVENTS QUIT。
权限认证由权限认证表单password.scx负责,如果单击该表单的确认按钮控件,将验证用户名、密码的有效性,即与数据库中口令表password.dbf比较;如果输入的用户名及密码任一有错,都会提示重新输入。当都输入正确时单击确认将启动mainform.scx表单,进入系统主界面同时将用户名和权限存放在变量username和rank中,以备后面的表单验证权限时使用。单击退出按钮,系统退回至系统启动表单。
表单init过程代码
PUBLICusername变量username用来存放用户名
username=
thisform.combo1.SetFocus
控件CombolInteractiveChange过程代码
username=thisform.combol.value
thisform.Text1.SetFocus
进入单击事件(Click)过程代码
IFLEN(ALLTRIM(thisform.combol.value))0.and.len(ALLTRIM(thisform.text1.Value))0
SELECTpassword
LOCATEforALLTRIM(password.用户)==ALLTRIM(thisform.control.combol.value)
IFALLTRIM(password.密码)==ALLTRIM(thisform.Text1.Value)
thisform.Release
DOformformsmainform.scx
ELSE
MESSAGEBOX(密码不正确,请重新输入,0,提示!)
thisform.text1.Value=
thisform.text1.SetFocus
ENDIF
ELSE
MESSAGEBOX(密码或用户名不能为空,请重新输入,0,提示!)
thisform.text1.SetFocus
ENDIF
退出单击事件(Click)过程代码
thisform.Release
DOformD:教师信息管理教师信息管理系统formsbegin.scx
系统主界面表单是mainform.scx执行表单后,单击不同的命令按钮,选择并执行其他表单;单击退出命令,返回权限认证表单。通过命令按钮组控件可以选择下列表单:数据维护表单sjwh.scx 数据查询表单sjcx.scx 打印表单dy.scx。
图1
通过该表单,完成对系统主要数据表的基本维护功能。完成对相关信息的查询。在打印中要制作打印报表文件khcsd.frk。
根据系统模块的划分,同时对应用程序的功能和结构进行测试。在表单设计和编码中就交替进行着不断的测试。
清理项目,在项目菜单下,选清理项目。连编项目,点击项目管理器中的连编。可执行文件运行。
信息发布:广州名易软件有限公司 http://www.myidp.net