请帮忙看看我写的这段代码
这是一个表单集,第一个表单FORM1的CAP和NAME都是报修单。数据环境中有“报修单”的表。第二个表单是报修单查询CAP是报修单查询,name是BXDXX。第一个表单有3个按钮。分别为查询,增加和退出。
查询CLICK事件:thisformset.BXDXX.Show
增加的CLICK事件:
APPEND BLANK
保存"
thisform.Refresh()
退出的CLICK事件:
DO CASE
CASE 退出"
THISFORMSET.报修单.RELEASE
THISFORMSET.BXDXX.RELEASE
THISFORMSET.RELEASE
CASE 保存"
REPLACE 报修单.service_id WITH THISFORM.txtService_id.VALUE
REPLACE 报修单.defect WITH THISFORM.txtDefect.VALUE
REPLACE 报修单.service_type WITH THISFORM.txtService_type.VALUE
REPLACE 报修单.find_defect WITH THISFORM.txtFind_defect.VALUE
REPLACE 报修单.defect_description WITH THISFORM.txtDefect_description.VALUE
REPLACE 报修单.duty_view WITH THISFORM.txtDuty_view.VALUE
REPLACE 报修单.accept_time WITH THISFORM.txtAccept_time.VALUE
REPLACE 报修单.accept_dept WITH THISFORM.txtAccept_dept.VALUE
REPLACE 报修单.start_repair WITH THISFORM.txtStart_repair.VALUE
REPLACE 报修单.complete_time WITH THISFORM.txtComplete_time.VALUE
REPLACE 报修单.repair_engineer WITH THISFORM.txtRepair_engineer.VALUE
REPLACE 报修单.how_time WITH THISFORM.txtHow_time.VALUE
REPLACE 报修单.duty_repair_process WITH THISFORM.txtDuty_repair_process.VALUE
REPLACE 报修单.parts_name WITH THISFORM.txtParts_name.VALUE
REPLACE 报修单.parts_type WITH THISFORM.txtParts_type.VALUE
REPLACE 报修单.change_parts WITH THISFORM.txtChange_parts.VALUE
REPLACE 报修单.acceptance WITH THISFORM.txtAcceptance.VALUE
REPLACE 报修单.acceptance_per WITH THISFORM.txtAcceptance_per.VALUE
退出"
ENDCASE
第二表单有2个按钮,功能为输入维修单编号(service_id)或缺陷故障描述(defect_description),可以报修单表中相对应的信息。
第一个查找按钮代码:
bh = ALLTRIM(THISFORM.Text1.VALUE)
xm = ALLTRIM(THISFORM.Text2.VALUE)
IF EMPTY(bh) AND EMPTY(xm)
MESSAGEBOX("维修单编号或缺陷故障描述必须输入一项!")
thisform.Text1.SetFocus
ENDIF
SELECT 报修单
IF NOT EMPTY(bh)
strsql = "service_id="+bh
ENDIF
IF NOT EMPTY(xm)
IF NOT EMPTY(strsql)
strsql = strsql + " AND Defect_description='" + xm + "'"
ELSE
strslq = "Defect_description='" + xm + "'"
ENDIF
ENDIF
strsql = "LOCATE FOR " + strsql
&strsql.
IF NOT FOUND()
MESSAGEBOX("没有找到符合的记录!")
ELSE
THISFORM.HIDE
THISFORMSET.报修单.Refresh()
ENDIF
第二个退出代码:
THISFORM.Hide
现在的问题是在第一个表单中输入信息,输入的貌似会覆盖,然后第二个表单查询功能中的缺陷故障描述查询出错。
麻烦大家帮忙看看吧~~~谢谢啊~~~~~~