帮忙翻译一小段VF代码。谢谢了

f thisform.text1.value="syx" and thisform.text2.value="123"do form 系统功能界面.scxthisform.releaseelsemessagebox("显示信息",0,✀提示✀)endif系统功能：DO CASE CASE Thisform.Optiongroup1.Option1.Value=1 DO FORM 商品销售.SCX CASE Thisform.Optiongroup1.Option2.Value=1 DO FORM 销售查询.SCX CASE Thisform.Optiongroup1.Option3.Value=1 DO FORM 商品入库.SCX CASE Thisform.Optiongroup1.Option4.Value=1 DO FORM 库存查询.SCX CASE Thisform.Optiongroup1.Option5.Value=1 DO FORM 商品进货.SCX CASE Thisform.Optiongroup1.Option6.Value=1 DO FORM 进货查询.SCX CASE Thisform.Optiongroup1.Option7.Value=1 DO FORM 销售统计.SCX CASE Thisform.Optiongroup1.Option8.Value=1 *DO FORM 库存统计.SCXENDCASE 库存查询：IF Thisform.Combo1.Value=1 Thisform.Label4.Caption="输入商品编号" Thisform.Text1.Value=""ENDIFIF Thisform.Combo1.Value=2 Thisform.Label4.Caption="输入商品名称" Thisform.Text1.Value=""ENDIFIF Thisform.Combo1.Value=3 Thisform.Label4.Caption="输入入库时间" Thisform.Text1.Value=DATE()ENDIF进货查询：Cond=""DO CASE CASE Thisform.Label4.Caption="输入商品编号" Cond="商品编号=Thisform.Text1.value" CASE Thisform.Label4.Caption="输入商品名称" Cond="商品名称=Thisform.Text1.value" CASE Thisform.Label4.Caption="输入定单编号" Cond="定单编号=Thisform.Text1.value" CASE Thisform.Label4.Caption="输入供货单位" Cond="供货单位=Thisform.Text1.value" CASE Thisform.Label4.Caption="输入到货日期" Cond="到货日期=Thisform.Text1.value"ENDCASEItems=""IF Thisform.List2.ListCount=0 Items="*"ELSE FOR i=1 TO Thisform.List2.ListCount Items=Items+Thisform.List2.List(i)+"," ENDFOR Items=SUBSTR(Items,1,LEN(Items)-1)ENDIFIF Cond=="" Thisform.Grid1.RecordSource=; "SELECT &Items FROM JH INTO CURSOR Ttemp"ELSE Thisform.Grid1.RecordSource=; "SELECT &Items FROM JH WHERE &Cond INTO CURSOR Ttemp"ENDIFThisform.Refresh商品入库：SELECT JHLOCATE FOR 定单编号=ALLTRIM(Thisform.Text12.Value)IF FOUND() Thisform.text1.VALUE=商品编号 Thisform.text2.VALUE=商品名称 Thisform.text3.VALUE=商品型号 Thisform.text4.VALUE=定单编号 Thisform.text5.VALUE=联系电话 Thisform.text6.VALUE=到货日期 Thisform.text7.VALUE=进货数量 Thisform.text8.VALUE=单价 Thisform.text9.VALUE=供货单位 Thisform.text10.VALUE=总价 Thisform.text11.VALUE=经办人ELSE Thisform.text1.VALUE="" Thisform.text2.VALUE="" Thisform.text3.VALUE="" Thisform.text4.VALUE="" Thisform.text5.VALUE="" Thisform.text6.VALUE="" Thisform.text7.VALUE="" Thisform.text8.VALUE="" Thisform.text9.VALUE="" Thisform.text10.VALUE="" Thisform.text11.VALUE=""ENDIFThisform.refresh