2003年秋江苏省VFP上机考试试卷03.doc

一、项目、数据库和表操作（12分）打开软盘根目录下的项目文件TEST，在该项目中已有一数据库SJK。1 按如下要求修改SJK中学生（KC）表的结构：（1） 设置课程名（kcm）字段的标题：课程名称。（2） 设置课程代号（kcdh）字段的输入掩码：课程代号只能是两位数字字符。（3） 设置课时数（kss）字段的显示类为微调控件。 （4） 创建一个普通索引kx，要求先按kss字段排序，kss相同的再按学分（xf）字段排序。（5） 为KC表创建记录级有效性规则：课时数（kss）不能少于学分（xf）。2 修改KC表中所有记录的课时数（kss）和学分（xf）字段的值，方法是：所有必修课（BXK字段的值为.T.）的课时数和学分均增加1。Update kc set kss=iif(bxk=.t.,kss+1,kss+0)Update kc set xf=iif(bxk=.t.,xf+1,xf+0)3 向KC表中增加一条课程代号（kcdh）为“26”的记录。insert into kc(kcdh) values (26)?4 已知数据库SJK的存储过程中有一自定义函数kc_del_tri（），函数的功能是：对于打开的KC表，如果当前记录在成绩（CJ）表或任课（RK）表中有相关记录，则返回.T.，否则返回.F.。设置KC表的删除触发器，要求如果KC表的当前记录在成绩表或任课表中有相关记录，则禁止删除。5 已知KC表已存在主索引kcdh，索引表达式为kcdh，成绩（CJ）表已存在普通索引cjkcdh，索引表达式为kcdh。以KC表为主表，CJ表为子表按kcdh建立永久关系，并设置它们之间的参照完整性：更新级联。二、设计查询（8分）在TEST项目中已存在查询CHAXUN，且在SJK中的包含一个名为XSCJVIEW的视图，该视图中包含了每个学生所学课程的情况。按如下要求修改该查询：基于XSCJVIEW视图KC表统计各学生所学必修课的门数和总学分。其中学生所学课程的学分必须当成绩（cj）在60分或60分以上时才能取得，否则该课程的学分为0。要求输出字段为：xh 、xm、门数、总学分，查询结果按学号升序排序。三、设计菜单（5分） 项目TEST中已存在菜单MENUA，按如下要求修改菜单，完成后的运行效果如图1所示。1 为“数据录入”菜单栏下的“教师信息录入”菜单项创建快捷键“CTRL+L”。 2 在“数据查询”创建子菜单“学生档案查询”和“学生成绩查询”，并用分隔线隔开。3 为“学生档案查询”菜单项设置SQL命令，要求当执行该菜单项时在浏览窗口显示学生（XS）表中所有的学生的学号（xh），姓名（xm）和出生日期（csrq）三个字段的内容。select xh,xm,csrq from xs browse4 为“学生档案查询”菜单项设置提示信息：“按学号查询学生的成绩”，要求当选择“学生成绩查询”菜单项时，在状态栏中显示该提示信息。?5 将上述菜单插入到系统菜单的“编辑”菜单之后。四设计表单（10分） TEST 项目中已经存在菜单FORMA，该表单用来进行系统登录。已知A盘根目录下存在表文件USER，该表用来存放登录用户的工号（no）、姓名（name）、职务（title）、和口令（password）。根据下列要求对表单进行修改，完成以后运行表单，效果如图2所示。1 设置窗口的标题为“系统登录”。2 使姓名和年月下拉列表框只可选择，不可输入。 3 将“职务”文本框置为废止状态。4 姓名下拉列表框显示的内容为用户姓名，其RowSourceType为“3-SQL语句”，请设置RowSource属性。5 假如USER表中姓名(name)字段的值不重复，且已经按姓名建立了一个普通索引name，索引表达式为name，当用户点击“确定”按钮时，要验证用户输入的口令的合法性：若口令输入正确则关闭该登录窗口；若口令输入不正确，则提示用户重新输入，并将口令文本框中的内容置空，然后将光标停留在口令文本框中。根据上述要求完善“确定”按钮的Click事件。五程序改错（5分）下列程序的功能是计算一个英文句子中包括几个英文单词（假设各单词间以空格或标点符号分隔）。其基本算法是首先在字符串左边加一个空格，然后对字符串中的每个字符依次进行如下的处理：如果该字符为英文字母，且左边的字符不是英文字母，则英文单词个数加1。要求：1 项目中有一个程序文件PCODE，将下列程序输入到其中并进行修改。2 在修改程序时，不允许修改程序的总体框架和算法，不允许增加或减少语句数目。cString=A modem is a device that connects your computer to the Internet.cString=SPACE(1)+cSringnCount=0FOR n=1 RO LEN(cSrring)c=SUBSTR(cSrring,1,n)IF BETWEEN (c,A,Z) OR BETWEEN(c,a,z)c=SUBSTR (cS