如何弹出一个对话框？

wintellzbh

请问在b/s模式中，如何在一个按钮上写的公式中，弹出一个对话框？

icerain_1

用js写代码

wintellzbh

js怎么写，请指教！

wintellzbh

我必须在公式里写，因为我用公式实现了些功能，最后判断其中的变量值，不成功则弹出alert对话框，成功则保存关闭（@command    filesave  fileclosewindow）。前面实现的功能在js很难实现（按照我的知识，其实就是本版那篇“关于时间判断”的功能）。请问板斧，我用其他办法（例如ls）可以实现“时间判断”的功能吗？关键地方如何编写？如果用公式，如上，如何弹出alert对话框呢？

icerain_1

tmp := "<Script Languange=JavaScript>" + @newline +
           "alert(&#39;hello&#39;);" + "</Script>";
@if(con;@failure(tmp);@success)

lxs198026

用公式可以写的偶以前写过但是忘了你查一下帮助看能不能查到！！！！！

wintellzbh

谢谢板斧和lxs198026，我现在去试试看！

wintellzbh

板斧，弹不出窗口来。下面是我的程序公式：

有4个域存放开始时间日期，结束时间日期
开始日期时间
DateStart  时间/日期域   可编辑 格式：2003-09-28
TimeStart  组合框           可编辑 格式：09:30
结束时间日期
DateEnd   时间/日期域    可编辑 格式：2003-09-29
TimeEnd   组合框            可编辑 格式：15:30
他们是代表一个日期时间段，现在我必须在用户提交文档前进行日期验证，开始时间必须先于结束时间。在校验后若错误，则弹出一个对话框（web）中。

FIELD ApplyDateStart:= ApplyDateStart;
FIELD StartTime:=StartTime;
FIELD ApplyDateEnd:=ApplyDateEnd;
FIELD EndTime:=EndTime;
Start:=@Text(ApplyDateStart)+" "+@Text(StartTime);
End:=@Text(ApplyDateEnd)+" "+@Text(StartEnd);
DStart:=@TextToTime(Start);
DEnd:=@TextToTime(End);
alert:="<Script Languange=javascript>" + @NewLine + "alert(\&#39;请输入正确时间！\&#39;);" + "</Script>";
@If(DStart>DEnd;@Failure(alert);
@Do(@Command([FileSave]);
@Command([FileCloseWindow])))

请板斧指教！！！

neil_1

这样做太麻烦了，用代理不就很容易解决了么？