数据库技术与应用——visualfoxpro60篇课后练习题答案

数据库技术与应用——visualfoxpro60篇课后练习题答案内容摘要：

S/N USE RETURN SET TALK OFF CLEAR S=0 N=1 FOR I=1 TO 10 N=N*I S=S+N ENDFOR ?S= ??S RETURN SET TALK OFF CLEAR USE Student DO WHILE .T. INPUT 1：添加记录 2：编辑记录 3：删除记录 0：退出 TO S DO CASE CASE S=1 APPEND BLANK GO BOTTOM JL=RECNO( ) BROWSE FOR RECNO( )=JL CASE S=2 ACCEPT 请输入要编辑修改的学生学号 TO SID LOCATE FOR Studentid=SID IF NOT EOF( ) JL=RECNO( ) BROWSE FOR RECNO( )=JL ELSE ?查无此人。 ENDIF CASE S=3 ACCEPT 请输入要删除的学生学号 TO SID LOCATE FOR Studentid=SID IF NOT EOF( ) DELETE PACK ELSE ?查无此人。 ENDIF CASE S=0 EXIT ENDCASE ENDDO USE RETURN 第 13 章练习题答案 答： （ 1）启动表单向导，在“向导选取”对话框中选择“一对多表单向导”选项，单击“确定”按钮后进入“一对多表单向导步骤 1”对话框。 （ 2）从父表中选取字段。 在“一对多表单向导步骤 1”对话框中，选择父表，在“选定字段”栏中添加需要的字段，单击“下一步”按钮，进入“一对多表单向导步骤 2”对话框。 （ 3）从子表中选取字段。 在“一对多表单向导步骤 2”对话框中，选择子表，在“选定字段”栏中添加其全部字段，单击“下一步”按钮，进入“一对多表单向导步骤 3”对话框。 （ 4）然后按照 向导提示就可以创建 一个双数据库表表单。 答： 打开表单的数据环境设计器，在设计器中将字段从主表拖动到相关表中的相匹配的索引标识上，或相关表中的字段上。 如果和主表中的字段对应的相关表中没有索引标识，系统将提示是否创建索引标识。 这时，在主表和相关表之间有一条连线，表示两表之间的关系。 答： 在进行表单设计时，可以使用表单向导，也可以使用表单设计器设计。 由于采用表单向导设计的表单样式比较单一，有时需要设计一些复杂的、功能强大的表单，这时表单向导就不能胜任了，必须使用表单设计器来完成设计。 在使用表单设计器进 行表单设计时，一般按照下面的步骤进行设计： （ 1）分析表单需要实现的功能，和数据库中的哪些数据有关系，需要使用那些控件来实现这些功能。 （ 2）创建表单，设置外观包括表单的背景颜色、尺寸、标题等。 （ 3）根据需要设置数据环境，向数据环境中添加表和视图，创建表间关系等。 （ 4）在表单上添加所需要的对象包括数据表、视图或控件等，并调整其位置、大小和整体布局。 （ 5）利用属性窗口设置对象的初始属性。 （ 6）为对象的事件编写程序代码以完成预定的要求。 答： 按照 表单向导中的“使用表单向导创建双数据库 表表单”的步骤创建基本表单，其中选择父表为“ DEPARMENT”，子表为“ STUDENT”，父表和子表通过“ DEPID”建立联系，选择需要的字段，并把生成的表单修改为如下图所示。 设置表单中各个对象属性如下： DEFINE CLASS form1 AS standardform ScaleMode = 3 Height = 253 Width = 580 ScrollBars = 3 DoCreate = .T. Caption = DEPARTMENT BackColor = RGB(212,208,200) Name = Form1 = Shape1 = Shape2 = Shape3 = Shape4 = 4009 = .F. = 1 = layoutsty ADD OBJECT lbldepid1 AS standardlabel WITH。 FontBold = .T.,。 Caption = 系编号 :,。 Left = 25,。 Top = 13,。 Visible = .T.,。 Width = 39,。 TabIndex = 2,。 Name = LBLDEPID1 ADD OBJECT depid1 AS standardfield WITH。 ControlSource = ,。 Format = ,。 InputMask = XXXXXXXXXX,。 Left = 74,。 ReadOnly = .F.,。 TabIndex = 3,。 Top = 10,。 Visible = .T.,。 Width = 88,。 Name = DEPID1 ADD OBJECT lblname1 AS standardlabel WITH。 FontBold = .T.,。 Caption = 系名称 :,。 Left = 185,。 Top = 13,。 Visible = .T.,。 Width = 39,。 TabIndex = 4,。 Name = LBLNAME1 ADD OBJECT name1 AS standardfield WITH。 ControlSource = ,。 Format = ,。 InputMask = XXXXXXXXXX,。 Left = 234,。 ReadOnly = .F.,。 TabIndex = 5,。 Top = 10,。 Visible = .T.,。 Width = 88,。 Name = NAME1 ADD OBJECT grid1 AS grid1 WITH。 ColumnCount = 5,。 Comment = ,。 Tag = ,。 DeleteMark = .F.,。 Heig。