旧教材——第7章数据库的建立与操作.ppt

设计过程 编写相应事件代码： 　　Form1.Init　 　　Page1.Activate （页对象激活时） Page2.Activate 　　Commandgroup1.Click 　Form1.Init 　　SET DELETE ON 有删除标志的记录不被显示 　　SELECT 课程 　　SET ORDER TO TAG 课程号 IN 成绩 　　SET RELATION TO 课程号 INTO 成绩 　　SELECT 学生 　　SET ORDER TO TAG 学号 IN 成绩 　　SET RELATION TO 学号 INTO 成绩 WITH THIS.GRID1 设置表格相关属性 .DELETEMARK=.F. .ALLOWADDNEW=.F. .READONLY=.t. ENDWITH THIS.SETALL(READONLY,.T.,TEXTBOX) THIS.PAGEFRAME1.ACTIVEPAGE=1 激活“学生“页面 THIS.COMMANDGROUP1.COMMAND1.SETFOCUS 　Page1.Activate 　　SELECT 学生 　　SET ORDER TO TAG 学号 IN 成绩　　 将成绩　　　　　　　　　　　　　表的主索引设为”TAG 学号 　Page2.Activate 　　SELECT 课程 　　SET ORDER TO TAG 课程号 IN 成绩　 将成绩　　　　　　　　　　　　　表的主索引设为”TAG 课程号 Commandgroup1.Click 　　DO CASE 　　CASE THIS.VALUE=1 　　GO TOP 　　THIS.COMMAND1.ENABLED=.F. 　　THIS.COMMAND2.ENABLED=.F. 　　THIS.COMMAND3.ENABLED=.T. 　　THIS.COMMAND4.ENABLED=.T. 　　　CASE THIS.VALUE=2 AND !BOF() 　　SKIP -1 　　IF BOF() 　　 THIS.COMMAND1.ENABLED=.F. 　　　　 THIS.COMMAND2.ENABLED=.F. 　　ENDIF 　　THIS.COMMAND3.ENABLED=.T. 　　THIS.COMMAND4.ENABLED=.T. 　　CASE THIS.VALUE=3 AND !EOF() 　　　SKIP 　　　IF EOF() 　THIS.COMMAND3.ENABLED=.F. THIS.COMMAND4.ENABLED=.F. 　　　ENDIF 　　　THIS.COMMAND1.ENABLED=.T. 　　THIS.COMMAND2.ENABLED=.T. CASE THIS.VALUE=4 　　　GO BOTTOM 　　　　　　 THIS.COMMAND1.ENABLED=.T. THIS.COMMAND2.ENABLED=.T. THIS.COMMAND3.ENABLED=.F. THIS.COMMAND4.ENABLED=.F. 　　CASE THIS.VALUE=5 SELECT 学生 APPEND BLANK 　追加新记录并将当前的“学号“和”课程　　　　　　　　　　　　　　　　号“设置为有效值 REPL 学号 WITH 学生.学号,课程号 WITH 课程.课程号 CASE THIS.VALUE=6 IF MESSAGEBOX(删除吗？,4+32,删除确认框)=6 　 SELECT 成绩 DELETE 删除当前记录（打上删除标志） ENDIF 　　CASE THIS.VALUE=7 IF MESSAGEBOX(退出吗？,4+32,退出确认框)=6 　SELECT 成绩 　　　　　PACK 　物理删除有删除标志的记录 　　　　　SET DELETE OFF 　 THISFORM.RELEASE ENDIF 　　ENDCASE *由于添加或删除操作会影响索引指针，所以下列语句再重新调整主索引 　　IF THISFORM.PAGEFRAME1.ACTIVEPAGE=1