|

楼主 |
发表于 2008-4-7 15:56:08
|
显示全部楼层
我试了一下,好象是不行的,
1.业务信息中,写了代码如下
procedure TGDZCGZD.DataSetZCGZZSJJFieldChange(DataSet: TDataSet; Field: TDataField);
var
sAlarm:String;
num:Integer;
begin
if Field.FieldName = 'Quantity' then
begin
num:=DataSet.FieldByName('Quantity').AsInteger;
if num>30 then
begin
sAlarm:='temperature is too high! temp='+num.ToString;
jsDialogs.ShowMsg(sAlarm,'temperature alarm');
end
else
jsDialogs.ShowMsg('Field changed','temperature alarm');
end;
end;
2。建立一下窗体,DataEdit1是报警温度。
3.我测试时用sql查询分析器改变数据库表中温度值,不会有任何事件发生。没有进入到断点。
4.我觉得是窗体中改变DataEdit1,则会触发事件,但是反过来则不会。效果相似于procedure TTESTCT.DataEdit1Change(Sender: TObject);
begin
jsDialogs.ShowMsg('Field changed by test','temperature alarm');
end;是客户端输入时改变就会触发,
请问我的需求该如何做实现呢?谢谢~! |
|