中国医科大学《VISUAL FOXPRO数据库与程序设计》92K VFP上机作业复习汇总.docVIP

面向对象作业复习 1.主菜单：设计好菜单-常规选项－顶层表单(生成mpr 2.表单菜单: show window属性-2 (使之成为顶层表单) -Init事件中(do main.mpr whit this, .T. 3.表单一: (1)按钮中代码：Do form 表单菜单 (2)Load事件中:Publ Flag Flag=1 (3)计时器中代码: DO CASE CASE FLAG=1 IF THISFORM.LABEL2.LEFT0 THISFORM.LABEL2.LEFT= THISFORM.LABEL2.LEFT-50 ELSE FLAG=0 ENDIF CASE FLAG=0 IF THISFORM.LABEL2.LEFT324 THISFORM.LABEL2.LEFT= THISFORM.LABEL2.LEFT+50 ELSE FLAG=1 ENDIF ENDCASE Thisform.label1.forecolor=rgb(int(rand()*255),int(rand()*255), int(rand()*255)) 注：语句之间需要换行的 4.crydj（入院登记表单）： （1）表单Init事件中代码：GO BOTT PUBL NO NO=RECNO() GO TOP ThisForm.Timer1.enabled=.f. （2）“住院号”的List 1的Click事件中代码：Go recno() thisform.refresh() ――――其中List1的“生成器”中，从数据环境中加入字段 （3）“收费确认”按钮代码：ThisForm.Timer1.enabled=.t. this.forecolor=rgb(200,100,50) ThisForm.Text1.value=ThisForm.txtPayfeetota.value-ThisForm.txtSyj.value （4）“结束”按钮代码：release thisform （5）计时器中代码：if ThisForm.Label5.left0 ThisForm.Label5.left=ThisForm.Label5.left-10 else ThisForm.Label5.left=650 endif 5.cyjs（出院结算表单）： （1）表单的Init事件代码：set dele on set talk off set safe off set filt to Set Filt to ZYH=1111111 sum xj to p ThisForm.Text1.value=p Go top （2）“住院号”List 1的 Click事件代码：sele 2 use zybl loca for zyh=allt(ThisForm.list1.value) ThisForm.Text2.value=inhospital use（生成器中手工输入数据） （3）“明细察看”就是把数据环境拖入 （4）“开始结算”代码sele 2 use zybl loca for zyh=allt(ThisForm.list1.value) if found() thisform.text4.value=payfeetota ThisForm.Text6.value=ThisForm.Text3.value-ThisForm.Text2.value ThisForm.Text9.value=patientnam ThisForm.Text2.value=inhospital ThisForm.Text3.value=outhospita else wait wind 您结算的病人住院号错误,请重新结算!! endif use sele 1 thisform.text7.value=20*ThisForm.Text6.value set filt to set filt to zyh=allt(ThisForm.list1.value) sum xj to p G