procedure TSBYWXX.DataSetSBXXSJJFieldChange(DataSet: TDataSet; Field: TDataField);
var
sDeviceType:Integer;
sSystemType:String;
begin
if Field.FieldName = 'DeviceType' then
begin
sDeviceType:=SysUtils.strtoint(DataSet.FieldByName('DeviceType').AsString);
Case sDeviceType of
000010..000019: //网络系统
DataSet.FieldByName('SystemType').AsString:='000001';
000020..000029:
DataSet.FieldByName('SystemType').AsString:='000002';
000030..000039:
DataSet.FieldByName('SystemType').AsString:='000003';
000040..000049:
DataSet.FieldByName('SystemType').AsString:='000004';
end;//end case
// jsDialogs.ShowMsg(AValue,'GetParamValue');
end;
end;