|
工资查询.scx:查询按钮的click:local cGH,cXMcGH=allt(thisform.text1.value)cXM=allt(thisform.text2.value)if!empty(cGH) and !empty(cXM)do form 工资表显示 with cGH,cXMelse wait '请输入完整的信息' wind at srow()/2,scol()/2 nocl time 3wait clearetu .f.endif退出按钮代码:thisform.rele工资表显示.scx:表单的init:lpara lcgh,lcnamelocal cdbfname,lcstr1,lcstr... |
