2025年VF程序设计上机题详解与参考答案

2025年VF程序设计上机题详解与参考答案一、基础操作题（30分）要求：在D盘根目录下创建名为“项目管理”的数据库（PM.DBC），包含“成员表”（MEMBER.DBF）和“项目表”（PROJECT.DBF），具体结构如下：成员表字段：成员编号（C，6，主键）、姓名（C，8）、性别（C，2，默认“男”）、入职时间（D）、所属部门（C，10）、技术等级（N，1，范围1-5）、是否项目组长（L，默认.F.）项目表字段：项目编号（C，6，主键）、项目名称（C，20）、起始日期（D）、截止日期（D）、负责人编号（C，6，外键，关联成员表成员编号）、预算（Y，保留2位小数）、进度（N，3，范围0-100）操作步骤及注意事项：1.打开VisualFoxPro，通过“文件”-“新建”-“数据库”-“新建文件”，在D盘根目录创建PM.DBC。2.右键数据库设计器空白处，选择“新建表”，输入表名MEMBER.DBF，按字段要求设置结构：成员编号设为主索引（索引名与字段名一致），确保唯一性；性别字段“默认值”属性填“男”（需用半角单引号括起）；技术等级字段“字段有效性”规则设为“技术等级>=1AND技术等级<=5”，错误提示“技术等级需为1-5的整数”；是否项目组长默认值设为.F.（逻辑型无需引号）。3.同理创建PROJECT.DBF，项目编号为主索引；负责人编号需建立普通索引（索引名设为FK_负责人），用于与成员表关联；预算字段类型选“货币型（Y）”，系统自动保留4位小数，需在表设计器“字段”选项卡中设置“格式”为“Y”（强制显示货币符号）；进度字段有效性规则设为“进度>=0AND进度<=100”，错误提示“进度需为0-100的整数”。4.建立表间永久关联：在数据库设计器中，将成员表的主索引“成员编号”拖至项目表的普通索引“FK_负责人”上，提供关联线。双击关联线，设置参照完整性规则：更新规则为“级联”（负责人编号修改时同步更新项目表），删除规则为“限制”（若成员是某项目负责人则禁止删除），插入规则为“限制”（插入项目记录时负责人编号需存在于成员表）。常见错误：货币型字段误设为数值型（N），导致预算显示无货币符号；索引类型错误（如项目表负责人编号设为主索引，导致无法关联多个项目）；参照完整性规则未正确设置，插入无效负责人编号时无提示。二、SQL查询题（30分）任务1：查询2020年1月1日后入职、技术等级≥3的成员，结果按所属部门分组，显示部门名称、每组人数及平均技术等级（保留1位小数），要求只显示人数≥2的组。解题思路：使用SELECT语句，通过WHERE过滤入职时间和技术等级，GROUPBY按所属部门分组，HAVING过滤分组人数，计算COUNT()和AVG(技术等级)。注意入职时间的日期格式为{^2020-01-01}，AVG需用ROUND函数保留小数。参考答案：SELECT所属部门,COUNT()AS人数,ROUND(AVG(技术等级),1)AS平均技术等级FROMMEMBERWHERE入职时间>{^2020-01-01}AND技术等级>=3GROUPBY所属部门HAVINGCOUNT()>=2;任务2：查询进度超过80%的项目，显示项目名称、负责人姓名、负责人所属部门（若项目无负责人则显示“未指定”），结果按截止日期降序排列。解题思路：需关联项目表和成员表（LEFTJOIN，处理无负责人的情况），用ISNULL判断负责人编号是否为空，COALESCE函数或IIF函数处理部门显示。参考答案：SELECTp.项目名称,m.姓名AS负责人姓名,IIF(m.所属部门ISNULL,'未指定',m.所属部门)AS负责人部门FROMPROJECTpLEFTJOINMEMBERmONp.负责人编号=m.成员编号WHEREp.进度>80ORDERBYp.截止日期DESC;任务3：统计各部门负责的项目总预算（预算总和），若部门无项目则显示0。要求显示部门名称、总预算（保留2位小数），按总预算降序排列。解题思路：成员表与项目表通过负责人编号关联（部门在成员表中），需用RIGHTJOIN确保所有部门（包括无项目的）被统计，SUM(预算)配合COALESCE处理NULL值。参考答案：SELECTm.所属部门,ROUND(COALESCE(SUM(p.预算),0),2)AS总预算FROMMEMBERmRIGHTJOINPROJECTpONm.成员编号=p.负责人编号GROUPBYm.所属部门ORDERBY总预算DESC;三、表单设计题（30分）要求：设计“成员信息维护”表单（文件名：MEMBER_FORM.SCX），包含以下功能：1.数据浏览：通过“上一条”“下一条”按钮浏览成员记录；2.数据编辑：文本框输入姓名、性别（组合框选择“男”或“女”）、入职时间（日期控件）、所属部门（列表框，数据源为部门列表：开发部、测试部、运维部）、技术等级（微调按钮，范围1-5）、是否组长（复选框）；3.数据校验：姓名不能为空，技术等级必须为1-5，入职时间不能早于2010年1月1日；4.记录操作：“添加”按钮清空控件并进入编辑状态；“保存”按钮验证数据后更新表；“删除”按钮删除当前记录（需确认）；“取消”按钮放弃修改。设计步骤：1.新建表单，设置Caption为“成员信息维护”，AutoCenter为.T.。2.数据环境：添加MEMBER表，设置Exclusive为.T.（独占方式打开，避免多用户冲突）。3.控件布局：标签（Label）：“成员编号”（不可编辑，显示当前记录）、“姓名”“性别”等；文本框（TextBox）：姓名（Name=txtName），成员编号（Name=txtID，ReadOnly=.T.）；组合框（ComboBox）：性别（Name=cboSex，RowSourceType=1-值，RowSource=男,女，Style=2-下拉列表框）；日期控件（DateTimePicker）：入职时间（Name=dteHireDate）；列表框（ListBox）：所属部门（Name=lstDept，RowSourceType=1-值，RowSource=开发部,测试部,运维部）；微调按钮（Spinner）：技术等级（Name=spnLevel，Increment=1，Min=1，Max=5）；复选框（CheckBox）：是否组长（Name=chkLeader，Caption=“是否项目组长”）；命令按钮组：“上一条”（cmdPrev）、“下一条”（cmdNext）、“添加”（cmdAdd）、“保存”（cmdSave）、“删除”（cmdDel）、“取消”（cmdCancel）。关键代码实现：（1）“上一条”按钮Click事件：IF!BOF()SKIP-1THISFORM.RefreshENDIF（2）“下一条”按钮Click事件：IF!EOF()SKIPTHISFORM.RefreshENDIF（3）“添加”按钮Click事件：THISFORM.txtID.Value=''&&成员编号需自动提供（如根据最大编号+1）THISFORM.txtName.Value=''THISFORM.cboSex.Value='男'THISFORM.dteHireDate.Value=DATE()THISFORM.lstDept.Value='开发部'THISFORM.spnLevel.Value=1THISFORM.chkLeader.Value=.F.THISFORM.SetAll('Enabled',.T.,'TextBox')&&允许编辑THISFORM.cmdSave.Enabled=.T.THISFORM.cmdCancel.Enabled=.T.（4）“保存”按钮Click事件：LOCALlcID,lcName,lcSex,ldHire,lcDept,lnLevel,llLeaderlcID=THISFORM.txtID.ValuelcName=ALLTRIM(THISFORM.txtName.Value)IFlcName=''MESSAGEBOX('姓名不能为空！',16,'错误')THISFORM.txtName.SetFocus()RETURNENDIFlcSex=THISFORM.cboSex.ValueldHire=THISFORM.dteHireDate.ValueIFldHire<{^2010-01-01}MESSAGEBOX('入职时间不能早于2010年1月1日！',16,'错误')THISFORM.dteHireDate.SetFocus()RETURNENDIFlcDept=THISFORM.lstDept.ValuelnLevel=THISFORM.spnLevel.ValueIFlnLevel<1ORlnLevel>5MESSAGEBOX('技术等级需为1-5！',16,'错误')THISFORM.spnLevel.SetFocus()RETURNENDIFllLeader=THISFORM.chkLeader.ValueBEGINTRANSACTION&&事务处理IFEMPTY(lcID)&&添加新记录lcNewID='M'+STR(VAL(SUBSTR(MAX(成员编号),2),6))+1,6)&&假设成员编号以M开头，自动提供INSERTINTOMEMBER(成员编号,姓名,性别,入职时间,所属部门,技术等级,是否项目组长)VALUES(lcNewID,lcName,lcSex,ldHire,lcDept,lnLevel,llLeader)ELSE&&修改现有记录UPDATEMEMBERSET姓名=lcName,性别=lcSex,入职时间=ldHire,所属部门=lcDept,技术等级=lnLevel,是否项目组长=llLeaderWHERE成员编号=lcIDENDIFIFERROR()=0COMMITMESSAGEBOX('保存成功！',64,'提示')THISFORM.RefreshELSEROLLBACKMESSAGEBOX('保存失败：'+STR(ERROR()),16,'错误')ENDIF（5）“删除”按钮Click事件：IFMESSAGEBOX('确认删除当前记录？',36,'确认')=6DELETEPACK&&立即物理删除（或用TABLEUPDATE提交）THISFORM.RefreshENDIF（6）“取消”按钮Click事件：THISFORM.Release&&或回滚修改THISFORM.Refresh四、报表设计题（10分）要求：以成员表为数据源，设计“技术等级分布”报表（文件名：LEVEL_REPORT.FRX），按所属部门分组，显示每组各技术等级的人数（1-5级），并在组尾显示部门总人数及平均技术等级（保留1位小数）。设计步骤：1.新建报表，添加MEMBER表到数据环境。2.分组设置：在报表设计器中，“报表”-“数据分组”，添加分组表达式“所属部门”，勾选“每组从新页开始”（可选）。3.列标头带区：添加标签“技术等级”“人数”。4.细节带区：添加域控件“技术等级”（表达式：MEMBER.技术等级），“人数”（需用变量统计，在“报表表达式”中设置变量名如vCount，计算类型为“计数”，重置为“技术等级”）。5.组标头带区：添加标签“部门：”+域控件“所属部门”（表达式：MEMBER.所属部门）。6.组尾带区：部门总人数：域控件（表达式：COUNT()，重置为“所属部门”）；平均技术等