Ora_Road.Edit; //编辑 try GuidanceDM.OraSesGuidance.StartTransaction; if length(trim(RzRoadName.Text))=0 then Ora_Road.FieldByName('RoadName').Clear else Ora_Road.FieldByName('RoadName').Value := trim(RzRoadName.Text); if Length(RzAreaName.Text)=0 then Ora_Road.FieldValues['AreaName'].Clear else Ora_Road.FieldByName('AreaName').Value := Trim(RzAreaName.Text); Ora_Road.Post; GuidanceDM.OraSesGuidance.Commit; MessageBox(Handle,'修改街道资料成功!','提示信息',MB_OK+MB_ICONINFORMATION); Except GuidanceDM.OraSesGuidance.Rollback; MessageBox(Handle,'修改街道资料失败!','提示信息',MB_OK+MB_ICONINFORMATION); end;
